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

Pada kali ini, saya akan memposting suatu aplikasi sederhana pascal, dimana aplikasi tersebut dapat digunakan untuk mencari besar nilai frekuensi (informasi/carrier) di dalam suatu sinyal FM. Sama seperti pada postingan sebelumnya, tapi kali ini akan menggunakan perintah Function & Menu, dimana perintah pada pascal akan dilengkapi dengan menu.

Cara kerjanya dapat dilihat pada flowchart berikut.

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; function wc:string; 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; function wm:string; 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.

Referensi: http://spatabang.blogspot.co.id/2015/05/fungsi-dalam-pascal.html