Kategori : PASCAL Okunma : 890 Acıklama : Yazı 0.5 saniyede bir renk değiştirsin ister misiniz?
uses crt; var a:integer; begin clrscr; for a:=1 to 500 do begin gotoxy(30,8); textcolor(a); writeln(`Yazmak İstediginiz Yazi`); delay(500); (*Delay Degerini KAfanıza Göre DeğiştirebiLirsiniz*) end; readln;
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir.