PEMOGRAMAN

Berikut code program untuk penjumlahan dan pengurangan matriks dengan menggunakan bahasa pemrograman Pascal

Program menu_matriks;
uses crt;
Type
matrix = array[1..2,1..3] of integer;
var
matrixa,matrixb : matrix;
p : byte;

{—-UNTUK MENU—–}
procedure menu(var pil:byte);
begin
clrscr;
Writeln(’Menu Matrix’);
Writeln(’ 1.Penjumlahan’);
Writeln(’ 2.Pengurangan’);
Writeln(’ 3.Exit’);
Write(’Pilihan Anda : ‘);
Readln(pil);
end;

{—-UNTUK INPUT—-}
procedure Input(var i:matrix);
var x,z : integer;
begin
for z:=1 to 2 do
begin
for x:=1 to 3 do
begin
Write(’Inputkan Matrix[',z,' , ',x,'] : ‘);
Readln(i[z,x]);
end;
end;
end;

{—-UNTUK MENAMPILKAN MATRIX—-}
procedure Tampil(var i:matrix);
var x,z : integer;
begin
writeln;
for z:=1 to 2 do
begin
for x:=1 to 3 do
begin
Write(i[z,x]:4);
end;
Writeln;
end;
end;

{—-UNTUK PROSES PENJUMLAHAN—-}
procedure Jumlah(var a,b:matrix);
var k : matrix;
x,z : integer;
begin
writeln;
writeln(’Hasil Penjumlahan Matriks’);
for z:=1 to 2 do
begin
for x:=1 to 3 do
begin
k[z,x] := a[z,x] + b[z,x];
write(k[z,x]:4);
end;
writeln;
end;
end;

{—-UNTUK PROSES PENGURANGAN—-}
procedure Kurang(var a,b:matrix);
var k : matrix;
x,z : integer;
begin
writeln;
writeln(’Hasil Pengurangan Matriks’);
for z:=1 to 2 do
begin
for x:=1 to 3 do
begin
k[z,x] := a[z,x] - b[z,x];
write(k[z,x]:4);
end;
writeln;
end;
end;

{—-PROGRAM UTAMA—-}
begin
while p <> 3 do
begin
menu(p);
clrscr;
case p of
1: begin
writeln(’Penjumlahan Matriks’);
writeln(’Matriks I’);
Input(matrixa);
writeln;
writeln(’Matriks II’);
Input(matrixb);
writeln;

clrscr;
Write(’Matriks I’);
Tampil(matrixa);
writeln;
Write(’Matriks II’);
Tampil(matrixb);
jumlah(matrixa,matrixb);
Readln;
end;
2: begin
write(’Pengurangan Matriks’);
writeln(’Matriks I’);
Input(matrixa);
writeln;
writeln(’Matriks II’);
Input(matrixb);
writeln;

clrscr;
Write(’Matriks I’);
Tampil(matrixa);
writeln;
Write(’Matriks II’);
Tampil(matrixb);
kurang(matrixa,matrixb);
Readln;
end;
end;
end;
end.