Matematika Informatika 1

end;
readln;
begin
repeat
clrscr;
gotoxy (25,1);writeln ('***** Menu Matrik *****');
gotoxy (25,2);writeln ('1. Input Matrik');
gotoxy (25,3);writeln ('2. Matrik Invers');
gotoxy (25,4);writeln ('3. Keluar');
gotoxy (25,5);writeln
('************************');
gotoxy (27,6);write ('Pilihan [1..3] :'); readln
(pil);
end.
Output
case pil of
1 : begin
mat.input;
mat.tampil;
end;
2 : mat.invers;
end;
until (pil) = 3;
Masukan Ordo Matrik [2/3] : 3
Masukan Elemen Matrik 3x3
Elemen [1,1] = 2
Elemen [1,2] = 5
Elemen [1,3] = 3
Elemen [2,1] = 9
Elemen [2,2] = 2
Elemen [2,3] = 1
Elemen [3,1] = 4
Elemen [3,2] = 5
***** Menu Matrik *****
1. Input Matrik
2. Matrik Invers
3. Keluar
************************
Pilihan [1..3] :1
26