Перевести код программм из Pascal в Pascalabc.net

[ParkerVans]

Здравствуйте. Помогите пожалуйста Перевести код программм из Pascal в Pascalabc.net.

uses graph;
function fy(a,b:real):real;
begin
fy:=a*sin(b)
end;
var xc,yc,x,y1,y2,y3:integer;
    b,m:real;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
m:=20;
b:=0;
while b<=2*pi do
 begin
  x:=xc+round(5*cos(b)*m);
  y1:=yc-round(fy(2.5,b)*m);
  putpixel(x,y1,12);
  y2:=yc-round(fy(5,b)*m);
  putpixel(x,y2,9);
  y3:=yc-round(fy(10,b)*m);
  putpixel(x,y3,10);
  b:=b+0.001
 end;
readln
end.

[Alex11223]

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[ParkerVans]

function fy(a,b:real):real;

begin
var initgraph:real;
var phi:real;
fy:=a*sin(phi)
end;
var xc,yc,x,y1,y2,y3:integer;
b,m:real;
begin
initgraph(xc,yc,'');//Инициализирует графическую систему и переводит видеокарту в графический режим.
xc:=getmaxX div 2;//getmaxX целочисленно делим на 2
yc:=getmaxY div 2;//getmaxY целочисленно делим на 2
m:=20;
phi:=0;
while b<=2*pi do//выполнять до тех пор пока f<=2*pi
begin
x:=xc+round(18+cos(b)*m);//формула
y1:=yc-round(fy(2.5,b)*m);//формула
putpixel(x,y1,12);//процедура, закрашивает пиксель с координатами (x, y2) цветом c=12
y2:=yc-round(fy(5,b)*m);//формула
putpixel(x,y2,9);//процедура, закрашивает пиксель с координатами (x, y2) цветом c=9
y3:=yc-round(fy(10,b)*m);//формула
putpixel(x,y3,10);//процедура, закрашивает пиксель с координатами (x, y2) цветом c=10
b:=b+0.001//прибавляем к значению b
end;
end. Пишет неизвестный имя 'initgraph'

[Alex11223]

Сообщение от ParkerVans

Пишет неизвестный имя 'initgraph'

ну дык там нет модуля graph из ДОСовского Турбо Паскаля.

Смотрите справку и переделывайте с его графическим модулем.

[ParkerVans]

uses graphabc; подключил модуль и пишет неизвестный имя 'initgraph'

[Alex11223]

Ну так там другие функции, говорю ж смотрите справку по нему.