Составить программу вычисления суммы отрицательных и суммы положительных значений функции - 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

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

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.

14   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ