Прибавьте к каждому целому числу файла число 100 - Turbo Pascal (33782)

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

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

Напишите программу создания файла, с целыми числами, прибавьте к каждому целому числу этого файла число 100, результат выведите на экран и в новый текстовый файл.

Решение задачи: «Прибавьте к каждому целому числу файла число 100»

textual
Листинг программы
var
   f,g: file of integer;
   n,i: integer;
begin
     Assign(f,'input.dat');  Reset(f);
     Assign(g,'output.dat'); Rewrite(g);
     While not Eof(f) do begin
           Read(f,n);
           i:=n-8240+100;
           Write(g,i);
           end;
     Close(f);
     Close(g);
     Assign(g,'output.dat'); Reset(g);
     While not Eof(g) do begin
           Read(g,i);
           Writeln(i);
           end;
     Close(g);
Readln;
end.

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

  1. В начале кода объявляются переменные f, g, n и i. Переменная f является файлом, а переменные g и n — целыми числами. Переменная i используется для вычисления значения n минус 8240 плюс 100.
  2. Затем выполняется команда Assign(f,'input.dat'), которая устанавливает файл f для чтения из файла 'input.dat'.
  3. После этого выполняется команда Reset(f), которая сбрасывает файл f в начало.
  4. Далее, в цикле While не Eof(f) do, происходит чтение каждого числа из файла f в переменную n.
  5. Для каждого прочитанного числа, значение переменной i вычисляется как (n-8240+100). Это число затем записывается в файл g с помощью команды Write(g,i).
  6. После окончания цикла чтение файла f, файл g закрывается с помощью команд Close(f) и Close(g).
  7. Затем, в цикле While не Eof(g) do, происходит запись каждого числа из файла g в переменную i с помощью команды Read(g,i).
  8. После окончания второго цикла, значение переменной i выводится на экран с помощью команды Writeln(i).
  9. Наконец, файл g закрывается с помощью команд Close(g) и Readln;.

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

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