Выбрать из файла положительные числа, вывести их на экран и записать в новый файл - Pascal

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

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

Написать программу, которая позволяет вводить действительные числа (количество предварительно задается либо завершается по указанию пользователя), заносить их в файл и выполнять их обработку: - Выбрать из файла положительные числа, вывести их на экран и записать в новый файл.

Решение задачи: «Выбрать из файла положительные числа, вывести их на экран и записать в новый файл»

textual
Листинг программы
var f: Text; t: Real;
begin
  Assign(input,'input.txt'); Assign(f,'output.txt');
  Reset(input); Rewrite(f);
  while not SeekEoF do begin
    Read(t); if t>0 then WriteLn(t); WriteLn(f,t); end;
  end;
  Close(f); Close(input);
end.

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

  1. Объявляется переменная f типа Text и переменная t типа Real.
  2. Происходит привязка файла input.txt к потоку ввода данных и файла output.txt к потоку вывода данных с помощью Assign(input,'input.txt'); Assign(f,'output.txt');
  3. Подготавливаются файлы input.txt и output.txt для работы с ними: Reset(input); Rewrite(f);
  4. Запускается цикл, проверяющий, есть ли еще данные в файле: while not SeekEoF do begin
  5. Внутри цикла происходит чтение из файла значения в переменную t: Read(t);
  6. Затем проверяется, больше ли значение t нуля, и если да, выводится на экран: if t>0 then WriteLn(t);
  7. Также значение переменной t записывается в файл output.txt: WriteLn(f,t);
  8. Цикл завершается, когда достигнут конец файла.
  9. Файл output.txt закрывается: Close(f);
  10. Закрывается файл input.txt: Close(input).

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

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