Переписать в файл g все строчки файла f, которые состоят из четного количества слов - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Задан текстовый файл. Переписать у файл g все строчки файла f, которые состоят с четного количества слов.

Решение задачи: «Переписать в файл g все строчки файла f, которые состоят из четного количества слов»

textual
Листинг программы
uses crt;
var f,g: Text;
    s:string;
   i,kil_sl:byte;
begin
clrscr;
assign (f,'F.txt');
reset(f);{файл создаем в Блокноте и сохраняем в папке с пограммой}
assign (g,'G.txt');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  s:=' '+s;//пробел в начало для удобства
  kil_sl:=0;
  for i:=1 to length(s) do
  if(s[i-1]=' ')and(s[i]<>' ')then inc(kil_sl);
  if kil_sl mod 2=0 then writeln(g,s);
 end;
Close(f);
Close(g);
write('Файл F.txt прочитан, строки с четным количеством слов записаны в файл G.txt');
readln
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для работы с текстовыми файлами.

  1. Создаются два объекта файла: f и g. Файл f предназначен для чтения, а файл g - для записи.
  2. Задается переменная s, которая будет содержать строку из файла f.
  3. Задаются две переменные i и kil_sl. Переменная i используется для подсчета количества слов в строке, а переменная kil_sl - для отслеживания того, сколько слов уже было прочитано.
  4. Открывается файл f и считывается первая строка.
  5. Строка s дополняется пробелом в начале и очищается от лишних пробелов.
  6. Переменная i и kil_sl инициализируются.
  7. Запускается цикл, который будет выполняться до конца файла f.
  8. Внутри цикла считывается следующая строка из файла f, и проверяется, состоит ли она из четного количества слов. Если это так, то эта строка записывается в файл g.
  9. После окончания цикла файл f закрывается, а файл g - записывается.
  10. Выводится сообщение о том, что файл f был прочитан, а строки с четным количеством слов были записаны в файл g.
  11. Программа завершается вызовом функции readln.

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы