Menghitung Frekuensi pada FM dengan aplikasi Free Pascal (Procedure & Menu)

Halo. Pada kali ini, saya kembali akan memposting sebuah program aplikasi pascal mirip seperti minggu kemarin. Namun, yang membedakannya di program ini adalah perintah Function diganti menjadi Procedure. Kelebihan dari fungsi Procedure adalah kita bisa membuat pilihan menu tanpa harus mendeklarasikan jenis variabel pada menu tersebut, sehingga lebih hemat waktu.

Cara kerjanya pun dapat dilihat pada flowchart berikut, sama seperti dengan postingan sebelumnya.

Dari flowchart tersebut, lalu dikembangkan dalam koding pada pascal, seperti berikut ini.

program Modulasi_Frekuensi; uses crt; var menu:integer; p1,c1,p2,c2,fc,fi:real; const phi = 3.14; procedure wc; begin writeln('Nilai Wc'); write('phi pertama (misal 2phi: 2) = '); readln(p1); write('t pertama (misal 1x10^3: 1000) = '); readln(c1); fc := (p1*phi*c1)/(2*phi)/1000; writeln(' '); writeln('Nilai Fc = ',fc:2:2,' KHz'); end; procedure wm; begin writeln('Nilai Wm'); write('phi kedua (misal 3sin2phi= 3x2:6) = '); readln(p2); write('t kedua (misal 3x10^2: 300) = '); readln(c2); fi := (p2*phi*c2)/(2*phi)/1000; writeln(' '); writeln('Nilai Fi = ',fi:2:2,' KHz'); end; begin clrscr; writeln('Mencari Frekuensi pada FM'); writeln('========================='); writeln(' '); writeln(' '); writeln('1. Frekuensi Sinyal Pembawa(Fc)'); writeln('2. Frekuensi Sinyal Informasi(Fi)'); writeln(' '); write ('Pilihan:');readln(menu); writeln(' '); writeln(' '); if menu = 1 then begin writeln('Frekuensi Sinyal Pembawa(Fc)'); writeln('============================'); wc; end else if menu = 2 then begin writeln('Frekuensi Sinyal Informasi(Fi)'); writeln('=============================='); wm; end else begin writeln('Salah Input!'); end; readln; end.

Setelah di-compile, lalu dibuat file .exe-nya, dan akan tampil aplikasi seperti berikut.