Menghitung Daya Input (p1) dan Daya Input (BHP) pada Mesin Elektrik

Menghitung  Daya Input (p1) dan Daya Input (BHP) pada Mesin Elektrik

Listing  Program:

Uses CRT

Var a,b :Integer;

YN : Char;

ClrScr

Write(‘p1=v1.I1 cos θ A terbesar’’);

Readln(‘p1=v1.I1 cos θ A terbesar’’);

Pilihsn;p1

Begin

Write(‘p0=pm – (rugi besaran&geseran’);

Readln(‘p0=pm – (rugi besaran&geseran’);

Pilihsn;p0

Begin

If (a>b)then

Writeln(‘p1=v1.I1 cos θ A terbesar’);

Read;

Else

Writeln(‘p0=pm – (rugi besaran&geseran) B terbesar’);

end