program menghitung efisiensi bandwidth dan snr

Intro

Pada kesempatan kali ini saya membuat program menggunakan pascal yang menggunakan perintah function & menu. Aplikasi ini bertujuan untuk menghitung nilai efisiensi bandwidth dan snr semoga bermanfaat 

Flowchart

SourceCode

program menghitung efisiensi bandwidth dan snr;

uses crt;

function efisiensi(x,y:real):real;

begin

        efisiensi:=(x/y)*100;

end;

function pangkat(x,y:real):real;

begin

        pangkat:=((x/y)*(ln(2))-1)

end;

function snr(x,y,pangkat:real):real;

begin

        snr:=exp(pangkat*ln(10));

end;

var x,y,z:real;

        pil:string;

begin

clrscr;

write('Nilai Kapasitas Kanal (bps)= ');readln(x);

write('Nilai Bandwidth (Hz)=        ');readln(y);

clrscr;

writeln('A. Menghitung Efisiensi Lebar Bidang');

writeln('B. Menghitung Signal To Noise Ratio');

write('A/B? ');readln(pil);

if pil='a' then

begin

clrscr;

write('Efisiensi Lebar Bidang= ',efisiensi(x,y):4:1);

writeln('%');

readln;

end;

if pil='b' then

begin

clrscr;

writeln('Signal To Noise Ratio= ',snr(x,y,z));

readln;

end;

end.

Program

 A

 B