Построить график функции: y = а*sin (x+b) + x при а = 3,2; b = 2,0; шаг h и значения х (не менее 15 значений) задать самостоятельно.

Program Pr1;

uses crt, graphABC;

var y, x, a, b:real;

Begin

clrscr;

setwindowsize (400,400) ;

line (0,200,400,200) ;

line (200,0,200,400) ;

setbrushcolor (clblack) ;

a:=3.2;

b:=2;

x:=-30;

while x<=30 do begin

y: = - (a*sin (x+b) + x) ;

circle (trunc (x*20+200), trunc (y*20+200),3) ;

x:=x+0.1;

end;

end.