Menghitung Berbagai Daya Pada Modulasi Amplitudo

     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.