Составьте программу, которая строит график зависимости y (x)=0,5x•cos2x на…

uses GraphABC; type FUN=function (x: real): real; function f (x: real): real; begin f: =0,5*x*cos (2*x); end; // l (logical) — логические координаты// s (screen) — физические координатыprocedure drawGraph (x1,x2,y1,y2: real; f: FUN); var xl,xl0,wl,yl,yl0,hl: real; xs0,ws,ys0,hs: integer; function LtoSx (xl: real): integer; begin Result: =round (ws/wl*(xl-xl0)+xs0); end; function LtoSy (yl: real): integer; begin Result: =round (hs/hl*(yl-yl0)+ys0); end; function StoLx (xs: integer): real; begin Result: =wl/ws*(xs-xs0)+xl0; end; var xi: integer; begin // drawGraph xs0: =0; ys0: =WindowHeight; ws: =WindowWidth; hs: =WindowHeight; xl0: =x1; yl0: =y1; wl: =x2-x1; hl: =- (y2-y1); MoveTo (xs0,LtoSy (f (StoLx (xs0); for xi: =xs0+1 to xs0+ws do LineTo (xi,LtoSy (f (StoLx (xi); end; begin // program SetWindowCaption ('График функции'); drawGraph (-12,12,-23,23,f); end.