Kamis, 23 Juni 2016

GENERATOR SINKRON

    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
    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.


    FLOWCHART BAGAIMANA PROGRAM ITU BEKERJA






    HASIL DARI PROGRAM


    Tidak ada komentar:

    Posting Komentar