Daya Listrik 1 Fasa

LISTING PROGRAM

program penghitung_daya_listrik;

uses crt;

var

menu : integer;

ulang : char;

S,V,I : real;

P,cosp : real;

Q,sinp : real;

procedure Menghitung_Daya_Semu;

begin

     repeat

     clrscr;

     writeln ('Menghitung Daya Semu');

     write ('Masukan Nilai Tegangan : ');readln(V);

     write ('Masukan Nilai Arus : ');readln(I);

     writeln ('Rumus : V*I');

     S:= V*I;

     writeln ('Nilai Daya Semu Adalah :',S:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure Menghitung_Daya_Aktif;

begin

     repeat

     clrscr;

     writeln ('Menghitung Daya Aktif');

     write ('Masukan Nilai Tegangan :');readln (V);

     write ('Masukan Nilai Arus  :');readln(I);

      write ('Masukan Nilai cosδ  :');readln(cosδ);

     writeln ('Rumus : V*I* cosδ ');

     P := V*I* cosδ;

     writeln ('Nilai Induktansi adalah :',P:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure Menghitung_Daya_Reaktif;

begin

     repeat

     clrscr;

     writeln ('Menghitung Daya Reaktif');

     write ('Masukan Nilai Tegangan :');readln (V);

     write ('Masukan Nilai Arus  :');readln(I);

      write ('Masukan Nilai sinδ  :');readln(sinδ);

     writeln ('Rumus : V*I* sinδ ');

     Q := V*I* cosδ;

     writeln ('Nilai Induktansi adalah :',Q:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure menu_utama;

 begin

      clrscr;

      writeln ('Menu Utama');

      writeln ('1. Menghitung Daya Semu ');

      writeln ('2. Menghitung Daya Aktif');

      writeln ('3. Menghitung Daya Reaktif');

      writeln (‘4. END ‘);

      writeln;

      write ('Pilih Menu :');readln(menu);

      case menu of

      1: begin

              Menghitung_Daya_Semu;

              menu_utama;

         end;

      2:begin

             Menghitung_Daya_Aktif;

             menu_utama;

        end;

      3:begin

             Menghitung_Daya_Reaktif;

             menu_utama;

      4: end;

 end;

 begin

 clrscr;

 menu_utama;

end.

OUTPUT PROGRAM

FLOWCHART