Program Menghitung Bandwidth Dengan pascal

Aplikasi yang saya buat ini bertujuan untuk menghitung bandwidth.Terdapat 2 pilihan cara perhitungan yaitu perhitungan pertama membutuhkan input Fm dengan rumus untuk mencari bandwidth yaitu Bw = 2Fm. Untuk perhitungan kedua membutuhkan input FUSB dan FLSB dengan rumus untuk mencari bandwidth Bw = FUSB - FLSB.

FLOW CHART :

SOURCE CODE :

program menghitung_bandwidth; uses crt; var fm, flsb, fusb, bw : real; pilihan1, pilihan2 : string; begin clrscr; writeln(' PROGRAM MENGHITUNG BANDWIDTH '); writeln(' '); writeln(' '); write('apakah nilai frekuensi modulasi diketahui ? (y atau t) '); readln(pilihan1); if (pilihan1 = 'y') then begin write('masukkan nilai fm : '); readln(fm); bw := 2 * fm; writeln('Nilai bandwidth = ', bw:2:3, ' hertz'); end else if (pilihan1 = 't') then begin write('apakah nilai frekuensi usb dan frekuensi lsb diketahui ? '); readln(pilihan2); if (pilihan2 = 'y') then begin write('masukkan nilai frekuensi usb : '); readln(fusb); write('masukkan nilai frekuensi lsb : '); readln(flsb); bw := fusb - flsb; writeln('Nilai bandwidth = ', bw:2:3, ' hertz'); end else if (pilihan2 = 't') then begin writeln('tidak dapat menghitung bandwidth'); end else begin writeln('salah input'); end; end else begin writeln('salah input'); end; readln; end.