Menghitung Bandwidth Dengan Pascal (Function)

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 2 function yaitu Bw yang menghasilkan output masing-masing. Output akan ditampilkan dilayar.


FLOWCHART :

LISTING PROGRAM :

program menghitung_bandwidth; uses crt; var fm, flsb, fusb, bw : real; pilihan1: string; function bw1(f_fm: real): real; var result: real; begin result := 2 * f_fm; bw1 := result; end; function bw2(f_fusb, f_flsb: real): real; var result: real; begin result := f_fusb - f_flsb; bw2 := result; 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); writeln('Nilai bandwidth = ', bw1(fm):2:3, ' hertz'); end else if (pilihan1 = '2') then begin write('masukkan nilai frekuensi usb : '); readln(fusb); write('masukkan nilai frekuensi lsb : '); readln(flsb); writeln('Nilai bandwidth = ', bw2(fusb, flsb):2:3, ' hertz'); end else begin writeln('salah input'); end; readln; end.

TAMPILAN PROGRAM :