Переписать в файл g все строчки файла f, которые состоят из четного количества слов - Turbo Pascal
Формулировка задачи:
Задан текстовый файл. Переписать у файл g все строчки файла f, которые состоят с четного количества слов.
Листинг программы
- program lr8;
- uses crt;
- var
- f,f1: Text;
- s, stop: string;
- i, z, kil_sl:integer;
- begin
- assign (f,'f.txt');
- rewrite (f);
- writeln('Остановка создания файла - stop');
- repeat
- read(s);
- if s='stop' then
- begin break;
- end else
- writeln(f,s)
- until false;
- writeln ('Файл создано!');
- Close(f);
- assign (f,'f.txt');
- {$I-}
- Reset(f);
- {$I+}
- while not eof (f) do
- begin
- readln(f,s);
- repeat
- z:=pos(' ',s);
- inc(kil_sl);
- if z<>0 then delete(s,1,z)
- else break
- until false;
- if not odd(kil_sl) then
- Assign(f1,'f1.txt');
- Reset(f); Rewrite(f1);
- while not Eof(f) do begin
- Readln(f,s);
- WriteLn(f1, s);
- end;
- Close(f);
- Close(f1); end;
- end.
Решение задачи: «Переписать в файл 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. Он предназначен для работы с текстовыми файлами.
- Создаются два объекта файла: f и g. Файл f предназначен для чтения, а файл g - для записи.
- Задается переменная s, которая будет содержать строку из файла f.
- Задаются две переменные i и kil_sl. Переменная i используется для подсчета количества слов в строке, а переменная kil_sl - для отслеживания того, сколько слов уже было прочитано.
- Открывается файл f и считывается первая строка.
- Строка s дополняется пробелом в начале и очищается от лишних пробелов.
- Переменная i и kil_sl инициализируются.
- Запускается цикл, который будет выполняться до конца файла f.
- Внутри цикла считывается следующая строка из файла f, и проверяется, состоит ли она из четного количества слов. Если это так, то эта строка записывается в файл g.
- После окончания цикла файл f закрывается, а файл g - записывается.
- Выводится сообщение о том, что файл f был прочитан, а строки с четным количеством слов были записаны в файл g.
- Программа завершается вызовом функции readln.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д