Вычислить сумму или произведение значений выражения для заданного числа значений аргумента - 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.

Объяснение кода листинга программы

  1. const n=9; — задает значение переменной n равное 9
  2. var i:integer; — объявляет переменную i типа integer
  3. x,h,p:real; — объявляет переменные x, h и p типа real
  4. h:=pi/9; — присваивает переменной h значение pi деленное на 9
  5. x:=0.1; — присваивает переменной x значение 0.1
  6. p:=sin(sqr(x))/(x+pi); — вычисляет значение переменной p как синус квадрата переменной x, деленный на (x+pi)
  7. for i:=2 to n do — начинает цикл, который будет выполняться от 2 до n (n не должно превышать 20)
  8. x:=x+h; — увеличивает значение переменной x на значение переменной h
  9. p:=p*sin(sqr(x))/(x+pi); — пересчитывает значение переменной p, умножая его на синус квадрата переменной x, деленный на (x+pi)
  10. end; — завершает цикл
  11. writeln(' '); — выводит пробел
  12. writeln(p); — выводит значение переменной p

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.769 из 5
Похожие ответы