Penggunaan array pada turbo pascal

contoh program :

————————————————————————————-

uses wincrt;

var
nama : array[1..3] of string;
a : integer;

begin
for a:=1 to 3  do
begin
write(‘Masukan Nama ‘,a,’:’);readln(nama[a]);
end;
clrscr;
writeln(‘Nama Ke-2 :’,nama[1..3]);
end.

————————————————————————————-

uses wincrt;

var
nama : array[1..2,1..5] of string;
a,b : integer;

begin
for a:=1 to 2  do
begin
for b:=1 to 5 do
begin
write(‘Masukan Nama ‘,a,’.’,b,’ :’);readln(nama[a,b]);
end;
end;

writeln(‘Nama  :’,nama[2,3]);
end.

ketiga :

————————————————————————————

uses wincrt;

var
nama : array[1..2,1..2,1..2] of string;
a,b,c : integer;

begin
for a:=1 to 2  do
begin
for b:=1 to 2 do
begin
for c:=1 to 2 do
begin
write(‘Masukan Nama ‘,a,’.’,b,’.’,c ,’:’);readln(nama[a,b,c]);
end;
end;
end;

writeln(‘Nama  :’,nama[1,2,2]);
end.

————————————————————————————-

uses wincrt;

var
nama : array[1..2,1..2] of shortint;
a,b,def : integer;

begin
for a:=1 to 2  do
begin
for b:=1 to 2 do
begin
write(‘Masukan Nama ‘,a,’.’,b,’ :’);readln(nama[a,b]);
end;
end;
def:=(nama[1,1]*nama[2,2])-(nama[1,2]*nama[2,1]);
writeln(‘Nama  :’,def);
end.