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
A
B
