HIGH

Mengambil nilai tertinggi dari range suatu argumen.

Contoh:

Type

 Hari=(senin,selasa,rabu,kamis.jumat,sabtu,minggu);

Var

 namahari:hari;

i:integer;

const nhari:array[hari] of string[6]=(‘Senin’,’Selasa’,’Rabu’,’Kamis’,’Jumat’,’Sabtu’,’Minggu’);

begin

for namahari:=low(namahari) to high(namahari) do

begin

writeln(nhari[namahari]);

end;

readln;

end.

Kembali ke Contoh Program Turbo Pacal