Kayan Yazı

Klavyeden Girilin Bir kelimenin Ekreanın Ortasından Kayarak İnme...
uses Crt;
var
i,hiz,ses:integer;ad:string;
begin clrscr;
TEXTBACKGROUND(2);textcolor(15);
gotoxy(1,1);write('KAYACAK OLAN YAZIYI GİRİNİZ...:');readln(ad);
gotoxy(1,2);write('LÜTFEN GİRİS HIZINI GİRİNİZ...:');readln(hiz);
gotoxy(1,3);write('LÜTFEN BELİRTİLENARALIKTA SES KODUNU GİRİNİZ...(1 ila 1000 arasi)...:');readln(ses);
clrscr;
gotoxy(1,1);writeln('PROGRAMDAN ÇIKMAK İÇİN LÜTFEN HERHANGİ BİR TUŞA BASINIZ VE YAZININ SAĞ TARAFA GEÇMESİNİ BEKLEYİNİZ....');
repeat
for i:=1 to 70 do begin
textcolor(14);
gotoxy(i+1,20);Write(ad);
sound(ses);
delay(hiz);
textcolor(black);
gotoxy(i+1,20);Write(ad);
end;
until keypressed;
nosound;
write('yusuf baydoğan tarafından hazırlanılmıştır. çalışmalarımzın devamı gelecektir');
readln; end.


[yazının rengi siyah değilse textcolor komutunun yanındaki sayıyı değiştiriniz ama unutmayın sadece 1-16 arasında sayı girilebilir başarılar]