1. Listing Program Procedure
2. PENJELASAN LISTING PROGRAM
A.{Judul program Utama}
-di sesuaikan dengan program yang diinginkan
|
1
Program menghitung frekuensi
2
gelombang;uses crt;
|
B. procedure dengan parameter}
- mengidentifikasi, memasukkan
& menulis apa saja variabel yang akan di gunakan dalam program procedur
nanti
|
3
Procedure Hitung_Frekuensi(2n,W:integer;
var f:integer);
4
begin
5
f:=W/2n;
6
writeln('2n
= ',2n);
7
writeln('W
= ',W);
8
writeln('F = ',F);
9
end;
|
C.{program perhitungan utama}
- proses perhitungan dimana
variabel yang sudah di buat sebelumnya di isi dengan nilai yang di inginkan
|
10 {===program
Perhitungan Utama===}
11 var
12 2n,W,frknsi:integer;
|
|
-
Memasukkan variabel berupa data integer
|
|
13 begin
14 clrscr;
15 writeln('Program Untuk Menghitung frekuensi
gelombang');
16 2n:=6.28;
17 W:=628;
18 frknsi:=0;
19 writeln;
|
|
-
Memulai program prosedur dengan memasukkan nilai
ke data integer
|
|
20 Hitung_Frekuensi(2n,W,frknsi); {memanggil prosedur}
21 writeln;
22 writeln('2n = ',2n);
23 writeln('W
= ',W);
24 writeln('frknsi = ',frknsi);
25 readln;
26 end
|
|
-
memanggil
program prosedur {hitung_frekuensi} dan membaca nilai variabel yang sudah di
buat sebelumnya
|
itulah sedikit pembahasan tentang prosedure perhitungan frekuensi, kalian bisa mempraktekanya di rumah dengan software turbo pascal?kalau anda berminat bisa minta ke email blog ini?
Terima kasih udah mampir ke blogku,,@salam blogger :)
