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 :
Intinya dalam source code berikut membahas perihal penjumlahan 2 buah matriks dikatakan :
Matriks A + Matriks B = Matriks CUntuk 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/
Komentar
Posting Komentar