Среднее геометрическое

[Kelluin]

Есть такое задание,

Ввести файл F из 14 элементов. Определить среднее геометрическое
квадратов элементов, стоящих на позициях кратных трѐм.

Ни как не могу разобраться с нахождением среднего геометрического. (Сейчас в программке числа на нужных позициях просто возводятся в квадрат.) Помогите пожалуйста.

Program qwerty;
uses crt;
const n=14;
var f:file of integer;
    a,i,s,k:integer;
    c:real;
 
begin
clrscr;
assign(f,'file');
rewrite(f);
writeln('Введите в файл целые числа:');
for i:=1 to n do
 begin
 readln(a);
 write(f,a);
 end;
clrscr;
writeln('Содержание исходного файла:');
reset(f);
s:=0;
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a,' ');
 end;
 writeln;
  close(f);
 reset(f);
  writeln('Содержание измененного файла: ');
 for i:=0 to filesize(f)-1 do
 begin
 read(f,a);
 if filepos(f) mod 3=0 then
 a:=a*a;
 write(a,' ');
 end;
  
close(f);
writeln;
end.

[ZX Spectrum-128]

function root(a:real;n:word):real;
 {Тип word здесь указывает, что n положительно}
var r: real;
begin
 r:=exp(ln(abs(a))/n);              {корень из модуля}
 if a<0 then root:=-r else root:=r  {учет знака}
end;

И позиция, кратная 3 вроде как
(Filepos(f)+1) mod 3

[type_Oleg]

Или добавить в uses Math, и

root:=Power(a,1/n);

если a - произведение тех, чье ср.геом. надо найти,
n - их количество

[Kelluin]

Сообщение от ZX Spectrum-128

function root(a:real;n:word):real;
 {Тип word здесь указывает, что n положительно}
var r: real;
begin
 r:=exp(ln(abs(a))/n);              {корень из модуля}
 if a<0 then root:=-r else root:=r  {учет знака}
end;

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

Или добавить в uses Math, и

root:=Power(a,1/n);

если a - произведение тех, чье ср.геом. надо найти,
n - их количество

Чего-то я ничего не понял
Объясните пожалуйста поподробнее.

[type_Oleg]

Среднее геометрическое n чисел - это корень степени n произведения этих чисел, или то же самое - произведение, возведенное в степень 1/n
Если в переменной а у вас - это самое произведение, то вам написали, как найти корень степени n
Например, ср.геом. чисел 1,9,4 равно 3.301927249. В это случае a=36

[Kelluin]

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

Среднее геометрическое n чисел - это корень степени n произведения этих чисел, или то же самое - произведение, возведенное в степень 1/n
Если в переменной а у вас - это самое произведение, то вам написали, как найти корень степени n
Например, ср.геом. чисел 1,9,4 равно 3.301927249. В это случае a=36

Спасибо, но я знаю как находится среднее геометрическое. Я немного не догоняю как это реализовать в моем коде

[ZX Spectrum-128]

 if (filepos(f)+1) mod 3=0 then
Begin
 Pr:=pr*a;
Kol:=kol+1;
 //a:=a*a;
End;
End;
Pr:=root(pr,kol);
 write(pr);

[Kelluin]

Сообщение от ZX Spectrum-128

 if (filepos(f)+1) mod 3=0 then
Begin
 Pr:=pr*a;
Kol:=kol+1;
 //a:=a*a;
End;
End;
Pr:=root(pr,kol);
 write(pr);

пишет "вещественное деление на 0". в этой строке

r:=exp(ln(abs(a))/n);

Может я не туда тыкаю код? Котелок не варит сегодня

[type_Oleg]

Непонятно почему.
А вообще, у вас n - константа, число всех элементов.
А вам надо ср.геом. только квадратов элементов, стоящих на позициях кратных трѐм

PS А, пардон, n - это еще и локальная пременная в функции root

[ZX Spectrum-128]

Kol почему то равен 0. Перед вызовом функции распечатайте kol посмотрите чему оно равна.
В функции root замените n на другую переменную.

 if (filepos(f)+1) mod 3=0 then
Begin
 Pr:=pr*sqr(a); <---- у меня здесь еще ошибка была
Kol:=kol+1;
 //a:=a*a;
End;
End;
Pr:=root(pr,kol);
 write(pr);