Menghitung Bandwidth Dengan Pascal (Procedure)

Aplikasi yang saya buat ini bertujuan untuk menghitung Bandwidht.Terdapat 2 menu pilihan yaitu Menghitung bandwidth dengan  frekuensi  modulasi & Menghitung bandwidth dengan FUSB FLSB. Input pada program ini yaitu nilai frekuensi modulasi (Fm), FUSB dan FLSB. Terdapat dua procedure yaitu Bw yang menghasilkan output masing-masing. Output akan ditampilkan dilayar.

FLOWCHART :

LISTING PROGRAM :

program menghitung_bandwidth; uses crt; var fm, flsb, fusb, bw, res : real; pilihan1: string; procedure bw1(f_fm: real; var result: real); begin result := 2 * f_fm; end; procedure bw2(f_fusb, f_flsb: real; var result: real); begin result := f_fusb - f_flsb; end; begin clrscr; writeln(' PROGRAM MENGHITUNG BANDWIDTH '); writeln(' '); writeln(' '); writeln('1. menghitung bandwidth dengan frekuensi modulasi'); writeln('2. menghitung bandwidth dengan frekuensi usb dan frekuensi lsb'); write('masukkan pilihan :'); readln(pilihan1); if (pilihan1 = '1') then begin write('masukkan nilai fm : '); readln(fm); bw1(fm, res); writeln('Nilai bandwidth = ', res:2:3, ' hertz'); end else if (pilihan1 = '2') then begin write('masukkan nilai frekuensi usb : '); readln(fusb); write('masukkan nilai frekuensi lsb : '); readln(flsb); bw2(fusb, flsb, res); writeln('Nilai bandwidth = ', res:2:3, ' hertz'); end else begin writeln('salah input'); end; readln; end.


TAMPILAN PROGRAM :