Вывести количество чисел и их сумму в виде числительных - Free Pascal
Формулировка задачи:
Считывает текстовый файл. каждая строка которого изображает целое число, изображает слева и справа несколькими пробелами, и выводит количество этих чисел и их сумму в виде числительных т.е. словами
Program test; Var f:text; a,s,i: integer; begin assign(f,'test.txt'); reset(f); while not eof(f) do begin readln(f,a); s:=s+a; n:=n+1; end; writeln('Count: ',n); writeln('Amount: ',s); readln; end.
Решение задачи: «Вывести количество чисел и их сумму в виде числительных»
textual
Листинг программы
Program test; Var f:text; a,s,n: integer; begin assign(f,'test.txt'); reset(f); s:=0; n:=0; while not seekeof(f) do //последние пробелы читать не будет begin read(f,a); //читаем числа, пропуская пробелы s:=s+a; n:=n+1; end; close(f); writeln('Count: ',n); writeln('Amount: ',s); end.
Объяснение кода листинга программы
- Создаем текстовый файл с названием
test.txt
- Открываем файл
test.txt
для чтения - Инициализируем переменные
s
иn
со значениями 0 - Начинаем цикл while, который будет выполняться до тех пор, пока не будет достигнут конец файла
- Внутри цикла считываем число из файла и добавляем его к переменной
s
- Увеличиваем значение переменной
n
на 1 - Закрываем файл
test.txt
- Выводим на экран количество чисел (переменная
n
) - Выводим на экран сумму чисел (переменная
s
)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д