Из файла переписать в файл те числа, которые больше чем среднее геометрическое значение всех модулей элементов входного файла

@adams1995 · Регистрация: 08.02.2014

Author24 — интернет-сервис помощи студентам

Из файла F,где находятся целые числа переписать в файл G,те которые больше чем среднее геометрическое значение всех модулей элементов входного файла.

@Nikakula · 25.03.2014, 17:31

Сообщение от adams1995

всех модулей элементов входного файла.

Можете немного пояснить, что такое модули?

@volvo · 25.03.2014, 18:22

Сообщение от Nikakula

что такое модули?

Абсолютные величины.

Pascal

var
  f, g : file of integer;
  geometric_mean : real := 1;
  X : integer;
begin
  Assign(f, 'f.dat'); reset(f);
  while not Eof(f) do
  begin
    read(f, X);
    geometric_mean *= abs(X);
  end;
  geometric_mean := Power(geometric_mean, 1 / FileSize(f));
  
  reset(f);
  assign(g, 'g.dat'); rewrite(g);
  while not Eof(f) do
  begin
    read(f, X);
    if X > geometric_mean then write(g, X);
  end;
  close(g);
  close(f);
end.

@adams1995 0 / 0 / 0 Регистрация: 08.02.2014 Сообщений: 20
		1
	Из файла переписать в файл те числа, которые больше чем среднее геометрическое значение всех модулей элементов входного файла 25.03.2014, 14:09. Показов 1047. Ответов 2 Метки нет (Все метки) Из файла F,где находятся целые числа переписать в файл G,те которые больше чем среднее геометрическое значение всех модулей элементов входного файла. 0

@Nikakula 9 / 9 / 16 Регистрация: 07.03.2014 Сообщений: 202
	25.03.2014, 17:31	2
	Сообщение от adams1995 всех модулей элементов входного файла. Можете немного пояснить, что такое модули? 0

	25.03.2014, 18:22

Из файла переписать в файл те числа, которые больше чем среднее геометрическое значение всех модулей элементов входного файла

Решение