December 28th, 2010 by catur

Kembangkan program di bawah ini untuk menghitung :

1. Pekalian matriks A dan B

2. Determinan matriks

Program Baca_tulis_matriks ;
uses crt;
Const
  elemen = 3;
Var
  m,n,i,j : integer;
  matriks_A : Array[1..elemen,1..elemen] of integer;
  matriks_B : Array[1..elemen,1..elemen] of integer;

begin

 { Mengisi elemen matriks A }
 clrscr;
 write(‘Baca ukuran baris Matriks A :’,’ ‘);readln(m);
 write(‘Baca ukuran kolom matriks A :’,’ ‘);readln(n);
 writeln(‘Matriks anda berukuran’,’ ‘,m,’x’,n,’ ‘);
 for i:=1 to m do { mengisi untuk sejumlah baris}
   for j:=1 to n do { mengisi untuk sejumlah kolom}
   begin
     write(‘Baca elemen matriks ke [‘,i:2,’,’,j:2,’] :’);
     readln(matriks_A[i,j]);
   end;

 { Mengisi elemen matriks B }
 clrscr;
 write(‘Baca ukuran baris Matriks B :’,’ ‘);readln(m);
 write(‘Baca ukuran kolom matriks B :’,’ ‘);readln(n);
 writeln(‘Matriks anda berukuran’,’ ‘,m,’x’,n,’ ‘);
 for i:=1 to m do { mengisi untuk sejumlah baris}
   for j:=1 to n do { mengisi untuk sejumlah kolom}
   begin
     write(‘Baca elemen matriks ke [‘,i:2,’,’,j:2,’] :’);
     readln(matriks_B[i,j]);
   end;

 { Menampilkan isi / elemen matriks A}
 Clrscr;
 writeln;
 writeln(‘Matriksnya :’,’ ‘);
 for i:=1 to m do
 begin
   for j:=1 to n do
    write(matriks_A[i,j]:3); writeln;
 end;

 { Menampilkan isi / elemen matriks B}
 writeln;
 writeln(‘Matriksnya :’,’ ‘);
 for i:=1 to m do
 begin
   for j:=1 to n do
    write(matriks_B[i,j]:3); writeln;
 end;
 readln;

end.

Leave a Reply