penggunaan record pada pascal

program latrecord;

uses wincrt;

type
mahasiswa = record
nim : array[1..5] of string;
nama : array[1..5] of string;
ipk : array[1..5] of real;
end;

var datmhs : mahasiswa;
a : integer;
x : integer;

begin

for a := 1 to 5 do
begin
write(‘Nim Siswa = ‘); readln(datmhs.nim[a]);
write(‘Nama Siswa = ‘); readln(datmhs.nama[a]);
write(‘IPK Siswa = ‘); readln(datmhs.ipk[a]);
end;

clrscr;

penggunaan array untuk mencari determinan

program determinan;
uses wincrt;

var
nama : array[1..3,1..3] of shortint;
a,b,c,def,x1,x2,x3,x4,x5,x6 : integer;

begin
for a:=1 to 3  do
begin
for b:=1 to 3 do
begin
write(‘Masukan angka’,a,’.’,b,’:’);readln(nama[a,b]);
end;
end;
x1:=(nama[1,1]*nama[2,2]*nama[3,3]);
x2:= (nama[1,2]*nama[2,3]*nama[3,1]);
x3:=(nama[1,3]*nama[2,1]*nama[3,2]);
x4:= (nama[1,3]*nama[2,2]*nama[3,1]);
x5:= (nama[1,1]*nama[2,3]*nama[3,2]);
x6:=  (nama[1,2]*nama[2,1]*nama[3,3]);
def:=  x1+x2+x3-x4-x5-x6;
writeln(‘Nama  :’,def);
end.

Penggunaan array pada penjumlah matrik

program jumlah2x2;

uses wincrt;

type Matrix=Array[1..2,1..2] of shortint;

var
x,y,Det,A,B,C,D,E,F,G,H                 : shortint;
AA,BB,CC,DD                             : shortint;
jawab                                           : char;

begin
repeat
clrscr;

penggunaan array untuk menghitung perkalian matrik

===============================================================================================
program Perkalian;

uses wincrt;

type Matrix=Array[1..3,1..3] of shortint;

var
x,y,Det,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R     : shortint;
AA,BB,CC,DD,EE,FF,GG,HH,II                      : shortint;
jawab                                           : char;

begin
repeat
clrscr;

writeln(‘Matrix A’);

for x:=1 to 1 do
begin
for y:=1 to 1 do
begin
write(‘Input Matrix ke 1 = ‘);readln(A);
write(‘Input Matrix ke 2 = ‘);readln(B);
write(‘Input Matrix ke 3 = ‘);readln(C);
write(‘Input Matrix ke 4 = ‘);readln(D);
write(‘Input Matrix ke 5 = ‘);readln(E);
write(‘Input Matrix ke 6 = ‘);readln(F);
write(‘Input Matrix ke 7 = ‘);readln(G);
write(‘Input Matrix ke 8 = ‘);readln(H);
write(‘Input Matrix ke 9 = ‘);readln(I);
end;
end;

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.

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