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

P_c = I² . R₀

Rugi Tembaga Rotor

P₂ = I² . R₂

Rugi Tembaga Stator

P_cus = I² . R₁

Dimana

            P_c         = Rugi Inti

          P₂           = Rugi Tembaga Rotor

            Pcus      = Rugi Tembaga Stator

            I           = Arus

            R₀        = Hambatan Inti

            R₂        = Hambatan Rotor

            R₁        = 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