Составить программу вычисления суммы отрицательных и суммы положительных значений функции - Turbo Pascal
Формулировка задачи:
Составить программу вычисления суммы отрицательных и суммы положительных значений функции: Z = ln(2+корень квадратный 1+cos^2 x )-arctg^2 y , при изменении агрумента х в интервале -2< или =x < или = 3.5; аргумент y изменяется в интервале 0,1< или = y < или = 0,4 : h=0,1
Решение задачи: «Составить программу вычисления суммы отрицательных и суммы положительных значений функции»
textual
Листинг программы
var z,x,y:real; s,s1:real; begin x:=-2; y:=0.1; while(x<=3.5) do begin while(y<=0.4) do begin z:=ln(2+SQRT(1+SQR(cos(x))))-SQR(arctan(y)); writeln('z=',z); if z>0 then s:=s+z else s1:=s1+z; y:=y+0.1; end; y:=0.1; x:=x+0.1; end; writeln('Сумма положительных=',s); writeln('Сумма отрицательных=',s1); end.
Объяснение кода листинга программы
- Объявляются переменные x, y, z, s, s1 типа real.
- Значения переменных x и y инициализируются как -2 и 0.1 соответственно.
- Задается условие для цикла while: x <= 3.5.
- Внутри цикла while задается еще одно условие для цикла while: y <= 0.4.
- Внутри второго цикла while происходит вычисление значения переменной z.
- Если значение переменной z положительное, то к переменной s прибавляется значение z. Если значение отрицательное, то к переменной s1 прибавляется значение z.
- После окончания внутреннего цикла while значение переменной y увеличивается на 0.1, а значение переменной x увеличивается на 0.1.
- После окончания внешнего цикла while выводятся значения сумм положительных и отрицательных значений переменной s и s1 соответственно.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д