Contoh Program Array (Larik) Dalam Bahasa Pemrograman Pascal

Array

          Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.

Contoh :

1. Program 

program contoh_record_sederhana;

uses wincrt;

type

data_pegawai = record

kd_peg : string[5];

nama : string[15];

alamat : string[20];

gaji : integer;

end;

var

pegawai : data_pegawai;

begin

clrscr;

write('Kode pegawai =');readln(pegawai.kd_peg);

write('Nama pegawai =');readln(pegawai.nama);

write('Alamat pegawai =');readln(pegawai.alamat);

write('Gaji pegawai =');readln(pegawai.gaji);

writeln('Kode pegawai :',pegawai.kd_peg);

writeln('Nama pegawai :',pegawai.nama);

writeln('Alamat pegawai :',pegawai.alamat);

writeln('Gaji pegawai :',pegawai.gaji);

readln;

end.

Output 

2. Program

uses wincrt;

type

databuku=record

judul_buku :string;

kode :char;

pengarang :string;

edisi:integer;

tahun_terbit:integer;

penerbit:string;

end;

var

perpustakaan:array[1..20] of databuku;

jumlah,i,j:byte;

dummy:databuku;

begin

write('Masukan Jumlah Buku =');readln(jumlah);

for i:=1 to jumlah do

with perpustakaan[i] do

begin

writeln;

write('Masukan Judul Buku ke-',i:2,':');readln(judul_buku);

write('masukan kode Buku ke-',i:2,':');readln(kode);

write('masukan pengarang buku ke-',i:2,':');readln(pengarang);

write('masukan edisi buku ke-',i:2,':');readln(edisi);

write('masukan tahun terbit buku ke-',i:2,':');readln(tahun_terbit);

write('masukan penerbit buku ke-',i:2,':');readln(penerbit);

end;

for i:=1 to jumlah-i do

for j:=1 to jumlah-j do

if perpustakaan[j].judul_buku>perpustakaan[j+1].judul_buku then

begin

dummy:=perpustakaan[j];

perpustakaan[j]:=perpustakaan[j+1];

perpustakaan[j+1]:=dummy

end;

writeln;

writeln('================DAFTAR BUKU===============');

writeln('==========================================');

writeln('Judul Buku____Kode Buku____Pengarang Buku____Edisi____Tahun Terbit____Penerbit');

writeln('_________________________________________________________________________');

for i:=1 to jumlah do

begin

with perpustakaan [i] do

writeln(judul_buku:10,kode:10,pengarang:15,Edisi:13,tahun_terbit:10,penerbit:17);

end;

writeln('________________________________________________________________________');

end.

Output

3. Program

Program Data_mahasiswa;

uses wincrt;

var

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

NPM:array[1..10]of string[20];

alamat:array[1..20]of string[30];

i,j :integer;


begin

clrscr;

write('Masukkan Jumlah Data Mahasiswa :'); readln(j);

for i:=1 to j do


begin

writeln('Data ke-',i);

write('Nama Mahasiswa :'); readln(nama[i]);

write('Masukkan NPM :'); readln(NPM[i]);

write('Alamat :'); readln(alamat[i]);

end;


clrscr;

writeln('*******************************************************************************');

writeln('No. | Nama Mahasiswa | NPM | Alamat |');

writeln('*******************************************************************************');


for i:= 1 to j do

begin

writeln(i:1, nama[i]:20, NPM[i]:25, alamat[i]:25);

end;


writeln('************************************************************************');

readln;

end.

Output

4. Program

uses wincrt;
var
i,n:integer;

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

nilai:array[1..10]of integer;

lagi:char;

begin

lagi:='y';

while lagi = 'y' do

begin

write ('Banyaknya Data = '); readln (n);

for i:= 1 to n do

begin

write ('Nama ke-',i,' = '); readln (nama[i]);

write ('Nilai ke-',i,' = ');readln (nilai[i]);

writeln;

end;

writeln ('-----------------');

writeln ('Nama Nilai');

writeln ('-----------------');

for i:= 1 to n do

writeln (nama[i],' ',nilai[i]);

writeln ('-----------------');

writeln;

write ('Apakah program akan diulang kembali (y/t) = ');

readln (lagi);

writeln;

end;

end.

Output

5. Program

Program Contoh;

uses wincrt;

var

nilai: array[1..5] of integer;

begin

nilai[1]:=100;

nilai[2]:=90;

nilai[3]:=80;

nilai[4]:=61;

nilai[5]:=73;

writeln ('Nilai ke-4 adalah = ',nilai[4]);

end.

Output