Tag: matriks

Pascal : Coding Penjumlahan Matriks

program Penjumlahan_Matrix;uses crt;const kolom=10;baris=10;type matrix=array[1..baris,1..kolom] of integer;var matrix_A,matrix_B:matrix;a,b:integer;procedure InputMatrix(var x:matrix);var i,j:integer;beginfor i := 1 to a dobeginfor j := 1 to b dobeginwrite(‘Masukkan Elemen[‘,i,’,’,j,’]:’);readln(x[i,j]);end;end;end;procedure CetakMatrix(var x:matrix);var i,j:integer;beginfor i := 1 to a dobeginfor j := 1 to b dobeginwrite(x[i,j]:4);end;writeln;end;end;procedure JumlahMatrix(var x,y:matrix);var z:matrix;i,j:integer;beginfor i:=1 to a dobeginfor j:=1 to b dobeginz[i,j]:=x[i,j] + y[i,j];write(z[i,j]:4);end;writeln;end;end;beginclrscr;write(‘Masukkan Jumlah Baris :