Programalama > PASCAL

Etiketler: kısa, film

Ort. 0
Puan ver:
uses crt;
var
i,c:integer;
begin
 repeat
 c:=c+1;
clrscr;
 delay(00);
  for i:=1 to 15 do
 begin
  gotoxy(c+i,10);
  write(''_'');
 end;
 for i:=11 to 15 do
 begin
  gotoxy(c+1,i);
  write(#179);
 end;
  for i:=1 to 15 do
 begin
  gotoxy(c+1+i,15);
  write(''_'');
 end;
  for i:=11 to 15 do
 begin
  gotoxy(c+1+15,i);
  write(#179);
 end;
  for i:=1 to 14 do
 begin
  gotoxy(c+1+i,12);
  write(''_'');
 end;
 gotoxy(c+4,15);
 write(#9);
 gotoxy(c+12,15);
 write(#9);
 gotoxy(65,13);
 write(#179);
gotoxy(64,13);
write(''/'');
 gotoxy(66,13);
 write(''\'');
gotoxy(64,14);
write(''/'');
 gotoxy(66,14);
 write(''\'');
 gotoxy(65,12);
 write(#1);
 delay(55);
until(c=47);
if c=47 then
 gotoxy(64,13);
write('' '');
 gotoxy(66,13);
 write('' '');
gotoxy(64,14);
write('' '');
 gotoxy(66,14);
 write('' '');
 gotoxy(65,12);
 write('' '');
 gotoxy(65,13);
 write('' '');
c:=1;
 repeat
 c:=c+1;
 textbackground(lightred);
gotoxy(c+64,13-c);
write('' '');
gotoxy(c+64,13-c);
write(''/'');
 gotoxy(c+66,13-c);
 write('' '');
 gotoxy(c+66,13-c);
 write(''\'');
 gotoxy(c+64,14-c);
 write('' '');
gotoxy(c+64,14-c);
write(''/'');
  gotoxy(c+66,14-c);
  write('' '');
 gotoxy(c+66,14-c);
 write(''\'');
 gotoxy(c+65,12-c);
 write('' '');
 gotoxy(c+65,12-c);
 write(#1);
  gotoxy(c+65,13-c);
  write('' '');
  gotoxy(c+65,13-c);
 write(#179);
 delay(55);
until(c=10);
readln();
end.

ziya ahmedsoy
sonata@nakhchivan.az


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 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.