100 БАЛЛОВ

Напишите программный код на языке Паскаль для вычисления модуля разности максимального и минимального значений у, если y = tgx³ · sin x, x ∈ [–2π; 2π], при шаге π/4

Ответ:

program z;

var x,y,mx,mn:real;

begin

x:=-2*pi;

mx:=tan(x*x*x)*sin(x);

mn:=tan(x*x*x)*sin(x);

while x<=2*pi do

begin

y:=tan(x*x*x)*sin(x);

writeln('x = ',x:6:3,'y = ':7,y:0:3);

if y>mx then mx:=y;

if y<mn then mn:=y;

x:=x+pi/4

end;

write('|',mx:0:3,' - (',mn:0:3,')| = ',abs(mx-mn):0:3)

end.