Вычислить произведение - Pascal ABC (14489)

Формулировка задачи:

Что здесь не правильно, выводит 0
program LB5_2;
Var
x,P,i:real;
Begin
writeln('Введите x');
readln(x);
P:=1;
i:=3;
while i<=17 do
Begin
P:=(sin(i*pi*x))/(i*sqrt(x));
i:=i+2;
end;
writeln(P:5:3);
end.

Код к задаче: «Вычислить произведение - Pascal ABC (14489)»

textual
var x,P:real;
    i:byte;
begin
writeln('Введите x');
readln(x);
if x<=0 then
 begin
  write('Произведение не определено');
  exit;
 end;
P:=1;
i:=3;
while i<=17 do
 begin
  P:=P*(sin(i*pi*x))/(i*sqrt(x));
  i:=i+2;
 end;
writeln(P);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.167 из 5


СДЕЛАЙТЕ РЕПОСТ