program Penjumlahan_matriks;
uses winCrt;
type
matriks =
array[1..3, 1..3] of integer;
var
A_559,B_559,C_559:
matriks;
bar_559,kol_559 :
integer;
procedure Isi_MatriksA(bar_559, kol_559 : integer; var A_559
: matriks);
var
i_559,j_559 :
integer;
begin
for i_559:=1 to
bar_559 do
for j_559:=1
to kol_559 do
begin
gotoxy(1,bar_559+6); Write('Masukan baris ke-',i_559,' kolom
ke-',j_559,' : ');readln(A_559[i_559,j_559]);
bar_559:=bar_559+1;
end;
end;
procedure Isi_MatriksB(bar_559, kol_559 : integer; var B_559
: matriks);
var
i_559,j_559 :
integer;
begin
for i_559:=1 to
bar_559 do
begin
for j_559:=1
to kol_559 do
begin
gotoxy(44,bar_559+6);Write('Masukan baris ke-',i_559,' kolom
ke-',j_559,' : ');readln(B_559[i_559,j_559]);
bar_559:=bar_559+1;
end;
end;
end;
procedure Jumlah_Matriks(A_559,B_559 : matriks; bar_559,
kol_559 : integer; var C_559 : matriks);
var
i_559,j_559 :
integer;
begin
for i_559 := 1 to
bar_559 do
for j_559 := 1 to
kol_559 do
C_559[i_559,j_559] := A_559[i_559,j_559] + B_559[i_559,j_559];
end;
procedure Tampil_Matriks(A_559,B_559 : matriks; bar_559,
kol_559 : integer; var C_559 : matriks);
var
i_559,j_559 :
integer;
begin
for i_559:=1 to
bar_559 do
for j_559:=1 to
kol_559 do
begin
gotoxy(j_559*4,i_559+18);
write(A_559[i_559,j_559]);
end;
gotoxy(bar_559+17,kol_559+17);
write('+');
for i_559:=1 to
bar_559 do
for j_559:=1 to
kol_559 do
begin
gotoxy((j_559*4)+27,i_559+18);
write(B_559[i_559,j_559]);
end;
gotoxy(bar_559+42,kol_559+17);
write('=');
for i_559:=1 to
bar_559 do
for j_559:=1 to
kol_559 do
begin
gotoxy((j_559*4)+50,i_559+18);
write(C_559[i_559,j_559]);
end;
end;
begin
gotoxy(18,1);
Write('PROGRAM PENJUMLAHAN 2 MATRIKS ( MAX ORDO 3 X 3 )');
gotoxy(1,2);
Write('=====================================:==========================================');
gotoxy(1,3);
Write(' MATRIKS A : MATRIKS B ');
gotoxy(1,4);
Write('=====================================:==========================================');
gotoxy(1,5);
Write('Banyaknya baris Matriks A :
: ');
gotoxy(1,6); Write('Banyaknya
kolom Matriks A : : ');
gotoxy(45,5);
Write('Banyaknya baris Matriks B : ');
gotoxy(45,6);
Write('Banyaknya kolom Matriks B : ');
gotoxy(1,7);
Write('=====================================:==========================================');
gotoxy(30,5);
readln(bar_559);
gotoxy(30,6);
readln(kol_559);
gotoxy(73,5);
readln(bar_559);
gotoxy(73,6);
readln(kol_559);
Isi_MatriksA(bar_559,kol_559,A_559);
Isi_MatriksB(bar_559,kol_559,B_559);
gotoxy(1,18);write('hasilnya adalah : ');
Jumlah_Matriks(A_559,B_559,bar_559,kol_559,C_559);
Tampil_Matriks(A_559,B_559,bar_559,kol_559,C_559);
gotoxy(1,21);
Write('=================================================================');
end.
A Short Description about youself
Any feedback, questions or ideas are always welcome. In case you are posting Code ,then first escape it using Postify and then paste it in the comments
0 komentar: