Pada kesempatan kali ini, saya membuat program untuk menghitung berbagai daya pada Modulasi Amplitudo dengan menggunakan aplikasi Turbo Pascal yang menggunakan bahasa Pascal. Program ini saya buat untuk mempermudah dalam menghitug atau mencari nilai Daya Carier (Pc), Daya LSB (Plsb), Daya USB (Pusb), dan Daya Total (Pt).
Berikut adalah flowchart atau alur bagaimana program tersebut berjalan:
Dan di bawah ini adalah gambaran program dan aplikasinya:
Berikut ini adalah struktur program dengan menggunakan Turbo Pascal:
Program Menghitung_Berbagai_Daya_Pada_Amplitudo;
uses crt;
var
Ec, R, M, Pc, Plsb_Pusb, Pt: real;
begin
Clrscr;
writeln(' PROGRAM MENGHITUNG BERBAGAI DAYA PADA MODULASI AMPLITUDO ');
writeln(' ');
writeln(' ');
write('Masukkan Nilai Ec : ');
readln(Ec);
write('Masukkan Nilai R : ');
readln(R);
Pc:=(Ec*Ec) / (2*R);
writeln('#Nilai Daya Carier (Pc) adalah : ', Pc:2:2);
readln;
write('Ingin Menghitung Daya LSB dan Daya USB (Plsb = Pusb)? (y / t) ');
readln(pilihan1);
writeln(' ');
if (pilihan1 = 'y') then
begin
write('Masukkan Nilai M : ');
readln(M);
Plsb_Pusb:= ((M*M) * Pc) / 4
writeln('#Nilai Daya LSB dan Daya USB (Plsb = Pusb) adalah : ', Plsb_Pusb:2:2);
readln;
begin
write('Ingin Menghitung Daya Total (Pt)? (y / t) ');
readln(pilihan2);
if (pilihan2 = 'y') then
begin
Pt:= (Pc + Plsb_Pusb + Plsb_Pusb);
writeln('#Nilai Daya Total (Pt) adalah : ', Pt:2:2);
readln;
end
else if (pilihan1 = 't') then
else if (pilihan2 = 't') then
end;
end;
end.
