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