MATRIKS :




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.