Programalama > PASCAL

USES GRAPH,crt;
VAR
 GD,GM,i,x,y:INTEGER;
 sart:boolean;
BEGIN
    GD:=DETECT;
    GM:=1;
    INITGRAPH(GD,GM,'c:\BP\BGI'); {graph modulunun bulundugu klasoru gotermelisiniz}
    sart:=true;
setbkcolor(yellow);
for i:=1 to 200 do
 begin
  cleardevice;
  setfillstyle(1,green);
  bar(0,300,639,400);
  setcolor(red);
  setfillstyle(1,red);
  circle(150+2*i,200,20);
  floodfill(150+2*i,200,red);
  bar(135+2*i,220,165+2*i,280);
  setcolor(blue);
  setlinestyle(solidln,0,3);
  sart:=not sart;
  if sart then
   begin
    line(150+2*i,225,150+2*i,260);
    line(150+2*i,225,150+2*i,260);
   end
        ELSE
   begin
    line(165+2*i,235,180+2*i,250);
    line(150+2*i,225,120+2*i,250);
   end;

  if sart then
   begin
    line(150+2*i,270,150+2*i,330);
    line(150+2*i,270,150+2*i,330);
   end
         ELSE
   BEGIN
    line(150+2*i,270,140+2*i,330);
    line(150+2*i,270,160+2*i,330);
   end;
   line(555,300,565,400);
   outtextxy(560,310,'Finish');
  delay(10000);
  delay(10000);
  end;
readln;
CLOSEGRAPH;
END.

sadettin sahiner
sahinersadettin@gmail.com