PROCEDURE DAN ARRAY

PROCEDURE DAN ARRAY

Buat Tampilan sebagai berikut setelah dijalankan,
disini akan menggunakan pemanggilan procedure garis dan menggunakan
array.
Tampilan Input Data :

Tampilan Output Data :

Listing Program :
uses crt;
procedure garis;
begin
writeln(’————————————————-’);
end;
var i,j : integer;
kode:array[1..5] of integer;
nama,jabatan:array[1..5] of string;
gapok,tunj:array[1..5] of real;