![]() |
oynak yazı
uses crt;
var X,Y,Sat,Sut:byte; begin clrscr; randomize; Sut:=random(79); sat:=random(24); X:=1; Y:=1; repeat gotoxy(sut,sat); textbackground(16); textcolor(10); write('platform2.sitemynet.com '); delay(5000); gotoxy(sut,sat);write(' '); sat:=sat+y; sut:= sut+x; if (sut>79) or (sut<2) then X:=x*-1; if (sat>24) or (sat<2) then y:=y*-1; until keypressed; end. |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım için tşkrlr
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 19:35 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.