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

[Kelluin]

Сообщение от 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);

Kol равен 4 при распечатке, вместо n выставил Kol все равно "деление на 0", n изменил

[ZX Spectrum-128]

Попробуйте совет из сообщ. N 3

[Kelluin]

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

Попробуйте совет из сообщ. N 3

а куда тот код вставлять? написано в uses Math, но в коде у меня такого нет

[type_Oleg]

Вот сюда попробуйте, в начале вашей проги

uses crt,math;

А потом, вместо

:=root(pr,kol);

используйте

:=Power(pr,1/kol);

[Kelluin]

такого модуля не найдено... PascalABC

[ZX Spectrum-128]

Uses pabcsystem;
В нем функция power

[Kelluin]

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

Вот сюда попробуйте, в начале вашей проги

uses crt,math;

А потом, вместо

:=root(pr,kol);

используйте

:=Power(pr,1/kol);

Модуля Math нету у меня, после указанной замены кода Kol=40 что невозможно ибо компонентов всего 14

[Kelluin]

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

Uses pabcsystem;
В нем функция power

такого модуля тоже нет

[ZX Spectrum-128]

Хрень какая-то. Положите исходник со всеми изменениями.
Тот модуль системный, оказывается. Не нужно его отдельно цеплять.

[Kelluin]

на данный момент оно выглядит так

Program qwerty;
uses crt;
const n=14;
var f:file of integer;
    a,i,s,k,Kol:integer;
    Pr,c:real;

 function root(a:real;u:word):real;

var r: real;
begin
 r:=exp(ln(abs(Pr))*1/Kol);
 if c<0 then root:=-r else root:=r
end;

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
 Begin
 Pr:=pr*sqr(a);
Kol:=kol+1;
 //a:=a*a;
End;
End;
write('kol',Kol);
Pr:=Power(pr,1/kol);
 write(pr);

close(f);
writeln;
end.