Programalama > PASCAL

Etiketler: pascalda, yuruyen, basit

Ort. 0
Puan ver:
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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.