Вот исходный код программы:
Код
Program BFGD;
Uses graph;
Var dg,dm:integer;
Function F(x:real):real;
begin
F:=x;
end;
procedure grafik(a,b:real);
var x,dx,max,min,koef:real;
k,xo,yo:integer;
begin
dx:=(b-a)/639;
x:=a;
max:=f(a); min:=f(a);
for k:=1 to 640 do
begin
if f(x)>max then max:=F(x);
if f(x)<min then min:=f(x);
x:=x+dx;
end;
koef:=479/(max-min);
x:=a;
moveto(0,round(479-koef*(f(a)-min)));
for k:=1 to 639 do
begin
x:x+dx;
lineto(k,round(479-koef*(f(x)-min)));
end;
xo:=round(639*a/(a-b));
line (xo,0,xo,479);
yo:=round(479-479*(min/(min-max)));
line(0,yo,639,yo);
end;
Begin
dg:=detect; initgraph(dg,dm,' ');
grafik(-2,2);
readln;
closegraph;
end.
Вот помогите его в Delphi преобразовать!