Struktur Data (Tugas1)

Mata Kuliah : Struktur Data

Soal :

1. Buat program untuk perkalian 2 Matrix !

2. Buat Program untuk Menampilkan Matrix dibawah ini :

     0  0  0  0  1

     0  0  0  1  0

     0  0  1  0  0

     0  1  0  0  0

     1  0  0  0  0

Jawaban : (Listring program dan contoh hasil output program)

1. Listing program :

program matrik;
uses wincrt;
var
   A,B,C:ARRAY[1..10,1..10] of integer;
   X,Y,KOL,BAR:INTEGER;
begin
     WRITE('Jumlah Kolom=');READLN(KOL);
     WRITE('Jumlah Baris=');READLN(BAR);
     WRITELN;
WRITELN('Masukkan Matrik A');
for X:=1 to BAR do
begin
     for Y:=1 to KOL do
     begin
          write('[',X,':',Y,']=');Readln(A[X,Y]);
     end;
end;

WRITELN('Masukkan Matrik B');
for X:=1 to BAR do
begin
     for Y:=1 to KOL do
     begin
          write('[',X,':',Y,']=');Readln(B[X,Y]);
     end;
end;

for X:=1 to BAR do
begin
     for Y:=1 to KOL do
     begin
          C[X,Y]:=A[X,Y]*B[X,Y];
     end;
end;

Writeln('Hasil Perkalian');
for X:=1 to BAR do
begin
     for Y:=1 to KOL do
     begin
          write(C[X,Y]:4);
     end;
     writeln;
end;
end.

hasil output program:

2. Listing Program :

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.

hasil output program:

 

 Generated By TPW 1.5.1
~sai~