Program yang menghasilkan bunyi nada.

Yang tidak kalah menarik dalam program Turbo Pascal adalah fungsi sound, fungsi ini digunakan untuk menghasilkan suara,

1. Fungsi sound (x), dimana x = adalah nada, menurut pengalaman penulis jika x= 100 , maka 100=do

x=200 , maka 200=re dst sampai x=1000=mi tinggi

2.ada sound maka ada fungsi no sound, digunakan untuk menghentikan suara
3.berikutnya fungsi delay, yang digunakan untuk memberikan lama waktu sound untuk lebih jelasnya dapat dilihat pada program dibaris dibawah ini



Program Suara;
uses crt;
var i,j:integer;
begin
clrscr;
writeln('Program sound ');
j:=100;
for i:=1 to 10 do
begin
sound(j);
writeln('Coba matikan winamp dan dengarkan suaranya');
delay(500);
nosound;
j:=j+100;
end;
readln;
end.

Untuk menghasilkan tempo yang dikehendaki cobalah mengganti angka pada delay, sedangkan untuk mendapatkan tinggi nada cobalah mengganti isi variabel j:= j+100 menjadi j:= j + 10 danseterusnya.

PROGRAM JENIS BILANGAN

Program Kosntanta_numeric_integer;
Uses Crt;
Const
c1 =197; {byte}
c2 =-2; {shortInt}
c3 =1050; {Integer}
c4 =50678; {word}
c5 =3000000; {LongInt}
Begin
Clrscr;
Writeln('Bilangan byte =',c1:4);
Writeln('Bilangan shortInt =',c2:4);
Writeln('Bilangan Integer =',c3:4);
Writeln('Bilangan word =',c4:5);
Writeln('Bilangan LongInt =',c5:7);
Readln
End.