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