Program Pascal Procedure Menghitung Efisiensi Generator Dan Daya Input Generator

10.04 |



Program Pascal Procedure Menghitung Efisiensi Generator Dan Daya Input Generator



program menghitung_efisiensi_generator_dan_daya_input_generator;
uses crt;

procedure f_n(f_pin, f_pout: real; var result: real);
begin
result := (f_pout/f_pin) * 100;
end;

procedure f_pin(f_pout, f_prugi: real; var result: real);
begin
result := f_pout + f_prugi;
end
var

pil, pout, pin, n, prugi, rf_n, rf_pin: real;
begin
clrscr;
writeln(' program menghitung efisiensi generator dan daya input generator ');
writeln;
writeln('1. menghitung efisiensi generator');
writeln('2. menghitung daya input generator');
write('masukan pilihan : ');
 readln(pil);
  
if (pil = 1) then
begin
write('Pin (daya input) = ');
readln(pin);
write('Pout (daya output) = ');
readln(pout);

f_n(pin, pout, rf_n);
writeln;
writeln('efisiensi = ', rf_n:2:2, ' %');
end
else if (pil = 2) then
begin
write('Pout (daya output) = ');
readln(pout);
write('Prugi (daya rugi) = ');
readln(prugi);

f_pin(pout, prugi, rf_pin);
writeln;
writeln('Pin (daya input) = ', rf_pin:2:2, ' watt');
end
else
begin
writeln('salah input');
end;
readln;
end.












Output Program








Flowchart 







  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments(0)
Diposting oleh Unknown

Program Pascal Function Menghitung Arus Primer dan Sekunder pada Tranformator

07.46 |



Program Pascal Function Menghitung Arus Primer dan Sekunder pada Tranformator



program menghitung_arus_primer_sekunder;
uses crt;

function f_ip(f_vp, f_vs, ff_is: real): real;
begin
f_ip := (ff_is*f_vs) / f_vp;
end;

function f_is(f_vp, f_vs, ff_ip: real): real;
begin
f_is := (ff_ip*f_vp) / f_vs;
end;

var
vp, vs, ip, is, pil: real;
begin
clrscr;
writeln('program menghitung arus primer dan sekunder tranformator ');
writeln;
write('Vp (tegangan primer) = ');
readln(vp);
write('Vs (tegangan sekunder) = ');
readln(vs);
writeln;
writeln('1. menghitung arus primer');
writeln('2. menghitung arus sekunder');
write('masukkan pilihan : ');
readln(pil);
writeln;

if (pil = 1) then
begin
write('Is (arus sekunder) = ');
readln(is);
ip := f_ip(vp, vs, is);
writeln('Ip (arus primer) = ', ip:2:2, ' ampere');
end
else if (pil = 2) then
begin
write('Ip (arus primer) = ');
readln(ip);
is := f_is(vp, vs, ip);
writeln('Is (arus sekunder) = ', is:2:2, ' ampere');
end
else
begin
writeln('salah input');
end;
readln;
end.




         

   



                              



     


Output Program     



       

Flowchart 















  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments(0)
Diposting oleh Unknown
Langganan: Postingan (Atom)