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
