Source Code Matriks dalam Pascal

Source Code Matriks dalam Pascal - Penjumlahan matriks mengingatkan ane tentang matakuliah matematika informatika di semester awal.

Intinya dalam source code berikut membahas tentang penjumlahan 2 buah matriks dikatakan :

Matriks A + Matriks B = Matriks C

Untuk jumlah baris dan kolomnya bisa disesuaikan dengan keinginan.

Berikut ini source code matriks dalam pascal, menggunakan compiler dev-pascal :

program Jumlahatriks;

uses crt;

const
Jbaris = 2;
Jkolom = 3;

type
Matriks23 = array[1..Jbaris, 1..Jkolom] of integer;

var
A, B, C: Matriks23;
j, k: integer; {untuk indeks pengulangan}
begin
clrscr;

{mengisikan matriks A}
writeln('Matriks A');
for j:=1 to Jbaris do begin
for k:=1 to Jkolom do begin
write('A[', j, ',', k, '] = '); readln(A[j, k]);
end;
writeln;
end;
writeln;

{mengesikan matriks B}
writeln('matriks B');
for j:=1 to Jbaris do begin
for k:=1 to Jkolom do begin
write('B[', j, ',', k, '] = '); readln(B[j, k]);
end;
writeln;
end;
writeln;

{melakukan penjumlahan matriks A dan B sekaligus menampilkan hasilnya ke layar}
writeln('hasil penjumlahan');
for j:=1 to Jbaris do begin
for k:=1 to Jkolom do begin
C[j, k] := A[j,k] + B[j,k];
writeln('C[', j, ',', k, '] = ', C[j,k]);
end;
writeln;
end;

readln;
end.

Berikut hasil outputnya :

Sekian artikel tentang Source Code Matriks dalam Pascal, semoga bermanfaat.