begin. while not(eof (f)) do

Задача: Написать программу, которая выводит на экран сумму целых чисел, записанных в одну строку через пробел в текстовом файле input.txt.

Напишем программу для решения задачи. Назовём её summa. Для работы программы нам потребуется одна файловая переменная, назовём её f. Она будет принадлежать типу text. Также нам потребуется переменные для хранения суммы чисел и текущего числа. Назовём их соответственно s и t, так как это будут целые числа они будут принадлежать к целочисленному типу integer.

Напишем логические скобки. Тело программы будет начинаться с того, что мы присвоим переменной s, так как мы ещё не рассчитывали сумму чисел, значение 0. Дальше с помощью оператора assign мы назначим для файловой переменной f текстовый файл с именем input.txt. После этого с помощью оператора reset мы откроем для чтения файл, который назначили для переменной f. Дальше мы запишем цикл с предусловием while. Условием продолжения работы этого цикла будет то, что не достигнут конец файла. Для описания этого условия нужно записать с отрицанием логическую функцию eof (f). Тело цикла будет содержать два оператора, поэтому в логических скобках запишем оператор read, для ввода из файла, назначенного переменной f, значения текущего числа в переменную t. После него мы запишем оператор присваивания переменной s суммы её собственного значения и значения переменной t. По окончании работы описанного цикла в переменной s будет содержаться значение суммы чисел, содержащихся в файле. С помощью оператора close закроем файл, назначенный для переменной f. И запишем оператор write, выводящий на экран сообщение о том, что сумма чисел, содержащихся в файле input.txt равна значению переменной s.

programsumma;

var

f: text;

s, t: integer;

begin

s:=0;

assign (f, 'input.txt');

reset (f);

while not(eof (f)) do

begin

read (f, t);

s:=s+t;

end;

close (f);

write ('Сумма чисел, содержащихся в файле input.txt равна ', s);

end.

Исходный код программы

Создадим новый файл. В нём, в одну строку через пробел запишем целые числа: 4, 7, 400 и 93. Теперь сохраним то, что получилось под именем input.txt в директории по умолчанию и закроем. Такой файл мы можем создать в любом текстовом редакторе, например, Блокнот или Майкрософт Ворд. Запустим программу на выполнение.

Сумма чисел, записанных нами в файле, действительно равна 504. Программа работает правильно. Задача решена.