Rugi Tembaga pada Motor

Dalam sebuah motor terdapat rugi-rugi daya yang terjadi selama proses motor induksi tersebut berkerja

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 procedure_rg_motor;

uses crt;

var          i, r, h:real;

                pil:char;

procedure rugi_tb_rotor(arus, cur, res, resist, hasil:real; pilihan:char );

begin

if (pilihan = Y) then

                begin

                hasil:=arus*arus*resist;

                end

else if (pilihan = T) then

begin

                hasil:=cur*cur*res;

                end;

end;

procedure rugi_inti(ii, ham, hasil: real; pilihan: char);

begin

   hasil := ii*ii*ham;

end;

begin

clrscr;

writeln(' Menghitung Rugi Pada Motor');

writeln(' ');

writeln(' ');

writeln(' Menghitung Rugi Tembaga Stator? Y/T'); readln(pil);

if (pilihan = Y) then

begin

write(‘Masukan Nilai Arus Stator :’);readln (i);

write(‘Masukan Nilai Habatan Stator :’);readln (r);

writeln('Nilai Rugi Tembaga Stator : ' );readln (hasil);

end;

if (pilihan = T) then

begin

   writeln(' Menghitung Rugi Tembaga Rotor');

   write(‘Masukan Nilai Arus Rotor :’);readln (i)

   write(‘Masukan Nilai Habatan Rotor :’);readln (r)

   writeln('Nilai Rugi Tembaga Rotor : ' );readln (hasil);

end;

else

   begin

   writeln('salah input');

   end;

   readln;

end.

FLOWCHART