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.....
0 komentar:
Posting Komentar