Вычислите уравнение в паскале, пример №14

Ответ:

Free Pascal

uses sysutils;

var

 y, a, b : double;

 x, x1, x2 : integer;

begin

x1:=1;

x2:=2;

a:=0.5;

b:=3.1;

for x := x1 to x2 do begin

  y:= Sqrt(abs(a*x*sqr(sin(x)))) + exp(-2*x)*(x+b);

  writeln('x='+inttostr(x)+ ' y='+ floattostr(y));

end;

end.