Вычислить сумму или произведение значений выражения для заданного числа значений аргумента - Pascal ABC

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

Помогите исправить задачу. Я ее написал и не могу понять где ошибка. вычислить сумму или произведение значений выражения для заданного числа значений аргумента, изменяющегося от начального значения с шагом h .
program z21n3;
uses crt;
var i:integer;
x,h,s:real;
begin
write('Введите Х= ');
read(x);
h:=(pi/9);
s:=1;
for i:=1 to 9 do
begin
s:=s*((sin(sqr(x)))/(x+pi));
x:=x+h;
writeln(s:0:7);
end;
end.

Код к задаче: «Вычислить сумму или произведение значений выражения для заданного числа значений аргумента - Pascal ABC»

textual
const n=9;
var i:integer;
    x,h,p:real;
begin
h:=pi/9;
x:=0.1;
p:=sin(sqr(x))/(x+pi);
for i:=2 to n do
 begin
  x:=x+h;
  p:=p*sin(sqr(x))/(x+pi);
 end;
writeln(' ');
writeln(p);
end.
Эта работа вам не подошла?

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

13   голосов, оценка 3.769 из 5


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