Question

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

Answer 1

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.