Contoh Program Array

Disini saya ingin share kepada teman teman semua tentang contoh program array dalam Turbo Pascal. Seperti yang Sudah diketahui, bahwa array adalah sebuah variable yang dapat menyimpan lebih dari satu nilai sejenis (memiliki tipe data yang sama). Hal ini tentu berbeda dengan variable biasa yang hanya mampu menampung satu buah nilai. Setiap nilai yang disimpan di dalam array di sebut dengan elemen array, sedangkan nilai urut yang digunakan untuk mengakses elemennya disebut dengan indeks array.

Ini adalah salah satu Contoh Program array yang saya buat untuk memenuhi tugas salah satu mata pelajaran Algoritma. Disini saya mengambil sebuah permasalahan billing warnet.  Program ini boleh disebarluaskan dengan syarat tidak merubah title dari program yang saya buat ini. Tanpa panjang lebar lagi ini contoh Program nya :

{TUGAS MEMBUAT PROGRAM ARRAY X-RPL SMK AL-MARWAH}
{Nama    :Andi Alif}
{Kelas   : X-RPL}
{No.Absen:03(*Tiga*)}

program array_warnet;
uses crt;
const max=50;
type Twarnet = record
     Nama : string [25] ;
     bayar : array [1..2] of real;
end;
Tkumpulanwarnet = array[1..max] of Twarnet;
var
A : Tkumpulanwarnet;
i,N: Integer;
NA: real;
durasi:real;
begin
writeln ('=====P R O G R A M  D A T A  W A R N E T=====');
writeln ('-----------------------------------------------------------------------');
write ('Masukan Data yg ingin diisikan :'); readln(N);
writeln;
write ('Memasukan data');
write ('--------------------------------------------------------------------------');
for i:= 1 to N do begin
writeln('data pengunung ke-',i);
with A[i] do begin
write ('Nama             :'); readln(NAma);
write ('Jam Masuk         :'); readln(bayar[1]);
write ('Jam Keluar        :'); readln(bayar[2]);
end;
writeln;
end;
writeln('Menampilkan Data');
writeln('-----------------------------------------------------------');
writeln('Nama':25,'':2,'Bayar','':2,:'Durasi');
writeln('-----------------------------------------------------------');
for i:=1 to N do begin
with A[i] do begin
durasi:=bayar[1]-bayar[2];
NA:=durasi*3000;
write('Nama:25,'':2,NA:0:2,'':2,durasi:0:2);
end;
writeln;
end;
readln;
end.