Создать файл из 2-х предложений и вывести из него на экран чётные цифры - Turbo Pascal

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

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

Создать файл из 2-х предложений и вывести из него на экран чётные цифры.

Решение задачи: «Создать файл из 2-х предложений и вывести из него на экран чётные цифры»

textual
Листинг программы
var f:text;
i,j:integer;
s:string;
BEGIN
Assign (f, 'Путь к файлу');
Rewrite (f);
For i:=1 to 20 do
Write (f,i);
Writeln(f);
For i:=20 downto 1 do
Write (f,i);
Close (f);
Reset (f);
For i:=1 to 2 do begin
Readln (f, s);
For j:=1 to Length(s) do
If s[j] in ['0','2','4','6','8'] THEN Write (s[j],' ');
Writeln;
end;
Close (f);
END.

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

  1. В первой части кода создается файл по указанному пути с помощью функции Assign и Rewrite.
  2. Во второй части кода происходит запись чисел от 1 до 20 в файл с помощью цикла For.
  3. В третьей части кода происходит запись чисел от 20 до 1 обратно в файл с помощью цикла For.
  4. Четвертая часть кода считывает строку из файла с помощью функции Readln.
  5. Пятая часть кода проверяет каждый символ в строке на равенство одному из символов '0', '2', '4', '6' или '8'.
  6. Если текущий символ является одним из этих символов, он записывается в новую строку.
  7. Выводится последняя строка, содержащая только четные цифры.
  8. Файл закрывается с помощью функций Close.
  9. Установка файла на начало с помощью функции Reset.
  10. Код повторяется для двух строк.
  11. Файл закрывается после каждой итерации.
  12. Код предназначен для работы с файлами, поэтому не использует вложенные списки.

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

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