PROGRAM
USES CRT;
VAR Vi,B,l,v,z:real;
BEGIN
clrscr ;
writeln ('Menghitung Tegangan Induksi Generator AC 3 Fasa');
writeln ('-----------------------------------------------');
write('Flux Magnet = '); readln(B);
write('Panjang Penghantar (m) = '); readln(l);
write('Kecepatan Rata-rata (m/s) = '); readln(v);
write('Jumlah Penghantar = '); readln(z);
writeln('---------------------------------');
Vi:=(B*l*v*z); writeln('Tegangan Induksi Output =', Vi,' Volt');
if Vi >= 220 then Writeln('Tegangan Tinggi')
else writeln( 'Tegangan Rendah' );
readln;
readkey;
end.
FLOWCHART
PROGRAM RUNNING