Membuat Program Perhitungan Daya Output Amplifier dalam Satuan Prms atau PpMPO dengan Pascal (Function)

Bismillah.. oke sekarang saya membuat program masih dengan aplikasi pascal tapi dengan memakai 2 function, dan satu percabangan untuk menuju ke function 1 atau 2 tergantung pilihan anda mau memakai perhitungan pertama atau kedua masing2 berbeda outputnya, function yang pertama untuk menghitung pada satuan Prms menggunakan input tegangan efektif (Veff), Impedansi speaker (R). Dan function yang kedua untuk menghitung pada satuan PpMPO inputannya yaitu dengan tegangan speaker (Vpp) dan Impedansi speaker (R). Biasanya yang digunakan dalam dunia perelektronikaan yang sering dilihat yaitu PpMPO lalu apa bedanya PpMPO dengan Prms, jelas beda dilihat dari singkatannya saja sudah beda PMPO yaitu Peak Music Power Output. Atau daya Puncak yang di hasilkan oleh Amplifier, sedangkan RMS Root Mean Square yaitu rata2 efektif dari sebuah Power Amplifier. hanya sedikit memberi tahu bahwa dalam tehnik perhitungan skala umum yang digunakan yaitu pada satuan RMS dan dalam perindustrian digunakan PMPO karena untuk menunjukkan bahwa speaker aktif yg mereka produksi memiliki daya yang besar.

FLOWCHART

LIST PROGRAM

 program perhitungan_daya_amplifier_output_pada_satuan_Prms_atau_PpMPO;
uses crt;

var
Vpp,R,Prms,PpMPO,Veff, ret: real;
pilihan1: string;

function funct_Prms(f_Veff, f_R: real): real;
var
   Prms: real;
begin
   Prms := (Veff * Veff)/ R;

   funct_Prms := Prms;
end;

function funct_PpMPO(f_Vpp, f_R: real): real;
var
   PpMPO : real;
begin
   PpMPO := (Vpp*Vpp)/R;

   funct_PpMPO := PpMPO;
end;

begin
clrscr;
writeln('Program perhitungan daya amplifier output pada satuan Prms atau PpMPO');
writeln('masukkan pilihan :');
writeln('[1] menghitung dalam satuan Prms');
writeln('[2] menghitung dalam satuan PpMPO');
readln(pilihan1);
writeln;

if (pilihan1 = '1') then
begin
   writeln('masukan nilai tegangan Veff');
   writeln('Program untuk mencari nilai daya dengan satuan RMS atau dalam satuan Prms');
   writeln;
   write('masukan nilai tegangan efektif:');readln(Veff);
   write('masukan nilai Impedansi:');readln(R);
   ret := funct_Prms(Veff, R);
   write('hasil dari Prms:''=',ret); writeln('  Watt  ');
   readln;
end
else if (pilihan1 = '2') then
begin
   writeln('masukan nilai tegangan Vpp dan impedansi');
   writeln('program untuk mencari daya amplifier dalam satuan PpMPO');
   writeln;
   writeln('masukan nilai tegangan Vpp:');readln(Vpp);
   writeln('masukan nilai Impedansi:');readln(R);
   ret := funct_PpMPO(Vpp, R);
   writeln;
   write('hasil dari PpMPO:''=',ret);  writeln('   Watt   ');
   readln;
end
else
   begin
      writeln('salah input');
   end;

readln;

end.

 -------------------------------------------------------------------------------------------------------------------

CONTOH PROGRAMNYA YANG SUDAH JADI :

Terimakasih...