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

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

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

Задан текстовый файл. Переписать у файл g все строчки файла f, которые состоят с четного количества слов.
Листинг программы
  1. program lr8;
  2. uses crt;
  3. var
  4. f,f1: Text;
  5. s, stop: string;
  6. i, z, kil_sl:integer;
  7.  
  8. begin
  9. assign (f,'f.txt');
  10. rewrite (f);
  11. writeln('Остановка создания файла - stop');
  12. repeat
  13. read(s);
  14. if s='stop' then
  15. begin break;
  16. end else
  17. writeln(f,s)
  18. until false;
  19. writeln ('Файл создано!');
  20. Close(f);
  21. assign (f,'f.txt');
  22. {$I-}
  23. Reset(f);
  24. {$I+}
  25. while not eof (f) do
  26. begin
  27. readln(f,s);
  28. repeat
  29. z:=pos(' ',s);
  30. inc(kil_sl);
  31. if z<>0 then delete(s,1,z)
  32. else break
  33. until false;
  34. if not odd(kil_sl) then
  35. Assign(f1,'f1.txt');
  36. Reset(f); Rewrite(f1);
  37. while not Eof(f) do begin
  38. Readln(f,s);
  39. WriteLn(f1, s);
  40. end;
  41. Close(f);
  42. Close(f1); end;
  43. end.

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

textual
Листинг программы
  1. uses crt;
  2. var f,g: Text;
  3.     s:string;
  4.    i,kil_sl:byte;
  5. begin
  6. clrscr;
  7. assign (f,'F.txt');
  8. reset(f);{файл создаем в Блокноте и сохраняем в папке с пограммой}
  9. assign (g,'G.txt');
  10. rewrite(g);
  11. while not eof(f) do
  12.  begin
  13.   readln(f,s);
  14.   s:=' '+s;//пробел в начало для удобства
  15.   kil_sl:=0;
  16.   for i:=1 to length(s) do
  17.   if(s[i-1]=' ')and(s[i]<>' ')then inc(kil_sl);
  18.   if kil_sl mod 2=0 then writeln(g,s);
  19.  end;
  20. Close(f);
  21. Close(g);
  22. write('Файл F.txt прочитан, строки с четным количеством слов записаны в файл G.txt');
  23. readln
  24. 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы