Efisiensi Generator dengan PASCAL (Procedure)

Aplikasi yang saya buat ini digunakan untuk menghitung nilai Efisiensi pada generator. Terdapat 2 menu pilihan yaitu menghitung efisiensi dan menghitung daya input generator. Input pada program ini yaitu nilai daya output (Pout), daya input (Pin) dan daya rugi (Prugi). Input akan diolah dengan procedure, yang menghasilkan output masing-masing. Output akan ditampilkan seperti pada layar.

FLOWCHART : 

LISTING PROGRAM : 



program menghitung_efisiensi_dan_daya_input_generator; uses crt; procedure f_n(f_pin, f_pout: real; var result: real); begin result := (f_pout/f_pin) * 100; end; procedure f_pin(f_pout, f_prugi: real; var result: real); begin result := f_pout + f_prugi; end; var pil, pout, pin, n, prugi, rf_n, rf_pin: real; begin clrscr; writeln(' PROGRAM MENGHITUNG EFISIENSI & DAYA INPUT GENERATOR '); writeln; writeln('1. menghitung efisiensi generator'); writeln('2. menghitung daya input'); write('masukan pilihan : '); readln(pil); if (pil = 1) then begin write('Pin (daya input) = '); readln(pin); write('Pout (daya output) = '); readln(pout); f_n(pin, pout, rf_n); writeln; writeln('efisiensi = ', rf_n:2:2, ' %'); end else if (pil = 2) then begin write('Pout (daya output) = '); readln(pout); write('Prugi (daya rugi) = '); readln(prugi); f_pin(pout, prugi, rf_pin); writeln; writeln('Pin (daya input) = ', rf_pin:2:2, ' watt'); end else begin writeln('salah input'); end; readln; end.


TAMPILAN ANTARMUKA PROGRAM :