Упражнение на вычисление в цикле произведения [Паскаль]

[frenki]

помогите пожалуйста. в паскале задание 1/2*3/4*5/6*7/8... код вроде правильный а вот в формуле что то не так.

Используется синтаксис Pascal

program laba3_1;
var 
a,b,i,n:integer;                
p:real;
begin
write ('n=');
readln(n);
a:=1;
b:=2;
i:=0;
while i<=n do
begin
p:=(a/b)*((a+i)/(b+i));
i:=i+2;
end;
writeln (p);
end.
 

[gris]

Код неправильный. А именно то, что происходит с

1.  p 

внутри цикла и не произошло до него.
Код надо помещать в тег syntax в сообщениях на форуме.

[Toucan]

frenki, для вставки программного кода в сообщение на форуме исользуется тег syntax («Подсветка синтаксиса. Тег [syntаx][/syntаx]»)

[davvie]

Так как a и b никак не меняются в теле цикла, каждый раз первый множитель равен 1/2. Значение p, посчитанное на предыдущей итерации цикла, тоже никак не используется, а вычисляется заново с новым i. Возьмите небольшое n и вручную распишите, что делает программа и что происходит с p.

[Pphantom]

Заодно еще можно перестать закатывать Солнце вручную и воспользоваться готовым циклом for вместо его кустарного воспроизведения.