Peritungan Efisiensi Daya Generator

Berikut ini Program yang saya buat yaitu membuat Perhitungan efisiensi daya generator dan menentukan kualitas generator bagus atau buruk.
Data yang dibutuhkan dalam perhitungan adalah nilai daya output dan input serta nilai daya jangkar pada generator. Hasil dari data tersebut akan di proses sehingga menghasilkan nilai efisiensi elektrik,efisiensi elektro maknetik dan efisiensi total. Perbandingan antara bagus dan buruknya ditentukan nilai efisiensi total jika efisiensi total lebih dari 80% maka generator masih dalam keadaan bagus.

Berikut Tampilan Program:

flowchart :

code :

USES CRT;
VAR
        pin,pout,pjangkar,eem,eelektrik,etotal:real;
BEGIN
CLRSCR;
writeln(' Perhitungan Kondisi Efisiensi Generator');
writeln('--------------------------------------------');
write(' Daya Input(Watt)= ');readln(pin);
write(' Daya Output(watt)= ');readln(pout);
write(' Daya Jangkar(watt)= ');readln(pjangkar);
writeln('--------------------------------------------');
eelektrik:=((pout/pjangkar)*100 );writeln(' Efisiensi Elektrik= ',eelektrik:2:2,'%');
eem:=((pjangkar/pin)*100);writeln(' Efisiensi Elektro Mekanik= ',eem:2:2,'%');
etotal:=((pout/pin)*100);writeln(' Efisiensi Total= ',etotal:2:2,'%');
        if etotal>=80 then
                writeln (' Generator Efisiensi Bagus')
        else
                writeln(' Generator Efisiensi Buruk');
readln;
readkey;
end.