program latihan_matriks;
uses wincrt;
var
mat:array [1..3,1..2] of integer;
b,k:integer;
begin
writeln('latihan matriks 3x2 cuyyyyyyyy');
writeln('===============================');
mat[1,1]:=1;
mat[1,2]:=2;
mat[2,1]:=3;
mat[2,2]:=4;
mat[3,1]:=5;
mat[3,2]:=6;
for b:= 1 to 3 do begin
for k:= 1 to 2 do begin
writeln ('NILAI BARIS',b,',KOLOM,',k,',=',mat[b,k]);
end;
end;
end.
program latihan_input_matriks_3x2;
uses wincrt;
var
mat :array [1..3,1..2] of integer;
b,k:integer;
begin
{matriks input 1}
for b:=1 to 3 do begin
for k:=1 to 2 do begin
write ('Nilai Baris',b,',kolom,',k,',=');readln (mat[b,k]);
end;
end;
writeln ('matriks 1 :');
{bentuk matriks 1}
for b:=1 to 3 do begin
for k:=1 to 2 do begin
write (mat[b,k]:4)
end;
writeln;
end;
{matriks input 2 :}
for b:=1 to 3 do begin
for k:=1 to 2 do begin
write ('Nilai Baris',b,',kolom,',k,',=');readln (mat[b,k]);
end;
end;
writeln('mtriks 2');
{bentuk matriks 2}
for b:=1 to 3 do begin
for k:=1 to 2 do begin
write (mat[b,k]:4)
end;
writeln;
end;
end.
PENJUMLAHAN :
program latihan_input_matriks_3x2;
uses wincrt;
var
mat,hasil :array [1..3,1..2] of integer;
b,k:integer;
begin
{matriks input 1}
for b:=1 to 3 do begin
for k:=1 to 2 do begin
write ('Nilai Baris',b,',kolom,',k,',=');readln (mat[b,k]);
end;
end;
writeln ('matriks 1 :');
{bentuk matriks 1}
for b:=1 to 3 do begin
for k:=1 to 2 do begin
write (mat[b,k]:4)
end;
writeln;
end;
{matriks input 2 :}
for b:=1 to 3 do begin
for k:=1 to 2 do begin
write ('Nilai Baris',b,',kolom,',k,',=');readln (mat[b,k]);
end;
end;
writeln('mtriks 2');
{bentuk matriks 2}
for b:=1 to 3 do begin
for k:=1 to 2 do begin
write (mat[b,k]:4)
end;
writeln;
end;
{matriks Penjumlahan}
for b:=1 to 3 do begin
for k:=1 to 2 do begin
hasil[b,k]:=mat[b,k]+mat[b,k];
end;
writeln;
end;
{proses menampilkan hasil penjumlahan}
writeln ('hasil penjumlahan');
for b:= 1 to 3 do begin
for k:= 1 to 2 do begin
write(hasil[b,k]:4);
end;
writeln;
end;
END.