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.

Related Posts:

• Manusia dan Tanggung Jawab Assalamu'alaikum.      Hello readers! kalau tadi saya membahas tentang "Manusia dan Kasih", sekarang saya akan membahas tentang "Manusia dan Tanggung Jawab". Just check it out!      Menur… Read More
• Manusia dan Kasih Assalamu'alaikum.      Hello readers! akhirnya ada kesempatan lagi untuk menulis di blog lagi, ya walaupun seringnya nulis buat tugas kuliah. Tapi kali ini materi tugasnya lumayan menarik nih! Kali ini saya… Read More
• Manusia dan Harapan Assalamu'alaikum.      Hello readers! artikel ini adalah tugas terakhir saya di semester ini. Setelah tadi saya membahas tentang Manusia dan Kasih, Manusia dan Tanggung Jawab, sekarang saya akan membahas te… Read More
• Revolusi Budaya Assalamu'alaikum.  Hello readers! kali ini yang saya akan bahas adalah tugas kuliah juga, ya sepertinya semua hal yang saya posting adalah tugas kuliah yaa hehe okee deh, sekarang saya akan membahas tentang Revolusi … Read More
• Ilmu Budaya Dasar Assalamu'alaikum.  Hello readers! rasanya udah lama nih gak posting di blog lagi hehe kali ini saya akan membahas tentang Ilmu Budaya Dasar, sudah pasti hal ini adalah salah satu dari tugas kuliah. Langsung saja, che… Read More