Написать программу которая считает сколько чисел в текстовом файле number.txt и определяет их сумму - Free Pascal
Формулировка задачи:
Создать файл number.txt и вписать туда разные числа. Написать программу которая считает сколько чисел в текстовом файле number.txt и определяет их сумму.
Решение задачи: «Написать программу которая считает сколько чисел в текстовом файле number.txt и определяет их сумму»
textual
Листинг программы
var n, s: real;
f: text;
k: integer;
begin
assign(f, 'c:\number.txt');
reset(f);
s := 0;
k := 0;
while not(eof(f)) do
begin
readln(f, n);
s := s + n;
inc(k)
end;
writeln('s = ', s, ', k = ', k);
readln
end.
Объяснение кода листинга программы
- Объявляются переменные n, s, f, k.
- Переменная f открывается для чтения из файла number.txt.
- Переменная s инициализируется нулем, а переменная k - нулем.
- В цикле while с условием not(eof(f)) считываются числа из файла и добавляются к переменной s, а также увеличивается счетчик k.
- Выводятся значения переменных s и k.
- Запрос на ввод для завершения работы программы.