Laporan Akhir Pratikum 10 (Program Array Pascal)

Program Array Pascal

Program akses_array;

Uses crt;

Const max = 10;

Var

a: array [1..max] of char;

c: char;

i: integer;

Begin

Clrscr;

c:= '0';

i:= 1;

While (i <= max) do begin

A [i] := c;

Inc (c);

Inc (i);

End;

For i := 1 to max do begin

Write (a[i]);

End;

Readkey;

End.

Hasil Output program diatas :