Написать программу которая считает сколько чисел в текстовом файле number.txt и определяет их сумму - Free Pascal

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

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

Создать файл number.txt и вписать туда разные числа. Написать программу которая считает сколько чисел в текстовом файле number.txt и определяет их сумму.

Решение задачи: «Написать программу которая считает сколько чисел в текстовом файле number.txt и определяет их сумму»

textual
Листинг программы
  1. var n, s: real;
  2.     f: text;
  3.     k: integer;
  4. begin
  5.   assign(f, 'c:\number.txt');
  6.   reset(f);
  7.   s := 0;
  8.   k := 0;
  9.   while not(eof(f)) do
  10.     begin
  11.       readln(f, n);
  12.       s := s + n;
  13.       inc(k)
  14.     end;
  15.   writeln('s = ', s, ',  k = ', k);
  16.   readln
  17. end.

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

  1. Объявляются переменные n, s, f, k.
  2. Переменная f открывается для чтения из файла number.txt.
  3. Переменная s инициализируется нулем, а переменная k - нулем.
  4. В цикле while с условием not(eof(f)) считываются числа из файла и добавляются к переменной s, а также увеличивается счетчик k.
  5. Выводятся значения переменных s и k.
  6. Запрос на ввод для завершения работы программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

5   голосов , оценка 4.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы