PERHITUNGAN FREKUENSI GELOMBANG MENGGUNAKAN PROGRAM PASCAL

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 :)