Составьте программу построения графика зависимости y=x*sin (x) на отрезке [-20; 20]

Program parabola;

Uses crt, GraphABC;

Const

w=800;

h=600;

x0=400;

y0=300;

k=20;

var i, x1, y1:integer;

x, y:real;

begin SetWindowSIze (w, h) ;

Line (0, y0, w, y0) ;

Line (x0,0, x0, h) ;

TextOut (x0+5, y0+5, '0') ;

TextOut (w-10, y0+5, 'x') ;

TextOut (x0+5,10,'y') ;

i:=k;

while i
begin

Line (i, y0-5, i, y0+5) ;

i:=i+k;

end;

i:=k;

While i
begin Line (x0-5, i, x0+5, i) ;

i:=i+k;

end;

x:=-20;

while x<=20 do

begin

y:=x*sin (x) ;

x1:=Round (x0+k*x) ;

y1:=Round (y0-k*y) ;

SetPixel (x0, y1, clblue) ;

SetPixel (x1, y0, clblue) ;

SetPixel (x1, y1, clred) ;

x:=x+0.01;

end;

SaveWindow ('Grafic. bmp') ;

end.