Program Hitungan Motor AC Procedure Menggunakan Pascal

Posted by : dwinyoman@blog.com Selasa, 21 Juni 2016

program hitungan_mesin_induksi;
uses crt;
var
menu : integer;
ulang : char;
I1,V1,ztot : real;
Pcus,I,R1:real;
Pcs,I0,R0:real;
Efs,P0,PIN:real;
procedure Arus_stator;
begin
repeat
clrscr;
writeln ('Menghitung Arus stator');
write ('Masukan Nilai tegangan :');readln(V1);
write ('Masukan Nilai Impedansi Total :');readln(Ztot);
writeln ('Rumus : V1/Ztot');
I1:=V1/Ztot;
writeln ('Arus Stator Adalah :',I1:0:0);
write (' ulang lagi[y/n]?'); readln (ulang);
until upcase (ulang) <>'Y';
end;

procedure Rugi_tembaga_stator;
begin
repeat
clrscr;
writeln ('Menghitung rugi tembaga stator');
write ('Masukan Nilai arus:');readln (I1);
write ('Masukan Nilai hambatan :');readln(R1);
writeln ('Rumus : I1^2*R1');
Pcus:=I1*I1*R1;
writeln ('rugi tembaga stator adalah :',Pcus:0:0);
write (' ulang lagi[y/n]?'); readln (ulang);
until upcase (ulang) <>'Y';
end;

procedure rugi_inti_stator;
begin
repeat
clrscr;
writeln ('Menghitung rugi inti stator');
write ('Masukan Nilai arus :');readln (I0);
Write ('Masukkan Nilai hambatan:');readln(R0);
writeln ('Rumus : I0^2*R0');
Pcs:=I0*I0*R0;
writeln ('rugi inti stator adalah :',Pcs:0:0);
write (' ulang lagi[y/n]?'); readln (ulang);
until upcase (ulang) <>'Y';
end;

procedure Efisiensi;
begin
repeat
clrscr;
writeln ('Menghitung nilai efisiensi ');
write ('Masukan Nilai daya output:');readln (P0);
write ('Masukan Nilai daya input:');readln(Pin);
writeln ('Rumus : P0*100%/Pin');
efs:=P0*100/Pin;
writeln ('jadi nilai efisiensi adalah :',efs:0:0);
write (' ulang lagi[y/n]?'); readln (ulang);
until upcase (ulang) <>'Y';
end;

procedure menu_utama;
begin
clrscr;
writeln ('Menu Utama');
writeln ('1. Arus Stator');
writeln ('2. Rugi tembaga stator');
writeln ('3. Rugi inti stator');
writeln ('4. Efisiensi');
writeln ('5. keluar');
writeln;
write ('Pilih Menu :');readln(menu);
case menu of
1: begin
Arus_stator;
menu_utama;
end;
2:begin
Rugi_tembaga_stator;
menu_utama;
end;
3:begin
Rugi_inti_stator;
menu_utama;
end;
4: begin
Efisiensi;
menu_utama;
end;
5:end;
end;
begin
clrscr;
menu_utama;
end

Menu

FLOWCHART PROGRAM HITUNGAN MESIN INDUKSI

Penjelasan Flowchart

Pada program procedure ini, saya mencoba untuk membuat perhitungan motor induksi .Program Procedure berada di atas dari menu,yang memiliki empat menu yaitu kecepatan stator,slip,frekuensi rotor dan Torsi Beban penuh. Ketika program di jalankan pengguna akan di suruh untuk memasukan nilai pole,frekuensi,slip dan kecepatan rotor yang sudah di ketahui sesuai dengan rumus. dan selanjutnya program di jalankan mulai dengan memasukkan rumus masing-masing program yang sudah ada dimenu pilihan kemudian kita dilanjutkan dengan memilih menu apa yang kita mau pilih.Jika kita sudah memilih menu akan dilanjutakn dengan pemnrosesan rumus yang sudah di masukkan pada awal program.kemudian kita tinggal memasukkan nilai yang kita inginkan dengan rumus yang sudah tersedia.Sehingga kita akan mendapatkan hasilnya.