Составление цикла, вычислить сумму Опции

[Serlos]

который чос решаю но никак не выходит
Задачка такая
вычислить сумму s=1/3+1/(3+2)+1/(3^2+2)+1/(3^3+2)+..+1/(3^10+2)
используя for и оператор go to
вот пробывал но невыходит

Program dgfsd;
Var
S:real;
p,i:integer;
begin
p:=0;
s:=0;
for i:=1 to 10 do
begin
 p:=p+i;
 s:=s+1/(p+2);
end;
writeln('s=',s:8:2);
readln;
end.

.

[Feagor]

не пойму в чем проблема?

uses crt;
const n=10;
var sum:real;
    i:integer;

begin
 clrscr;
 sum:=1/3;
 for i:=1 to n do sum:=sum+(1/(exp(i*ln(3))+2));
 writeln(sum:2:4);
 readkey;
end.

а если так уж и хочется через функцию, то:

uses crt;
const n=10;
var s:real;
    i:integer;
function sum(p:integer):real;
begin
sum:=1/(exp(p*ln(3))+2);
end;
begin
clrscr;
i:=0;
s:=1/3;
for i:=1 to n do s:=s+sum(i);
writeln(s);
readkey;
end.

Честно говоря, сложилось такое мнение что автор второй или 3 раз паскаль видит . Только без обид

Сообщение отредактировано: Feagor - 27.12.2007 22:30