program menghitung efisiensi bandwidth dan snr menggunakan free pascal (Procedure)

program berfungsi untuk menghitung efisiensi bandwidth dan nilai snr . seperti yang dapat di lihat di flowchart , tahapan tahapan dari program ini adalah

1. menggimput nilai yang terdapat di nilai kapasitas kanal dan bandwithd
2. program menampilkan 2 menu
      A. mengitung efisional lebar bidang
      B. menghitung signal to noise radio
3. jika memilih A maka beri lah nilai pada n: c/b
4. jika memilih B maka beri lah nilai pada c : b² . log (1+316)

flowchart :

SourceCode :

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

begin

        efisiensi:=(x/y)*100;

end;

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

begin

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

end;

procedure 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.

layout :

1.  input 
   
2. A 
   
   
   
   
3. B