Tugas Ke-4 Algoritma & Pemrograman Kasus Elektro

TUGAS KE-4 ALGORITMA & PEMROGRAMAN KASUS ELEKTRO

Nama : HENDRICKSON

NPM : 13410221

Kelas : 3IB02A

Buat program (sesuai dengan konsentrasi masing-masing) menggunakan "PROCEDURE".
Terdapat "PROCEDURE" di dalam program utama.
Jadi ada proses yang dikerjakan di dalam "PROCEDURE" ada yang dikerjakan di program utama.

Penggunaan Function Pada Bahasa Pemprograman Pascal Untuk Pencatatan Daya Listrik (KWH dengan Komputer)

Program lampu sollar cell

Function_lampu sollar cell

InterFace

Uses Crt:

Type

ST100 = String100[100]

Var

Baris, Colom, Byte :

Tekan: Car:

Procedur  2Ot Power (A, B, word) ;

Function Posisi (x, y: byte) : integer :

Procedure HID (x, y, WAR : byte : kar : Char) :

Procedure HIDUP (x, y: byte ;menyimpan arus : ST100)

Function lampu menyala (x1, y1, x2, y2 : byte;)

Hidup : string): byte ;

Implementation

Procedure SetPower (A(B : word);

Begin

OnLamp (B) :

end