Вычислить сумму или произведение значений выражения для заданного числа значений аргумента - Pascal ABC
Формулировка задачи:
Помогите исправить задачу. Я ее написал и не могу понять где ошибка. вычислить сумму или произведение значений выражения для заданного числа значений аргумента, изменяющегося от начального значения с шагом h .
Решение задачи: «Вычислить сумму или произведение значений выражения для заданного числа значений аргумента»
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.
Объяснение кода листинга программы
- const n=9; — задает значение переменной n равное 9
- var i:integer; — объявляет переменную i типа integer
- x,h,p:real; — объявляет переменные x, h и p типа real
- h:=pi/9; — присваивает переменной h значение pi деленное на 9
- x:=0.1; — присваивает переменной x значение 0.1
- p:=sin(sqr(x))/(x+pi); — вычисляет значение переменной p как синус квадрата переменной x, деленный на (x+pi)
- for i:=2 to n do — начинает цикл, который будет выполняться от 2 до n (n не должно превышать 20)
- x:=x+h; — увеличивает значение переменной x на значение переменной h
- p:=p*sin(sqr(x))/(x+pi); — пересчитывает значение переменной p, умножая его на синус квадрата переменной x, деленный на (x+pi)
- end; — завершает цикл
- writeln(' '); — выводит пробел
- writeln(p); — выводит значение переменной p
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д