Generator
sinkron
Kita ketahui
bagaimana sebuah generator sinkron memiliki komponen yang dapat di hitung besarnya
maupun nilainya, dan dari suatu besarnya itu kita ketahui berapa daya yang
keluar dari sebuah generator,misalkan mencari kecepetan rotor Ns dan slip pada
rotor Sr itu dapat kita cari nilai dengan memakai rumus Nr=(Ns*S)-Ns dan
Sr=S*F.
Dari rumus yang
di pakai saya membuat sebuah program pascal seder sederhana yang memudah kan
kita untuk mencari nilai nilai yang ingin kita cari seperti rumus diatas .
Nr = (Ns*S)-Ns
Nr= Keceptan
rotor
Ns=Kecepatan
stator
S=Slip
Dan
Sr=S*f
Sr= slip rotor
S=Sllip
F=Frekuensi
LISITENING PROGRAM
program
GENERATOR_SINKRON;
uses crt;
var
var
menu : integer;
ulang : char;
Ns,S,Nr: real;
Sr,S,F:real;
procedure
MENGHITUNG_KECEPATAN_ROTOR;
begin
repeat
clrscr;
writeln ('MENGHITUNG KECEPATAN ROTOR');
write ('Masukan Nilai Ns : ');readln(Ns);
write ('masukan nilai S :');readln(S)
writeln ('Rumus : (S*Ns)-Ns');
Nr:=(S*Ns)-Ns;
writeln ('Nilai KECEPATAN ROTOR Adalah
:',Nr:0:0);
write (' ulang lagi[y/n]?'); readln
(ulang);
until upcase (ulang) <>'Y';
end;
procedure
Menghitung_Nilai_Rpi;
begin
repeat
clrscr;
writeln ('MENGHITUNG SLIP ROTOR ');
write ('Masukan Nilai SLIP :');readln (B);
write ('Masukan Nilai FREKUENSI
:');readln(G);
writeln ('Rumus : S*F');
Sr:=S*F;
writeln ('Nilai SLIP ROTOR adalah
:',Sr:0:0);
write (' ulang lagi[y/n]?'); readln
(ulang);
until upcase (ulang) <>'Y';
end;
procedure
menu_utama;
begin
clrscr;
writeln ('Menu Utama');
writeln ('1. Menghitung KECEPATAN ROTOR
');
writeln ('2. Menghitung SLIP ROTOR');
writeln ('3. keluar');
writeln;
write ('Pilih Menu :');readln(menu);
case menu of
1: begin
Menghitung_KECEPATAN_ROTOR;
menu_utama;
end;
2:begin
Menghitung_SLIP_ROTOR;
menu_utama;
end;
3: end;
end;
begin
clrscr;
menu_utama;
end.
HASIL DARI PROGRAM
Tidak ada komentar:
Posting Komentar