TUGAS SOD

uses crt;

Var

pilihan : byte;
B,K,Br,Kl,C,L : Byte;
M1,M2,M3 : Array[1..10,1..10] of Byte;

matriks1,matriks2,hasil:array[1..3,1..2] of integer;
i,j,z :integer; DET,Q:real; a:array[1..10,1..10] of real;
lagi: char;

begin
lagi:='Y';
while (lagi='Y') or (lagi='y') do
begin
clrscr;
gotoxy(1,1); writeln ('NAMA KELOMPOK 6 / NPM');
gotoxy(3,2); writeln ('*HADI SUCIPTO / 10108887');
gotoxy(3,3); writeln ('*KRISTIAN DWI MAHADYANTO / 11108127');
gotoxy(3,4); writeln ('*NURMALITA RAHAYU / 11108472');
gotoxy(3,5); writeln ('*NURFITRIANA / 11108466');
gotoxy(3,6); writeln ('*FIRMANSYAH / 10108828');
gotoxy(25,8); writeln('<<<<<<<>>>>>>>');
gotoxy(10,10); writeln('1.PENJUMLAHAN MATRIKS');
gotoxy(10,12); writeln('2.PERKALIAN MATRIKS');
pilihan:=9;
while(pilihan <0)>2) Do
begin
gotoxy(10,20); write('pilih nomor(1-2) ?'); read (pilihan);
end;
clrscr;

case pilihan Of

1: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;

2:begin
Clrscr;
Gotoxy(10,5);Write('*****Perkalian 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 Perkalian 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;
end;
writeln;
write('MENGHITUNG LAGI (Y/T) ?'); Readln(LAGI);
end; {(lagi='Y') or (lagi='y')}
end.