Pemograman Procedure Array Penjumlahan Matrik Dengan Pascal

codingator.blogspot.com,- Pasti agan yang sudah tahu dong Bahasa Pascal apalagi yang sudah menekuni dunia Komputer dan dunia Pemograman. Kali ini saya ingin berbagi cara membuat program Procedure penjumlahan Matrik dengan pascal.

Silahkan Copy source code di bawah ini :

Program ArrayDuaDimensi2;
uses crt;
Var
matrik1,matrik2:array[1..2,1..2] of byte;
hkurang,htambah:array[1..2,1..2] of integer;
b,k:byte;
procedure inputmatrik;
begin
writeln('Input Isi Matrik 1 ');
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
write('Isi Matrik Baris ',b,' Kolom ',k,' = ');
readln(matrik1[b,k]);
end;
end;
writeln('Input Isi Matrik 2 ');
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
write('Isi Matrik Baris ',b,' Kolom ',k,' = ');
readln(matrik2[b,k]);
end;
end;
end;
procedure tambahmatrik;
begin
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
htambah [b,k]:=matrik1[b,k]+matrik2[b,k];
end;
end;
end;
procedure kurangmatrik;
begin
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
hkurang[b,k]:=matrik1[b,k]-
matrik2[b,k];
end;
end;
end;
procedure CetakMatrik;
begin
clrscr;
writeln('Isi Matrik 1 ');
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
write(matrik1[b,k]:4);
end;
writeln;
end;
write('tekan enter untuk melihat isi matrik 2');
readln;
writeln;
writeln('Isi Matrik 2 ');
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
write(matrik2[b,k]:4);
end;
writeln;
end;
write('tekan enter untuk melihat hasil penjumlahan');
readln;
writeln;
writeln('Hasil Penjumlahan ');
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
write(htambah[b,k]:4);
end;
writeln;
end;
write('tekan enter untuk melihat hasil pengurangan');
readln;
writeln;
writeln('Hasil pengurangan ');
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
write(hkurang[b,k]:4);
end;
writeln;
end;
writeln;
write('tekan enter untuk keluar');
readln;
end;
{Program Utama}
begin
inputmatrik;
tambahmatrik;
kurangmatrik;
cetakmatrik;
End.

Maka akan mengahasilkan output :
 output 1 :

output 2 :

Share This Article :