Kayan yazı [Pascal]

By_MaXiMuS · 18-11-06, 10:56

uses crt;

const
m:string=('Cybertion.Net Kayan Yazı Örneği');

var
i:integer;

begin
clrscr;
for i:=1 to 80 do
begin
clrscr;
gotoxy(i,1);
write(m);
end;
readkey;
end.

cyber33 · 30-11-06, 16:35

Paylasım icin tsk'ler

18-11-06, 10:56	#1
By_MaXiMuS Yeni Üye Bilgiler Üyelik tarihi: 14-11-2006 Mesajlar: 107 Karizma Rep Gücü : 4 Rep Puanı : 10 İletisim	Kayan yazı [Pascal] uses crt; const m:string=('Cybertion.Net Kayan Yazı Örneği'); var i:integer; begin clrscr; for i:=1 to 80 do begin clrscr; gotoxy(i,1); write(m); end; readkey; end.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

30-11-06, 16:35	#2
cyber33 Çaylak Üye Bilgiler Üyelik tarihi: 22-11-2006 Mesajlar: 32 Karizma Rep Gücü : 3 Rep Puanı : 10 İletisim	Paylasım icin tsk'ler

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)