Menghitung Tegangan Induksi Output Generator AC

Di bawah ini adalah program untuk perhitungan tegangan output dari generator AC . Untuk menghitungnya data input yang harus ada adalah B ( Flux ), l (Panjang penghantar), v (Kecepatan rata-rata), dan z (Jumlah penghantar).

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