Pages

Selasa, 31 Mei 2016

Daya pada Motor Listrik AC 1 Fasa

Mencari P (daya aktif), Po (daya output), dan S (daya semu ) pada motor listrik AC 1 fasa dengan rumus :
                      P       = V x I x Pf
                   Po      = V x I x Eff x Pf
                   S        = V x I
Dimana :
            V         = Tegangan (volt)
            I           = Arus (ohm)
            Pf        = Faktor Daya
            Eff       = Efisiensi

Listing program :
program function;
uses wincrt;
var pilihan, arus, tegangan, faktordaya, efisiensi :integer;
begin
writeln (‘Program Function’);
writeln;
writeln (‘1. Mencari P’);
writeln (‘2. Mencari Po’);
writeln (‘3. Mencari S);
writeln;
writeln (‘Pilihan anda :’); readln (pilihan);
if pilihan =1 then
begin
write (‘Nilai V :’); readln (tegangan);
write (‘Nilai I :’); readln (arus);
write (‘Nilai Pf :’) readln (dayafaktor);
hasil:= tegangan*arus*dayafaktor;
writeln;
writeln (‘Hasil :’,hasil);
end
else
if pilihan=2 then
begin
write (‘Nilai V :’); readln (tegangan);
write (‘Nilai I :’); readln (arus);
write (‘Nilai Eff :’) readln (efisiensi);
write (‘Nilai Pf :’) readln (dayafaktor);
hasil:= tegangan*arus*efisiensi*dayafaktor;
writeln;
writeln (‘Hasil :’,hasil);
end
else
if pilihan=3 then
begin
write (‘Nilai V :’); readln (tegangan);
write (‘Nilai I :’); readln (arus);
hasil:= tegangan*arus;
writeln;
writeln (‘Hasil :’,hasil);
end
end.

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