Переписать в другой файл строки, в которых нет латинских букв - 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 не позволяет прочитать все строки из файлов, а только те, которые содержат хотя бы одну латинскую букву. Для каждой такой строки выполняется следующая последовательность действий:
    1. Строка записывается в переменную s.
    2. Переменная p устанавливается в значение false, если в строке есть хотя бы одна латинская буква. Если латинских букв нет, то переменная p устанавливается в значение true.
    3. Если значение переменной p равно true, то строка записывается в файл ru.txt. После завершения чтения файлов и записи строк в файл ru.txt, файлы en.txt и ru.txt закрываются. Затем начинается чтение файла ru.txt и запись строк из него в консоль.

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

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