Senin, 30 Juni 2014

Penggunaan Function Pada Bahasa Pemrograman Pascal Untuk Pencatatan Daya Listrik (KWH Dengan Komputer)

Penggunaan Function Pada Bahasa Pemrograman Pascal Untuk Pencatatan Daya Listrik (KWH Dengan Komputer)



Program Lampu Sollar Cell
Function_lampu sollar cell
Interface
Usescrt :
Type
ST100 = String100 [100]
Var
Baris, Colom, Byte :
Tekan : Car :
Procedur 2ot Power (A,B, word);
Function Posisi (x,y :byte) : integer :
Function Posisi (x, y : byte) : integer :
Procedure HID (x, y, war : byte : kar : char) :
Procedure HIDUP (x, y : byte ; menyimpan arus : ST100)
Funcition lampu menyala (x1, y1, x2, y2, : byte ;)
Hidup : string : byte ;
Implementation
Procedure SetPower (A(B : word);
Begin
OnLamp (B);
End