Menghitung Frekuensi pada FM dengan aplikasi Free Pascal

Pada kesempatan 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. 

Cara kerjanya dapat dilihat pada flowchart berikut.

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

program mencari_nilai_frekuensi_informasi_dan_pembawa_pada_fm; uses crt; var pilihan,pilihan2: string; c,d,p : real; const phi = 3.14; begin clrscr; writeln('Mencari Frekuensi dalam FM'); writeln('=========================='); writeln(' '); write('Apakah anda ingin mencari nilai Sinyal Pembawa?(y/t)'); readln(pilihan); if (pilihan = 'y') then begin writeln(''); writeln(''); writeln(''); writeln('Masukkan Nilai Wc: '); writeln('=================='); writeln(' '); write('banyak phi(1,2,dst): ');readln(p); write('*(.....)t = ');readln(c); d := (p*phi*c)/(2*phi); writeln(''); writeln(''); writeln(''); writeln(''); if d >=1000 then begin d:= d/1000; writeln('Nilai Wc = ', d:2:2, ' KHz'); end else begin writeln('Nilai Wc = ', d:2:2, ' Hz'); end end else if(pilihan = 't') then begin writeln(' '); write('Apakah anda ingin mencari nilai Sinyal Informasi?(y/t)'); readln(pilihan2); if (pilihan2 = 'y') then begin writeln(' '); writeln(''); writeln(''); writeln('Masukkan Nilai Wm: '); writeln('=================='); writeln(' '); write('banyak phi(1,2,dst): ');readln(p); write('*(.....)t = ');readln(c); writeln(''); writeln(''); writeln(''); writeln(''); d := (p*phi*c)/(2*phi); if d >=1000 then begin d:= d/1000; writeln('Nilai Wm = ', d:2:2, ' KHz'); end else begin writeln('Nilai Wm = ', d:2:2, ' Hz'); end end else if(pilihan2 = 't') then begin writeln(''); writeln(''); writeln(''); writeln('Tidak Melakukan Perhitungan'); end else begin writeln(''); writeln(''); writeln(''); writeln('Salah Input'); end end; readln; end.

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