Array dalam Pascal

Array (Larik)adalah tipe data terstruktur yang terdiri dari sejumlah komponen dengan tipe data yang sama.

1. Array Berdimensi Satu

BU: Nama_variabel : array[index] of tipe_data;

contoh: nama : array[1..10] of string;

contoh program:

uses crt;

var
nama :array[1..10] of string;
nilai:array[1..10] of integer;
i,jml:byte;
begin
clrscr;
write('Masukan Banyaknya Data : ');readln(jml);
for i:=1 to jml do
begin
writeln;
writeln('Data ke-',i,': ');
write('Nama mahasiswa : ');readln(nama[i]);
write('Nilai murni : ');readln(nilai[i]);
end;
clrscr;
writeln(' Daftar Nilai');
writeln('===============================');
writeln('No Nama Nilai ');
writeln('===============================');
for i:=1 to jml do
begin
gotoxy(1,i+4);writeln(i);
gotoxy(5,i+4);write(nama[i]);
gotoxy(18,i+4);writeln(nilai[i]);
end;
writeln('===============================');
readln;
end.

Tampilan Input:


Tampilan Output:


contoh program 2:
var
np:string[20];
jd,i:byte;
nb:array[1..50]of string;
jb,ttl,hrg:array[1..50]of real;
tot:real;
lagi:char;
label awal,akhir;
begin
awal:
clrscr;
writeln('TOKO "SERBA ADA"');
writeln('-------------------------');
write('masukan nama pembeli :');readln(np);
write('masukan jumlah data :');readln(jd);
for i:=1 to jd do
begin
writeln('data ke- ',i);
write('nama barang :');readln(nb[i]);
write('jumlah beli :');readln(jb[i]);
write('harga :');readln(hrg[i]);
end;
clrscr;
writeln(' TOKO "SERBA ADA"');
writeln(' TABEL PENJUALAN BARANG');
writeln('-----------------------------------------------------------');
writeln('No. Nama pembeli Nama barang Jumlah harga total ');
writeln('-----------------------------------------------------------');
tot:=0;
for i:=1 to jd do
begin
ttl[i]:=hrg[i]*jb[i];
tot:=tot+ttl[i];
end;
for i:=1 to jd do
begin
writeln(i:1,np:10,nb[i]:13,jb[i]:12:0,hrg[i]:8:0,ttl[i]:10:0);
end;
writeln('-------------------------------------------------------------');
writeln('total bayar = ',tot:3:0);
writeln('-------------------------------------------------------------');
write('Mau input data lagi[Y/T]=');readln(lagi);
if (lagi='Y') or (lagi='y') then
goto awal
else
goto akhir;
akhir:
readln;
end.

Tampilan Input:

Tampilan Output: