Programalama > PASCAL

Etiketler: kayan, yazı

Ort. 5
Puan ver:
uses crt;
var
   a: integer;
   b:longint;
begin
   for a:=1 to 70 do
   begin
       gotoxy (a,12);
       writeln ('SeLCuX');
       for b:=1 to 1000000 do b:=b+1;
       clrscr;
   end;
   readln;
end.

(Yazının hızını ayarlamak isterseniz 1000000 sayısını değiştirebilirsiniz...)

SeLCuX
selcux@hackermail.com

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