Сделать график

var
x:real;
xg,yg,i:integer;
begin
SetWindowSize (450,350);
line(400,20,400,320);
line(5,170,420,170);
 
line(10,165,10,175);
TextOut(10,180,'-2П');
 
line(205,165,205,175);
TextOut(205,180,'-П');
 
line(108,165,108,175);
TextOut(108,180,'-3/2П');
 
line(303,165,303,175);
TextOut(303,180,'-П/2');
 
line(10,165,10,175);
TextOut(10,180,'-2П');
 
line(395,300,405,300);
TextOut(415,295,'-1');
 
line(395,40,405,40);
TextOut(415,30,'1');
 
line(395,105,405,105);
TextOut(410,100,'0,5');
 
line(395,235,405,235);
TextOut(410,235,'-0,5');
 
line(400,20,405,25);
line(400,20,395,25);
TextOut(380,20,'Y');
 
line(420,170,415,165);
line(420,170,415,175);
TextOut(435,170,'X');
 
TextOut(160,20,'y=sin(2x+1)');
 
x:=-2*pi;
for i:=0 to 390 do
begin
xg:=400+round((195/(pi))*x);
yg:=170-round(130*sin(2*x+1));
SetPixel (xg,yg,clRed);
x:=x+pi/195;
end;
end.

## 
uses graphABC;
function f(x:real):real;
begin
f:=sin(0.5*x);
end;
var s:string;
 
setwindowsize(800,500);
centerwindow;
//начало координат
var x0:=windowwidth div 2;
var y0:=windowheight div 2;
//оси
line(0,y0,2*x0,y0);
textout(2*x0-20,y0-20,'X');
line(x0,0,x0,2*y0);
textout(x0+5,0,'Y');
textout(x0+5,y0+10,'0');
//подписи по оси Х
var xn:=-2*pi;
var xk:=2*pi;
var mx:=(x0-20)/2/pi;
var my:=y0-20;
for var i:=1 to 4 do
 begin
  line(x0+round(i*pi*mx/2),y0-3,x0+round(i*pi*mx/2),y0+3);
  line(x0-round(i*pi*mx/2),y0-3,x0-round(i*pi*mx/2),y0+3);
  case i of
  1:s:='0.5pi';
  2:s:='pi';
  3:s:='1.5pi';
  4:s:='2pi';
  end;
  textout(x0+round(i*pi*mx/2),y0+10,s);
  textout(x0-round(i*pi*mx/2),y0+10,'-'+s);
 end;
//подписи по оси Y
for var i:=1 to 10 do
 begin
  if i mod 2=0 then
   begin
    line(x0-5,y0-round(i*my/10),x0+5,y0-round(i*my/10));
    line(x0-5,y0+round(i*my/10),x0+5,y0+round(i*my/10));
    textout(x0-25,y0-round(i*my/10)-5,floattostr(i/10));
    textout(x0-30,y0+round(i*my/10)-5,floattostr(-i/10));
   end
  else
   begin
    line(x0-3,y0-round(i*my/10),x0+3,y0-round(i*my/10));
    line(x0-3,y0+round(i*my/10),x0+3,y0+round(i*my/10));
   end;
 end;
setpencolor(clBlue);
var x:=xn;
var dx:=0.01;
while x<=xk do
 begin
  if x=xn then moveto(x0+round(x*mx),y0-round(f(x)*my))
  else lineto(x0+round(x*mx),y0-round(f(x)*my));
  x:=x+dx;
 end;