Сформировать типизированный файл, содержащие действительные числа. Вычислить среднее арифметическое этих чисел

@OLYA19903 · Регистрация: 28.01.2018

Сформировать типизированный файл ,содержащие действительные числа.Вычислить среднее арифметическое этих чисел

@ZX Spectrum-128 · 20.05.2018, 18:42

Pascal

const
  n = 10;
 
var
  f: file of real;
  i: integer;
  x, sr: real;
 
begin
  assign(f, 'numbers.dat');
  rewrite(f);
  for i := 1 to n do
    write(f, -n div 2 + random * n);
  close(f);
  reset(f);
  sr := 0;
  while not eof(f) do
  begin
    read(f, x);
    sr := sr + x;
  end;
  close(f);
  writeln('Среднее арифметическое = ', sr / n:0:4)
end.

@OLYA19903 · 21.05.2018, 00:56 **[ТС]**

а так можно?

Pascal

const
  n = 10;
 type numbers=record
 f:real;end;
 
var
  f: file of real;
  i: integer;
  x, sr: real;
 
begin
  assign(f, 'numbers.dat');
  rewrite(f);
  for i := 1 to n do
    write(f, -n div 2 + random * n);
  close(f);
  reset(f);
  sr := 0;
  while not eof(f) do
  begin
    read(f, x);
    sr := sr + x;
  end;
  close(f);
  writeln('Среднее арифметическое = ', sr / n:0:4)
end.

@ZX Spectrum-128 · 21.05.2018, 08:36

Pascal

1 2	type numbers=record f:real;end;

А это зачем? Всё равно не используете.
А остальная программа - моя.

@OLYA19903 0 / 0 / 0 Регистрация: 28.01.2018 Сообщений: 47
		1
	Сформировать типизированный файл, содержащие действительные числа. Вычислить среднее арифметическое этих чисел 20.05.2018, 18:32. Показов 694. Ответов 3 Метки нет (Все метки) Сформировать типизированный файл ,содержащие действительные числа.Вычислить среднее арифметическое этих чисел 0

Опции темы