kayan yazı
uses crt;
const m:string=('EYÜP ÇİÇEK BİLGİSAYAR PROGRAMLAMA TEKNİKERİ'); var i:integer; begin clrscr; for i:=1 to 80 do begin clrscr; gotoxy(i,1); write(m); end; readkey; end. |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
emeğe saygı
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 12:56 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.