Найти сумму чётных чисел в файле - Free Pascal
Формулировка задачи:
В файле хранятся целые числа. Найдите сумму четных чисел без использования массивов?
Решение задачи: «Найти сумму чётных чисел в файле»
textual
Листинг программы
var
f: file of Integer;
i: Integer;
s: Longint;
begin
Assign(f,'file.bin'); Reset(f);
while not EOF(f) do begin
Read(i); if not Odd(i) then s:=s+i;
end;
Close(f);
WriteLn('Сумма четных: ',s);
end.
Объяснение кода листинга программы
- Объявляются три переменные:
- f: файл типа file of Integer (предполагается, что в файле записаны целые числа);
- i: целочисленная переменная для чтения чисел из файла;
- s: переменная типа Longint для хранения суммы четных чисел.
- Открывается файл 'file.bin' с помощью функции Assign(f,'file.bin').
- Файл переводится в начальное положение с помощью функции Reset(f).
- Запускается цикл while, который выполняется до тех пор, пока не достигнется конец файла (EOF).
- В каждой итерации цикла из файла считывается очередное число с помощью функции Read(i).
- Если число нечетное (Odd(i) = False), то оно не учитывается в сумме.
- Если число четное (Odd(i) = True), то оно добавляется к переменной s.
- После окончания цикла файл закрывается с помощью функции Close(f).
- Выводится сообщение с помощью функции WriteLn, в котором указывается значение переменной s - сумма четных чисел.