Seputar laptop - Source Code Matriks dalam Pascal

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

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

Matriks A + Matriks B = Matriks C

Untuk jumlah baris dan kolomnya dapat diadaptasi dengan keinginan.

Berikut ini source code matriks dalam pascal, memakai 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 kesannya 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 perihal Source Code Matriks dalam Pascal, supaya bermanfaat.

Sumber http://www.materi-it.com/