Array (Pascal)

A.      List Program

Kali ini kita akan membuat program Array atau Perulangan pada Turbo Pascal. Caranya sangat mudah, yang pertama tuliskan atau copy paste listing program dibawah ini :

uses crt;

var

i,j : integer;

nm,npm,kelas : array [1..100] of string [25];

nilai1,nilai2,rata : array [1..100] of real ;

begin

for i := 1 to 2 do

begin

write ('Masukan Nama ='); readln(nm[i]);

write ('Masukan NPM ='); readln(npm[i]);

write ('Masukan Kelas ='); readln(kelas[i]);

write ('Nilai 1    ='); readln(nilai1[i]);

write ('Nilai 2    ='); readln(nilai2[i]);

rata[i] := (nilai1[i] + nilai2[i])/2;

end;

for j := 1 to 2 do

begin

writeln('Nama =',nm[j]);

writeln('Npm =',npm[j]);

writeln('Kelas =',kelas[j]);

writeln('Nilai 1 =',nilai1[j]);

writeln('Nilai 2 =',nilai2[j]);

writeln('Rata rata =',rata[j]);

end;

readln;

end.

B.      Output

Compile terlebih dahulu program diatas dengan menekan alt + f9 (gambar 1.1). Jika tidak terjadi kesalahan, kemudian run program dengan menekan alt +f9, akan muncul output seperti pada gambar 1.2 :

Gambar 1.1

Gambar 1.2