Создать типизированный файл из 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.

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

  1. Создается переменная f типа file of integer, которая представляет собой файл для записи и чтения целых чисел.
  2. Создаются три переменные k, i и j типа integer. Переменная k используется для задания количества целых чисел, которые будут записаны в файл. Переменные i и j используются для итерации по числам от 1 до k.
  3. Создается переменная s типа real, которая будет использоваться для хранения среднего значения чисел.
  4. Задается начальное значение для переменной s и устанавливается счетчик i в 0.
  5. Открывается файл f для чтения и записи.
  6. Записывается первое число в файл с помощью функции write(f,j).
  7. Устанавливается счетчик i в 1.
  8. В цикле пока не достигнут конец файла f считывается число с помощью функции read(f,j).
  9. Число добавляется к переменной s с помощью оператора s:=s+j.
  10. Устанавливается счетчик i в 1.
  11. Повторяется шаг 8 до тех пор, пока не достигнут конец файла f.
  12. Закрывается файл f.
  13. Вычисляется среднее значение чисел, хранящихся в переменной s, путем деления суммы на количество чисел.
  14. Выводится результат на экран с помощью функции writeln('<S>=',s/i:0:2).

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

15   голосов , оценка 4.133 из 5
Похожие ответы