CONTOH PROGRAM MATRIK

CONTOH PROGRAM BENTUK MATRIK

program matriks;
uses wincrt;
var
x:array[1..100,1..100] of integer;
p,l,i,j:integer;
begin
write('banyaknya kolom = '); read(p);
write('banyaknya baris = '); read(l);
 writeln('tulis kebawah sebanyak baris kali kolom');
for i:=1 to l do
for j:=1 to p do
readln(x[i,j]);
writeln('bentuk matriknya : ');
for i:=1 to l do
begin
for j:=1 to p do
write(x[i,j],' ');
writeln;
end;
end.

PROGRAM PENJUMLAHAN DAN PENGURANGAN MATRIK

program matrix;
uses wincrt;
type
    larik=array[1..25,1..25] of real;
var
   i,j,k:byte;
   bar,col:byte;
   a,b,c,d,e:larik;
begin
     write ('baris matrik ?  ');readln(bar);
     write ('kolom matrik ? ');readln(col);
  
     writeln;

     writeln ('matrik pertama');
     for i:=1 to bar do
     begin
          for j:=1 to col do
          begin
               write ('nilai[',i,',',j,']');readln(a[i,j]);
          end;
          writeln;
     end;
     writeln;

     writeln ('matrik kedua');
     writeln;
   
     for i:=1 to bar do
     begin
          for j:=1 to col do
          begin
               write ('nilai[',i,',',j,']');readln(b[i,j]);
          end;
          writeln;
     end;

      writeln;

   
      writeln;
     for i:=1 to bar do
     begin
          for j:=1 to bar do
          begin
               for k:=1 to col do
                   d[i,j]:=a[i,j]+b[i,j]
               end;
          end;

     writeln;
     for i:=1 to bar do
     begin
          for j:=1 to bar do
          begin
               for k:=1 to col do
                   e[i,j]:=a[i,j]-b[i,j]
               end;
          end;
     clrscr;
      writeln ('matrik pertama:');
      for i:=1 to bar do
     begin
          for j:=1 to col do
          begin
               write (a[i,j]:0:0,' ');
          end;
     writeln;
     end;

     writeln ('matrik kedua:');

      for i:=1 to bar do
     begin
          for j:=1 to col do
          begin
               write (b[i,j]:0:0,' ');
          end;
     writeln;
     end;


     writeln ('hasil penjumlahan matrik:');
     writeln;
     for i:=1 to bar do
     begin
          for j:=1 to col do
          write(d[i,j]:9:2);
          writeln;
     end;

     writeln ('hasil pengurangan matrik:');
     writeln;
     for i:=1 to bar do
     begin
          for j:=1 to col do
          write(e[i,j]:9:2);
          writeln;
     end;
end.
 

PERKALIAN MATRIK

program Kali_Matrix;
uses crt;
var
a,b,c : array [1..50,1..50] of integer;
i,j,k,x,y,z : integer;
begin
clrscr;
writeln('Ukuran matrix A');
write('Baris : ');
readln(x);
write('Kolom : ');
readln(y);
writeln;
writeln;
writeln('Ukuran matrix B');
writeln('Baris : ',y);
write('Kolom : ');
readln(z);
for i:=1 to x do
for j:=1 to y do
begin
write('Elemen A[',i,',',j,'] : ');
readln(a[i,j]);
end;
writeln;
for i:=1 to y do
for j:=1 to z do
begin
write('Elemen B[',i,',',j,'] : ');
readln(b[i,j]);
end;
for i:=1 to x do
for j:=1 to z do
for k:=1 to y do
c[i,j] := c[i,j] + a[i,k]*b[k,j];
writeln;
writeln;
writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');
Writeln;
for i:=1 to x do
begin
for j:=1 to z do
write(c[i,j],' ');
writeln;
end;
writeln;
readln;
end.

PROGRAM DETERMINAN

program determinan;

uses wincrt;

var n,i,j,x,y,z,k,l,q,e: integer;

    o,m,p,d:real;

    a:array[1..20,1..20] of real;

    b,c:array[1..20]of real;

    ulang:char;

begin

repeat

clrscr;

writeln ('********************************************');

writeln ('Selamat Datang di Program Determinan Matriks');

writeln ('********************************************');

writeln;

write ('Ordo Matriks yang ingin di input (n x n) : ');

readln (n);

writeln ('Matriks yang akan di input :  Matriks (',n,' x ',n,')');

writeln;

writeln ('--------------------------------------------');

writeln ('Mulai Untuk Input Elemen Matriks Anda') ;

for i:=1 to n do

    begin

    for j:=1 to n do

        begin

        write ('Elemen A(',i,',',j,') : ');

        readln (a[i,j]);

        end;

    end;

clrscr;

writeln ('Bentuk Matriks Anda :');

for i:=1 to n do

    begin

    for j:=1 to n do

        write ('   ',a[i,j]:0:0);

    writeln;

    end;

writeln;

if (n=2) then 

writeln ('Determinan Matriks Anda = ',(a[1,1])*(a[2,2])-(a[1,2])*(a[2,1]):0:0)

else

begin

   for i:=1 to n do

       begin

       for j:=n+1 to n+(n-1) do

           begin

           a[i,j]:=a[i,j-n];

           end;

       end;

   for j:=1 to n do

       begin

       o:=1;

       q:=j-1;

       for z:=1 to n do

           begin

           q:=q+1;

           o:=o*a[z,q];

           end;

           b[j]:=o;

       end;

   for i:=n+(n-1) downto n-1 do

       begin

       o:=1;

       q:=i+1;

       for z:=1 to n do

           begin

           q:=q-1;

           o:=o*a[z,q];

           end;

       c[i]:=o;

       end;

   m:=0;

   p:=0;

   for j:=1 to n do

       m:=m+b[j];

   for i:=n+(n-1) downto n-1 do

       p:=p+c[i];

   d:=m-p; 

   writeln ('Determinan Matriks Anda = ',d:0:0);

end;

writeln;

write('Ingin mencari determinan dari matriks lain [y/t] : ' );

readln(ulang);

until (ulang='t') or (ulang='T');

clrscr;

writeln ('******************************************');

writeln ('Terimakasih Telah Menggunakan Progran Kami');

writeln ('                 @_@                      ');

writeln ('          STATISTIKA ITS 2010             ');

writeln ('******************************************');

end.