Проблема с последовательностью.

[dimka123]

helpin.jpg

в чем может быть проблема или я ее не правильно сделал?

Program pr4_2;
uses crt;
var n:integer;
const eps=0.003;
function A(n:integer):real;
var i:integer; S:real;
begin S:=0;
for i:=1 to (n-1) do 
S:=S+sqr(cos(i*Pi/n));
A:=S/sqr(n);
end;
begin clrscr;
writeln('A=');n:=2;
while abs(A(n)-A(n-1))>eps do 
n:=n+1;
writeln ('A(',n:3,')',A(n));
readln
end.

[Vanta11a]

A:=S/sqr(n);

Вынести вне цикла.
У Вас получаете, что Вы делите первое слагаемое n-1 раз, второе - n-2 и т.д.

[Kemperh4]

dimka123
Вот тут:

writeln('A=');n:=2;

поставь:

n:=3;

а это тут вообще не нужно:

writeln('A=');

А вместо

writeln ('A(',n:3,')',A(n));

сделай:

writeln ('A(',n,')',A(n));

тогда смотриться красивее...

Vanta11a

A:=S/sqr(n);

Вынести вне цикла.
У Вас получаете, что Вы делите первое слагаемое n-1 раз, второе - n-2 и т.д.

Если после do нету begin, в цикле будет исполняться только одна команда

[Vanta11a]

Если после do нету begin, в цикле будет исполняться только одна команда

Точно. Я невнимателен.