Pages

Kamis, 23 Juni 2016

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




1 komentar:

  1. mr pedro baru-baru ini membantu kami dengan pinjaman yang kami gunakan untuk mengembangkan bisnis kami. prosesnya luar biasa! dia sering menghubungi kami untuk check-in dan memberi tahu kami tentang apa yang terjadi selama pembayaran pinjaman kami. dia ramah dan mudah didekati dan selalu bisa menjernihkan pertanyaan yang kami miliki. kami memiliki pengalaman yang luar biasa bekerja dengan pedro!! hubungi petugas pinjaman email pedro: pedroloanss@gmail.com whatsapp: +18632310632

    BalasHapus