Senin, 25 Oktober 2010

Program Jumlah 2 Matriks

,
uses crt;
var B,K,Br,Kl,C,L : Byte;
M1,M2,M3 : Array[1..10,1..10] of Byte;
begin
clrscr;
gotoxy(10,5);write('*****Menjumlahkan Dua Buah Matriks*****');
gotoxy(10,7);write('Jumlah Ordo Matriksnya= x ');
gotoxy(35,7);readln(B);
gotoxy(39,7);readln(K);
gotoxy(10,9);write('Masukan Matriks Ke Satu');
L:=10;
for br :=1 to b do
begin
c :=15;
for kl :=1 to k do
begin
gotoxy(c,l);readln(M1[br,kl]);
c :=c+2;
end;

l :=l+1;
end;
gotoxy(10,14);write('Masukkan Matriks Ke Dua');
l:=15;
for br :=1 to b do
begin
C :=15;
for kl :=1 to k do
begin
gotoxy(c,l);readln(M2[br,kl]);
C :=c+2;
end;
L :=L+1;
end;
gotoxy(10,18);write('Maka Hasil Penjumlahan Matriks');
L:=20;
for br :=1 to b do
begin
C:=15;
for kl :=1 to k do
begin
M3[br,kl] := M1[br,kl] + M2[br,kl];
gotoxy(c,l);write(M3[br,kl]);
C :=c+2;
end;
L :=L+1;
end;
readln;
end.

2 komentar to “Program Jumlah 2 Matriks”

  • 29 Oktober 2010 pukul 06.23
    Sungai Awan says:

    mumet kawand matrix matrix beginian.
    kalau film matrix bagus tuh hehehe

  • 2 Desember 2010 pukul 21.56

    hahahaha............, emang bkin mumet..., aku aja dlu waktu buat lomba puyenk....

Posting Komentar