Pages

Selasa, 12 April 2016

MENCARI RUGI-RUGI PADA MOTOR INDUKSI


Dalam sebuah motor induksi pasti terdapat rugi-rugi daya yang terjadi selama proses motor induksi tersebut berkerja, diantaranya yaitu
Rugi Inti

Pc = I2 . R0

Rugi Tembaga Rotor

P2 = I2 . R2

Rugi Tembaga Stator

Pcus = I2 . R1

Dimana
            Pc         = Rugi Inti
          P2           = Rugi Tembaga Rotor
            Pcus      = Rugi Tembaga Stator
            I           = Arus
            R0        = Hambatan Inti
            R2        = Hambatan Rotor
            R1        = Hambatan Stator

LISTING PROGRAM

program pengulangan;
uses wincrt;
var pilihan,arus, resist, hasil:integer;
begin
writeln ('Program Pengulangan');
writeln;
writeln ('1. Mencari Rugi Inti');
writeln ('2. Mencari Rugi Tembaga Rotor');
writeln ('3. Mencari Rugi Tembaga Stator');
writeln;
writeln ('Pilihan Anda?'); readln (pilihan);
if pilihan=1 then
begin
write ('Nilai Arus :'); readln (arus);
write ('Resistor Inti :'); readln (resist);
hasil:=arus*arus*resist;
writeln;
writeln ('Hasil :',hasil);
end
else
if pilihan=2 then
begin
write ('Nilai Arus :'); readln (arus);
write ('Resistor pada Rotor :'); readln (resist);
hasil:=arus*arus*resist;
writeln;
writeln ('Hasil :',hasil);
end
else
if pilihan=3 then
begin
write ('Nilai Arus :'); readln (arus);
write ('Resistor pada Stator :'); readln (resist);
hasil:=arus*arus*resist;
writeln;
writeln ('Hasil :',hasil);
end
end.

FLOWCHART