Паскаль6_1

Составить программу, которая строит график зависимости y(x)=0,4х+2sin3x  на промежутке [-15;15].

Program Grafik;

uses GraphABC;

Var x0,y0, x1,y1, k  :   integer;   x,y: real;

Begin

  setWindowSize(640,400);

   x0:=320; y0:=200; k:=20;

   line(x0,20,x0,380);   line(20,y0,620,y0);           {оси координат}

   setPenColor(clRed);

   x:=-15; { начальное значение аргумента }

   While x<=15 do

   begin

     y:=0.4*x+2*sin(3*x);         { функция }

     x1:=trunc(x0+x*k);  y1:=trunc(y0-y*k); { экранные координаты }

     circle(x1,y1,2);

     x:=x+0.02;

   end;

end.