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;

Mencari Daya Output dari Inputan Tegangan dan Arus.

Listing Program:

Program menghitung_daya_instalasi_rumah;

Uses crt;

Var Iout, volt: integer;

            YN : Char;

unitS : string[2];

function jaberfunc(Arus_MCB:Integer;Vs:Integer) : Integer;

begin

JaberFunc := ({Vs*Arus_MCB));

End;

Begin

Repeat

  Clrscr;

  Write(‘^^^^Menghitung daya instalasi rumah^^^^’);

  Writeln;

  Write(‘masukkan Vs             :           ‘);

  Readln(Volt);

  Write(‘Masukan Arus_MCB [A]  : ‘);

  Readln(Iout);

  Repeat

  Write(‘Satuannya Watt? Masukan : [W] ‘ )

  Write(‘^^^Menghitung Daya Instalasi Rumah^^^’);

  Writeln;

  Write(‘Masukkan Vs : ‘);

  Readln(Volt);

  Write(‘Masukkan Arus_MCB [A] : ‘);

  Readln(Iout);

  Repeat

  Write(‘Satuannya Watt? Masukkan [W] : ‘);

  Readln(unitS);

Until (unitS =’W’);

Write(‘Jumlah Daya Keluarannya adalah : ‘);

Writeln(JaberFunc(Iout,Volt),’  ‘ ,unitS);

Writeln;

Write(‘ulangi?  (Y atau N):  ‘);

YN  :=Readkey;

Until  (YN in  [‘N’,’n’]);

End.

                               

                            OUTPUT

FLOWCHART MENCARI DAYA OUTPUT DARI INPUTAN TEGANGAN DAN ARUS

Logika Program :

Pada program flowchart pertama Masukkan Tegangan Vs,tegangan Vs pada flowchart yaitu tegangan inputan pertama yang sebesar 220 volt.lalu dilanjutkan dengan memasukkan arus_MCB pada tegangan instalasi.lalu menggunakan rumus P=vs*arus_MCB untuk mengetahui besar dayanya pada instalasi.lalu apakah satuaan nya watt?jika YA lanjutkan dengan jumlah daya keluarannya pada hasil akhir P=Vs*arus_MCB jika TIDAK maka maka ulangi ke arus P=Vs*arus_MCB.lalu lanjutkan jika hasil jumlah saya yang dikeluarkan sama dengan hasilnya. Jika TIDAK maka lanjut ke ulangi jika selesai.dan jika ingin YA maka ulangi ke masukkan inputan awal VS.