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

[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.

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

[klem4]

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

почему ?;)))

на тебе версию попрощe )))))))

uses crt, graph;

function GrInit : boolean;
var
  gd, gm, ge : integer;

begin

   gd := VGA;
   gm := VGAHi;

   InitGraph(gd, gm, '');

   ge := GraphResult;

   if ge<>grOk then
    writeln('Graph Error N ', GraphErrorMsg(ge));

   GrInit := (ge=grOk);

end;

procedure AnimGo;
var
   i, x, y : word;
begin

   x := GetMaxX div 2;
   y := GetMaxY div 2;

   repeat
      i := x-100;
      while(i<=x+100) do begin

         SetActivePage(1);
         SetVisualPage(1);

         Line(x, 0, i, y);
         Circle(i, y, 30);

         SetActivePage(0);
         SetVisualPage(0);

         inc(i,10);

         delay(50);

         ClearDevice;
      end;

      while(i>=x-100) do begin
          SetActivePage(1);
          SetVisualPage(1);

          Line(x, 0, i, y);
          Circle(i, y, 30);

          SetActivePage(0);
          SetVisualPage(0);

          dec(i,10);

          delay(50);

          ClearDevice;

       end;

   until keypressed;

end;

Begin

   if GrInit then
    AnimGo;

   readln;

End.

не уверен правдо что все по уму, видео страницы не юзал никогда
+ без красивостей, да и сократить можно раза в 2

Сообщение отредактировано: klem4 - 28.09.2005 0:37