Menghitung Power Distribution AM menggunakan Function

     Pada kesempatan kali ini, saya membuat progrma untuk menghitung Power Distribution AM DSBFC dengan menggunakan Function pada aplikasi Turbo Pascal. Program ini saya buat untuk mempermudah dalam menghitung atau mencari nilai-nilai yang ada pada Power Distribution AM seperti Daya pada LSB dan USB (Psb) dan Total Daya AM DSBFC.

     Berikut adalah flowchart atau alur mengenai program tersebut:

     Berikut ini adalah struktur program dengan menggunakan aplikasi Turbo Pascal:

program Menghitung_Power_Distribution_AM;

uses crt;

function f_Psb(f_Pc, f_m: real): real;

var result: real;

begin

result := ((f_Pc * f_m * f_m) / 2);

f_Psb := result;

end;

function f_Pt(f_Pc, f_m: real): real;

var result: real;

begin

result := (f_Pc * (1 + ((f_m * f_m) / 2)));

f_Pt := result;

end;

var

Pc, Ec, R, m, Psb, Pt, pilihan : real;

begin

clrscr;

writeln('     PROGRAM MENGHITUNG POWER DISTRIBUTION AM   ');

writeln(' ');

writeln(' ');

write('Masukkan Nilai Ec : ');

readln(Ec);

writeln;

writeln('--------------------------------------------------');

writeln('-----------------------MENU-----------------------');

writeln(' ');

writeln('[1] Menghitung Daya USB dan LSB (PSB)');

writeln('[2] Menghitung Total Daya AM DSBFC');

writeln(' ');

write('Masukkan pilihan : ');

readln(pilihan);

writeln(' ');

writeln('--------------------------------------------------');

if (pilihan = 1) then

begin

write('Masukkan nilai R : ');

readln(R);

write('Masukkan nilai m : ');

readln(m);

Pc := ((Ec * Ec) / (2 * R));

Psb := f_Psb(Pc, m);

writeln('Nilai Psb = ', Psb:2:2, ' Watt');

end

else if (pilihan = 2) then

begin

write('Masukkan nilai R : ');

readln(R);

write('Masukkan nilai m : ');

readln(m);

Pc := ((Ec * Ec) / (2 * R));

Pt := f_Pt(Pc, m);

writeln('Nilai Pt = ', Pt:2:2, ' Watt');

end

else

begin

writeln('salah input');

end;

readln;

end.

     Dan berikut ini adalah tampilan dari hasil program yang dibuat:

Semoga Bermanfaat.....