с паскаля на плюсы

program plast;
Uses Crt, graphABC;
const mash=20; ampl=5; fi0=pi/4;  om=1;
Var
   grMode,grDriver,errCode,i,l:integer;
   r:integer;
function f(x:real):real;
begin
    f:=ampl*cos(om*x+fi0);
end;
 
procedure DrawCoord;
var j:integer; s:string;
begin
  setcolor(6);
  line(0,240,640,240);
  i:=320;  j:=0;
  while i<=640 do
  begin
       line(i,239,i,241);
       i:=i+mash; j:=j+1;
       str(j,s);
       Outtextxy(i,245,s);
  end;
         i:=320;
  while i>=0 do
  begin
       line(i,239,i,241);
    i:=i-mash;
  end;
 
end;
 
procedure Polyar;
var
  i,dx,al,x,b,xx:real;
  k:integer;
begin
 highvideo;
  al:=20; i:=0; dx:=pi/300;
 while (i<=al+dx) do
  begin
      putpixel(round(320+mash*i),round(240-mash*f(i)),5);
      i:=i+dx;
      {setcolor(7);
      circle(320,round(240-f(i)*mash),10);
      for k:=1 to 3200 do;
      setcolor(15);
      circle(320,round(240-f(i)*mash),10); }
  end;
 
end;
 
procedure InitGr;
begin
 grdriver:=detect;
 initgraph(grdriver,grmode,'');
 errcode:=graphresult;
 if errcode=0 then
  begin
      SetBkColor(15);
      DrawCoord;
      Polyar;
      readln;
  end
  else
  begin
    writeln('ERROR : ',errcode);
    readln;
    halt(1);
  end;
   closegraph;
end;
 
BEGIN
clrscr;
          InitGr;
END.