ПРоблемы с графикой HELP!!!

[ANARHIST]

Нарисовать на экране катящееся по кривой вида Y=A*X*X колесо с че-тырьмя спицами В PASCAL

[ЕвгениуS]

имеется пара моих программ в этом же стиле ))
Вот код одной подобной программы. написанной на Паскале АВС

program prog1;
uses crt,GraphABC;
const t=20; d=5;
var I,x,y,e,r,gd,gm:integer;
procedure fff;
begin
circle(x+15,140,50);
circle(Y+639,140,50);
end;
procedure ff;
begin
circle(r+275,140,50);
circle(e+375,140,50);
end;
begin
repeat
fff;
Delay(t);
ClearWindow;
x:=x+d;
Y:=y-d;
until x>265;
repeat
ff;
Delay(t);
ClearWindow;
r:=r-d;
e:=e+d;
until e<0;
readln;
end.

И второй

program prog1;
uses crt,GraphABC;
const t=20; d=6;
var x,y,e,r:integer;
procedure fff;
begin
Arc(55,158-y,5,130,70);
line(59,155-y,54,149-y);
line(51,155-y,56,149-y);
end;
begin
repeat
line(1,140,50,140);
line(1,150,48,150);
Arc(50,150,10,0,90);
line(59,150,59,155);
line(50,152,50,155);
Arc(48,153,3,0,90);
line(59,150,59,155);
line(50,152,50,155);
line(50,157,60,157);
line(50,155,60,155);
line(49,156,50,156);
line(60,156,61,156);
fff;
Delay(t);
ClearWindow;
x:=x+d;
Y:=y-d;
until x>265;
line(1,140,50,140);
line(1,150,48,150);
Arc(50,150,10,0,90);
line(59,150,59,155);
line(50,152,50,155);
Arc(48,153,3,0,90);
line(59,150,59,155);
line(50,152,50,155);
line(50,157,60,157);
line(50,155,60,155);
line(49,156,50,156);
line(60,156,61,156);
end.

Может тебе поможет.
извини твою делать сейчас некогда. У самого завтра экзамен )))

[Serge_Bliznykov]

ANARHIST, очень рекомендую пользоваться поиском!!

тут эта задача была.
http://www.programmersforum.ru/showt...EE%EB%E5%F1%EE