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.