Tugas 1

Santo Siswa Santosa

112211126

1.       Buat  Program untuk Perkalian 2 Matrik

Program perkalian_matrik;

uses WinCrt;

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.

2.Buat Program untuk menampilkan matrik

Program matrik;

Uses WinCrt;

Var

 A,B,C:ARRAY[1..10,1..10]OF INTEGER;

 X,Y,KOL,BAR:INTEGER;

                       

 BEGIN

  FOR X:=1 TO 5 DO

  BEGIN

 FOR Y:=1 TO 5 DO

 BEGIN

 

   C[X,Y]:=0;

   IF X+Y=6 THEN C[X,Y]:=1;

   WRITE (C[X,Y]:4);

 END;

  WRITELN;

  END;

  END.