Menanggapi pertanyaan dari saudara EnOk tentang punjumlahan matriks, di turbo pascal kita bisa buat sintaks seperti berikut:
Program Turbo Pascal Penjumlahan_Matriks;
uses crt;
var a,b,f,g:byte; c,d,h,i:longint; e,j:array [1..77,1..77] of integer;
begin clrscr;
writeln('Program Penjumlahan Matriks');writeln;writeln;readln;
writeln('Data tentang matriks pertama');
write('berapa jumlah baris matriks? '); readln(a);
write('berapa jumlah kolom matriks? '); readln(b);
writeln;writeln;writeln('Data tentang matriks kedua');
write('berapa jumlah baris matriks kedua? '); readln(f);
write('berapa jumlah kolom matriks kedua? '); readln(g);
if (a=f) and (b=g) then
begin
writeln;writeln;writeln('Memasukkan elemen matriks pertama'); writeln;
for c:=1 to a do
begin
for d:=1 to b do
begin
write('entri untuk baris ke-',c,' kolom ke-',d,' dari matriks pertama: ')
;readln(e[c,d]);
end;
end;writeln;
writeln('M1:');writeln;
for c:=1 to a do
begin writeln;
for d:=1 to b do
begin
write(e[c,d]:7);
end;writeln;
end;writeln;
writeln('Memasukkan elemen matriks kedua'); writeln;
for h:=1 to f do
begin
for i:=1 to g do
begin
write('entri untuk baris ke-',h,' kolom ke-',i,' dari matriks kedua: ')
;readln(j[h,i]);
end;
end;writeln;
writeln('M2:');writeln;
for h:=1 to f do
begin writeln;
for i:=1 to g do
begin
write(j[h,i]:7);
end;writeln
end;writeln;
writeln('Tekan Enter untuk melihat hasil operasi dari M1+M2!');
readln;
writeln('M1+M2:');writeln;
for c:=1 to a do begin writeln;
for d:=1 to b do begin
for h:=c to f do begin
for i:=d to g do begin
write(e[c,d]+j[h,i]:7); i:=g;
end;h:=f;end;end;writeln;end;end else begin writeln;
writeLN('Maaf?! hasil dari operasi penjumlahan matriks M1+M2 tidak akan dapat dilakukan');
writeLN('karena ordo M1(',a,'x',b,') tidak sama dengan ordo M2(',f,'x',g,')');
end;readln end.
