Создать типизированный файл из K целых чисел и найти их среднее значение - Turbo Pascal
Формулировка задачи:
Дано: целое число К.
Требуется: Создать типизированный файл из К целых чисел и найти их среднее значение.
Решение задачи: «Создать типизированный файл из K целых чисел и найти их среднее значение»
textual
Листинг программы
var f:file of integer; k,i,j:integer; s:real; begin randomize; write('k=');readln(k); assign(f,'ifile.int'); rewrite(f); for i:=1 to k do begin j:=random(100);write(j:5); write(f,j); end; writeln; close(f); reset(f); s:=0;i:=0; while not eof(f) do begin read(f,j);s:=s+j;i:=i+1; end; close(f); writeln('<S>=',s/i:0:2); end.
Объяснение кода листинга программы
- Создается переменная
f
типаfile of integer
, которая представляет собой файл для записи и чтения целых чисел. - Создаются три переменные
k
,i
иj
типаinteger
. Переменнаяk
используется для задания количества целых чисел, которые будут записаны в файл. Переменныеi
иj
используются для итерации по числам от 1 доk
. - Создается переменная
s
типаreal
, которая будет использоваться для хранения среднего значения чисел. - Задается начальное значение для переменной
s
и устанавливается счетчикi
в 0. - Открывается файл
f
для чтения и записи. - Записывается первое число в файл с помощью функции
write(f,j)
. - Устанавливается счетчик
i
в 1. - В цикле пока не достигнут конец файла
f
считывается число с помощью функцииread(f,j)
. - Число добавляется к переменной
s
с помощью оператораs:=s+j
. - Устанавливается счетчик
i
в 1. - Повторяется шаг 8 до тех пор, пока не достигнут конец файла
f
. - Закрывается файл
f
. - Вычисляется среднее значение чисел, хранящихся в переменной
s
, путем деления суммы на количество чисел. - Выводится результат на экран с помощью функции
writeln('<S>=',s/i:0:2)
.