Текстовый файл

@Shy777 · Регистрация: 08.06.2011

Author24 — интернет-сервис помощи студентам

Задача №1.
Имеется текстовый файл. Удалить из него:
а) третью строку
б) первую строку, в конце которой стоит вопросительный знак. В обоих случаях результат записать в другой файл.

Задача №2.
Имеется файл, элементами которого являются отдельные буквы слова "килобайт". Получить новый файл, в котором ошибки не будет.

И пожалуйста люди добрые блок-схему к этим задачам.
Заранее благодарю.

@BabushkaTP · 09.02.2014, 18:37

Pascal

uses crt;
var i: integer;
    s: string;
    f1,f2: text;
begin
 assign(f1,'text1.txt');
 assign(f2,'text2.txt');
 reset(f1);
 rewrite(f2);
 while not eof(f1) do
  begin
   readln(f1,s);
   if s[length(s)]<>'?' then
    writeln(f2,s)
   else
    if i=0 then
     inc(i)
    else
     writeln(f2,s);
  end;
  close(f1);
  close(f2);
end.

@Shy777 2 / 2 / 1 Регистрация: 08.06.2011 Сообщений: 45
		1
	Текстовый файл 16.06.2011, 12:05. Показов 1416. Ответов 1 Метки нет (Все метки) Задача №1. Имеется текстовый файл. Удалить из него: а) третью строку б) первую строку, в конце которой стоит вопросительный знак. В обоих случаях результат записать в другой файл. Задача №2. Имеется файл, элементами которого являются отдельные буквы слова "килобайт". Получить новый файл, в котором ошибки не будет. И пожалуйста люди добрые блок-схему к этим задачам. Заранее благодарю. 0

	09.02.2014, 18:37

Текстовый файл

Решение