Jumat, 27 Juni 2014

Sistem Kendali Lift Otomatis

FLOWCHART LIFT GEDUNG :
Cara kerja :
1.       start, lift standby
2.       pada saat menekan tombol, pintu lift akan terbuka
3.       lalu tekan lantai yangh di tuju, bila tidak menekan tombol lantai yang akan di tuju, maka lift hanya akan standby saja.
4.       Kemudian lift akan mengecek kondisi, apakah akan naik atau turun.
5.       Bila kondisi down  dan up tidak terpenuhi, maka lift akan kembli ke cek tombol.
6.       Bila terpenuhi, maka lif akan naik atau turun, menuju ke lantai yang diinginkan.
7.       Bila lift berhenti di lantai yang bukan dituju, maka lift akan memilih kondisi untuk mengecek tujuan atau pintu terbuka.
8.       Bila telah sampai di lantai yang dituju, maka lift akan memilih kondisi kembali, apakah lift kondisi mati atau tetap standby.
9.       Selesai.
    Listing Program:
0.Begin
0.Z : = X + Y;
0.Writeln (‘Nilai X = ‘, X);
0.Writeln (‘Nilai Y = ‘, Y);
0Writeln (‘Nilai Z = ‘, Z);
0End;
0
0Var
1A, B, C : Byte;
Begin
A := 5; B:= 7; C:=3;
Hitung (A, B, C);
Writeln (‘Nilai A = ‘,A,’Nilai B = ‘,B,’Nilai C = ‘,C);
Readln;
End.

<strong>Contoh program (by Reference)</strong>
1
Function Hitung (Var X, Y, Z : Byte): Byte;
Begin
.Z : = X + Y;
.Writeln (‘Nilai X = ‘, X);
.Writeln (‘Nilai Y = ‘, Y);
Writeln (‘Nilai Z = ‘, Z);
.End;
.
.Var
A, B, C : Byte;
Begin
A := 5; B:= 7; C:=3;
Hitung (A, B, C);
Writeln (‘Nilai A = ‘,A,’Nilai B = ‘,B,’Nilai C = ‘,C);
Readln;

End.