Переписать в другой файл строки, в которых нет латинских букв - Pascal ABC
Формулировка задачи:
//Переписать в другой файл строки, в которых нет латинских букв.
Помогите пожалуйста!!
Решение задачи: «Переписать в другой файл строки, в которых нет латинских букв»
textual
Листинг программы
uses crt; var i:byte; s:string; f1,f2:text; p:boolean; begin clrscr; assign(f1,'en.txt'); assign(f2,'ru.txt'); reset(f1); rewrite(f2); while not eof(f1) do begin readln(f1,s); p:=true; for i:=1 to length(s) do if s[i] in ['a'..'z','A'..'Z'] then p:=false; if p then writeln(f2,s); end; close(f2); close(f1); reset(f2); {----kontrolnoe chtenie-------} while not eof(f2) do begin readln(f2,s); writeln(s); end; close(f2); end.
Объяснение кода листинга программы
В данном коде используется язык программирования Pascal ABC. Он предназначен для чтения строк из двух текстовых файлов, в которых отсутствуют латинские буквы, и записи этих строк в третий текстовый файл. Переменные в коде имеют следующие названия и значения:
- i:byte - переменная типа byte, которая инициализируется значением 1. Она используется в цикле for для перебора символов в строке.
- s:string - переменная типа string, которая инициализируется значением пустой строки. Она используется для хранения строк, прочитанных из файла.
- f1,f2:text - переменные типа text, которые инициализируются значениями 'en.txt' и 'ru.txt' соответственно. Это имена двух текстовых файлов, из которых читаются строки.
- p:boolean - переменная типа boolean, которая инициализируется значением true. Она используется для контроля выхода из цикла while. Если в строке есть хотя бы одна латинская буква, то значение переменной p меняется на false.
Цикл while не позволяет прочитать все строки из файлов, а только те, которые содержат хотя бы одну латинскую букву. Для каждой такой строки выполняется следующая последовательность действий:
- Строка записывается в переменную s.
- Переменная p устанавливается в значение false, если в строке есть хотя бы одна латинская буква. Если латинских букв нет, то переменная p устанавливается в значение true.
- Если значение переменной p равно true, то строка записывается в файл ru.txt. После завершения чтения файлов и записи строк в файл ru.txt, файлы en.txt и ru.txt закрываются. Затем начинается чтение файла ru.txt и запись строк из него в консоль.