Program Matriks


Input :
Program penjumlahan_2Buah_Matriks;
Uses
    wincrt;
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(' Masukkan 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.
 
Output :






PRAKTIKUM

FISIKA KOMPUTASI I




O L E H :

RUDI SURYADI
F1B1 08 034
FISIKA


LABORATORIUM FISIKA KOMPUTASI
FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM
UNIVERSITAS HALUOLEO
KENDARI
2010

No comments:

Post a Comment