Pemrograman 1 - Bunyi (Menggunakan Statement For To Do)

PROGRAM BUNYI 

PROGRAM TAMPIL_ASCIL;

USES CRT;

VAR HURUF:CHAR;

    i:INTEGER;

BEGIN

     CLRSCR;

     FOR i:=1 TO 10 DO

     BEGIN

       WRITE('Tulis sebuah huruf : ');

       HURUF:=readkey;

       WRITELN('Kok hurufnya tidak muncul?');

       SOUND(300); DELAY(1000); NOSOUND;

       SOUND(600); DELAY(1500); NOSOUND;

       WRITELN;

       WRITELN('Huruf yang anda masukkan adalah huruf ',HURUF);

       WRITELN('No ASCII dari huruf di atas adalah ', ord(HURUF));

     END;

     READLN;

END.