Pages

Rabu, 22 Juni 2016

Rugi Tembaga pada Motor

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

Pc = I. R0

Rugi Tembaga Rotor

P2 = I. R2

Rugi Tembaga Stator

Pcus = I. 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 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