Маятник, видео страницы Опции

[punkska]

необходимо создать программу *мяатник* используя видео страницы!

хотел обсудить как это сделать! (надо написать 2 вырианта с объетом и без)

1. без объектов
нарисовать маятник (шарик и палочку) в левом и правом положении и поочерёдно менять... так лучше???

2.
создать объект .........может создать массив с координами..??? подскажите как лучше?

и если есть примеры программ с использванием видеостраниц кинь те мне ! буду очень благодарен! просто не стакивался в своей практике с видеостраницами и не умею с ними работать....а надо уметь :yessss:

[punkska]

посидел на форуме ..почитал линки
и вот вроде на http://skopin.fromru.com/p_graph.htm есть такая программа

program mayatnik(input,output);
uses crt,graph;
var a,b,c,d,y,r,i,x:integer;

procedure risunok;
begin
  setfillstyle(9,red);
  setcolor(red);
  line(300,100,300+x,100-y);
  circle(300+x,105-y,5);
  floodfill(300+x,105-y,red);
end;

procedure risunokfill;
begin
  setcolor(green+blue);
  setfillstyle(1,green+blue);
  line(300,100,300+x,100-y);
  circle(300+x,105-y,5);
  floodfill(300+x,105-y,green+blue);
end;

procedure pravoL;
begin
for x:=-60 to 0 do begin
if keypressed then exit;

y:=round(-sqrt(40000-sqr(x)));

risunok;

if x>=-15 then i:=i+1;
delay(40-i);

risunokfill;
                   end;
end;

procedure pravoR;
begin
for x:=0 to 60 do begin
if keypressed then exit;

y:=round(-sqrt(40000-sqr(x)));

risunok;

if x>=30 then i:=i+1;
delay(40+i);

risunokfill;
                   end;
end;

procedure vlevoR;
begin
for x:=60 downto 0 do begin
if keypressed then exit;

y:=round(-sqrt(40000-sqr(x)));

risunok;

if x<=15 then i:=i+1;
delay(40-i);

risunokfill;
                        end;
end;

procedure vlevoL;
begin
for x:=0 downto -60 do begin
if keypressed then exit;

y:=round(-sqrt(40000-sqr(x)));

risunok;

if x<=-30 then i:=i+1;
delay(40+i);

risunokfill;
                        end;
end;


begin
clrscr; {очистка экрана}
initgraph(a,b,'');
 setbkcolor(green+blue);
 setlinestyle(0,0,3);
 line(280,100,320,100);
 setlinestyle(0,0,0);
delay(1000);

ellipse(300,100,250,290,211,211);

repeat
i:=1; pravoL;
i:=1; pravoR;
i:=1; vlevoR;
i:=1; vlevoL;
until keypressed;
closegraph;
end.

да не очень подходит мне =( ...