program mencari daya output dari inputan tegangan dan arus

LISTING PROGRAM:

program mencari_daya_output_dari_inputan_tegangan_dan_arus;

uses crt;

procedure f_n(f_pin, f_pout: real; var result: real);

begin

result := ('p1=v1.I1 cos θ A terbesar');

end;

procedure f_pin(f_pout, f_prugi: real; var result: real);

begin

result := p0=pm – (rugi besaran&geseran);

end;

var

pil, pout, pin, n, prugi, rf_n, rf_pin: real;

begin

clrscr;

writeln(' program menghitung Daya input p1 dan Daya input BHP ');

writeln;

writeln('1. menghitung Daya input p1');

writeln('2. menghitung Daya input BHP');

write('masukan pilihan : ');

 readln(pil);

 

if (pil = 1) then

begin

write('Pinputp1 (daya input p1) = ');

readln(pin);

write('Poutput (daya output p1) = ');

readln(pinputbhp);

f_n(pin, pout, rf_n);

writeln;

writeln('Daya input p1 = ', rf_n:2:2, ' Watt');

end

else if (pil = 2) then

begin

write('Pinputbhp (daya input bhp) = ');

readln(pinputp1);

write('Pouputbhp (daya output bhp) = ');

readln(poutputbhp);

f_pin(pout, prugi, rf_pin);

writeln;

writeln('Pin (Daya input BHP) = ', rf_pin:2:2, ' watt');

end

else

begin

writeln('salah input');

end;

readln;

end.

             

Penjelasan :­­

Pada penjelasan program kali ini saya akan menjelaskan tentang cara kerja/menjalankan program.pertama masukan inputan p1 dengan rumus 'p1=v1.I1 cos θ A terbesar.dan apabila ya maka di lanjutkan dengan proses perhitungan dan penampilan rumus pada p1.dan apabila tidak maka dilanjutkan ke rumus inputan yang kedua p0=pm – (rugi besaran&geseran).jika ya maka dilanjutkan juga ke proses perhitungan dan penampilan rumus inputan BHP.apabila ya maka selesai.dana apabila tidak sesuai maka kembali ke awal.