Pascal Kayan Yazı

'Programlama' forumunda sha. tarafından 9 Eyl 2009 tarihinde açılan konu

Konu etiketleri:
  1. sha.

    sha. ..daha çirkin, daha huysuz

    {Girilen ismi ekranin ortasinda esli bir sekilde kaydiran program kodlari}
    uses Crt;
    var
    i,hiz,ses:integer;
    ad:string;
    begin
    clrscr;
    textcolor(15);
    gotoxy(1,1);write('Adinizi Giriniz...:');readln(ad);
    gotoxy(1,2);write('Ge‡is Hizini Giriniz...:');readln(hiz);
    gotoxy(1,3);write('Ses Kodunu Giriniz(1 ila 1000 arasi)...:');readln(ses);
    clrscr;
    gotoxy(1,1);writeln('€ikmak I‡in Herhangi Bir Tusa Basin ve Yazinin En Saga Gitmesini Bekleyin');
    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;

    readln;
    end.
     

Bu Sayfayı Paylaş