АЛГОРИТМ ВЫЧИСЛЕНИЯ ПРОИЗВЕДЕНИЯ ЗНАЧЕНИЙ

При вычислении произведения значений пользуются оператором типа

p:=p* значение,

причем первоначально "p" должно быть равно единице.

Пример: вычислить произведение значений функции в точках 1,3,5,...,33

1 способ (repeat) program prim;

var p,x,y:real;

begin

p:=1; x:=1;

repeat

y:=sqrt(x);

p:=p*y;

x:=x+2;

until x>33;

writeln('произведение=', p);

end.

2 способ (while) program prim;