Universitas Gunadarma
Archive for April 2016
Tugas softkill 2:PERCABANGAN;3IB04A
Listing
Program
Program
Torsi Motor Induksi 3 fasa:
Uses Crt;
Var Kons,E(Teg),E2,Res2,X2:Real;
YN : Char ;
Units : String[2];
Function
TorsiFunc(K1:Real; E2:Real; X2:Real; s:Real) : Real ;
Begin
TorsiFunc (TS) :=( K1 *e2^2*R2) / (R2^2 +
X2^2)
TorsiFunc
(TWB):=(K1*(S*E2)^2*R2)/R2^2+(S*X2)^2
TorsiFunc (TBP):= (3(I2)^2*R2)/S
End;
Begin
Repeat
Clrscr;
Write(^^^^Menghitung Torsi Motor Induksi
3 fasa^^^^);
Writeln;
Write(‘Masukkan K:’);
Readln(Konstanta);
Write(‘Masukkan R2 [Kilo Ohm] :’);
Readln (Res2);
Write(‘Masukkan X2 [Kilo Ohm]:’);
Readln (XRes2);
Write (‘Masukkan E2 [volt]:’);
Readln (Volt2);
If then;
Writeln;
Write(‘Masukkan K:’);
Readln(Konstanta);
Write(‘Masukkan R2 [Kilo Ohm] :’);
Readln (Res2);
Write(‘Masukkan X2 [Kilo Ohm]:’);
Readln (XRes2);
Write (‘Masukkan E2 [volt]:’);
Readln (Volt2);
Repeat
If Then;
Write (‘Satuannya Newton meter? Masukkan
[Nm]:’);
Readln(UnitS);
Until
(units=’Nm’);
Write (‘Jumlah
Torsi Induksi Totalnya adalah ‘);
Writeln TorsiFunc(TS) :=( K1 *e2^2*R2) / (R2^2 +
X2^2)
TorsiFunc
(TWB):=(K1*(S*E2)^2*R2)/R2^2+(S*X2)^2
TorsiFunc (TBP):=
(3(I2)^2*R2)/S,’’,unitS);
Writeln;
Write(‘Ulangi?Y atau N):’);
YN:Readkey;
Until
(YN in [‘N’,’n’]);
End.
Flowchart Mehitung Torsi Motor Induksi 3 Fasa
Dengan function,If Then Pada Pascal
 |
| Penjelasan Listing Program Motor Induksi Tiga fase deangan menggunakan tiga rumus Dengan dua looping peryataan |
1. Start
2. Masukkan nilai R2
3. Masukkan nilai X2
4. Masukkan nilai S
5. Masukkan nilai E2
6. Satuannya Newton Meter? Jika ’Ya’ maka masukkan kata
’Nm’,jika ’Tidak’ maka
akan berlanjut sampai kata ’NM’
dimasukkan.
7. Jumlah Torsi yang di
pakai ada tiga Torsi yaitu TS(Torsi saat start,
(TWB)Torsi waktu berputar,
(TBP) Torsi Beban Penuh.
TorsiFunc(TS)
:=( K1 *e2^2*R2) / (R2^2 + X2^2)
TorsiFunc
(TWB):=(K1*(S*E2)^2*R2)/R2^2+(S*X2)^2
TorsiFunc (TBP):=
(3(I2)^2*R2)/S,’’,unitS);
Kita bias memasukkan
sesuai dengan rumus yang kita ingankan
dari tiga rumus tersebut
dengan ketentuan data yang di ketahui
sesuai dengan
masing-masingrumus
8. Ulangi?Jika ’YA’ maka program akan memulai dari awal lagi,jika
’Tidak’ maka program akan
berakhir.
9. End
