Написать программу которая считает сколько чисел в текстовом файле 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.
- Запрос на ввод для завершения работы программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д