Menghitung Power Distribution AM menggunakan perintah Procedure pada Pascal

     Pada kesempatan kali ini, saya membuat progrma untuk menghitung Power Distribution AM DSBFC dengan menggunakan Procedure 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;

var
   Pc, m, R, Ec, Psb, Pt, pilihan, r_Psb, r_Pt: real;

procedure f_Psb(f_Pc, f_m: real; var result: real);

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

end;

procedure f_Pt(f_Pc, f_m: real; var result: real);
begin
result := (f_Pc * (1 + ((f_m * f_m) / 2)));

end;

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));
f_Psb(Pc, m, r_Psb);

writeln('Nilai Psb = ', r_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));
f_Pt(Pc, m, r_Pt);
writeln('Nilai Pt = ', r_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.....