Claudia Wonderlands: Efisiensi Generator dengan PASCAL (Function)

Aplikasi yang saya buat ini bertujuan 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 function, yang menghasilkan output masing-masing. Output akan ditampilkan seperti pada layar.

FLOWCHART :

LISTING PROGRAM :

program menghitung_efisiensi_dan_daya_input_generator;
uses crt;

function f_n(f_pin, f_pout: real): real;
begin
   f_n := (f_pout/f_pin) * 100;
end;

function f_pin(f_pout, f_prugi: real): real;
begin
   f_pin := f_pout + f_prugi;
end;

var
   pil, pout, pin, n, prugi: 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);
     n := f_n(pin, pout);
     writeln;
     writeln('efisiensi = ', n:2:2, ' %');
     end
  else if (pil = 2) then
     begin
     write('Pout (daya output) = ');
     readln(pout);
     write('Prugi (daya rugi) = ');
     readln(prugi);
     pin := f_pin(pout, prugi);
     writeln;
     writeln('Pin (daya input) = ', pin:2:2, ' watt');
     end
  else
     begin
     writeln('salah input');
     end;

readln;
end.

TAMPILAN ANTAR MUKA PROGRAM :

Claudia Wonderlands

Senin, 30 Mei 2016

Efisiensi Generator dengan PASCAL (Function)

Tidak ada komentar:

Posting Komentar