Saturday, June 18, 2016

MENGHITUNG DAYA JANGKAR DAN ARUS GENERATOR SINKRON DENGAN PASCAL (PROCEDURE)

Pada program yang saya buat, yaitu untuk menghitung daya jangkar dan arus pada generator sinkron. Untuk menghitung daya jangkar maka inputnya adalah daya input dari generator (Ea) dan arus yang mengalir pada generator (Ig) dan prosesnya Pj = Ea x Ig x cospi. Sedangkan untuk menghitung arus pada generator inputnya adalah daya semu generator (S) dan tegangan antar fasa generator (V).

FLOWCHART


PROGRAM

program menghitung_daya_jangkar_dan_arus_generator_sinkron;
uses crt;

function pjangkar(f_ea, f_ig, f_cospi: real): real;
var result: real;
begin
   result := f_ea * f_ig * f_cospi;

   pjangkar := result;
end;

function igenerator(f_s, f_v: real): real;
var result: real;
begin
   result := f_s / f_v;

   igenerator := result;
end;

var
   s, v, ea, ig, cospi: real;
   pilihan: string;

begin
   clrscr;
   writeln('PRORAM MENHITUNG DAYA JANGKAR & ARUS GENERATOR SINKRON');
   writeln;
   writeln;
   writeln('1. Menghitung daya jangkar');
   writeln('2. Menghitung arus generator sinkron');
   write('masukkan pilihan : ');
   readln(pilihan);

   if (pilihan = '1') then
   begin
      write('masukkan nilai ea : ');
      readln(ea);
      write('masukkan nilai ig : ');
      readln(ig);
      write('masukkan nilai cos phi : ');
      readln(cospi);

      writeln('nilai Pjangkar (daya jangkar) : ', pjangkar(ea, ig, cospi):2:3, ' watt');

   end
   else if (pilihan = '2') then
   begin
      write('masukkan nilai s : ');
      readln(s);
      write('masukkan nilai v : ');
      readln(v);

      writeln('nilai Ig (arus generator) : ', igenerator(s, v):2:3, ' ampere');

   end
   else
   begin
      writeln('salah input');
   end;

   readln;
end.


No comments:

Post a Comment