Struktur data chapter_04
0 likes84 views
Dokumen ini membahas penggunaan array dua dan tiga dimensi dalam Delphi untuk merepresentasikan matriks. Terdapat contoh kode program yang mendemonstrasikan cara membuat, mengisi, dan melakukan operasi-operasi dasar pada matriks seperti penjumlahan, pengurangan, dan perkalian matriks.
![ Var
X: array[1..3,1..4] of integer;
Begin
X[1,1]:=10;
X[1,2]:=20;
End.](https://image.slidesharecdn.com/strukturdatachapter04-150505034755-conversion-gate01/85/Struktur-data-chapter_04-4-320.jpg)
![ program SD03Array2D;
{$APPTYPECONSOLE}
uses SysUtils;
var
x:array[1..10,1..10] of integer;
i,j,m,n: integer;
begin
writeln('Program ini akan
membuat matriks');
write('Jumlah baris = '); readln(m);
write('Jumlah kolom = '); readln(n);
for i:=1 to m do
begin
for j:=1 to n do
begin
write('Elemen ke ',i,',',j,' = ');
read(x[i,j]);
end;
end;
writeln('Matriks yang dihasilkan :');
writeln('Matriks', m,n);
for i:=1 to m do
begin
for j:=1 to n do
write(x[i,j]:5);
writeln;
end;
readln(i);{Gunakan CTRL+C untuk
mengakhiri}
end.](https://image.slidesharecdn.com/strukturdatachapter04-150505034755-conversion-gate01/85/Struktur-data-chapter_04-5-320.jpg)
![ program SD03Array3D;
{$APPTYPE CONSOLE}
uses SysUtils;
Var
x: array[1..10,1..10,1..10] of integer;
i,j,k,m,n,o: integer;
Begin
write('Banyak x : '); readln(m);
write('Banyak y : '); readln(n);
write('Banyak z : '); readln(o);
for i:= 1 to m do
Begin
for j:= 1 to n do
Begin
for k:=1 to o do
Begin
write('Elemen ke ',i,',',j,',',k,' : ');
read(x[i,j,k]);
End;
End;
End;
writeln('Data yang anda masukkan : ');
for i:=1 to m do
Begin
for j:=1 to n do
Begin
for k:=1 to o do
Begin
write(x[i,j,k]:5);
End;
End;
writeln;
readln;
End;
End.](https://image.slidesharecdn.com/strukturdatachapter04-150505034755-conversion-gate01/85/Struktur-data-chapter_04-7-320.jpg)
![ program
SD03Array2DPertambahan;
{$APPTYPECONSOLE}
uses SysUtils;
var
M1,M2,M3:array[1..10,1..10] of
integer;
i,j,m,n: integer;
begin
writeln('Program pertambahan
matriks');
write('Jumlah baris = '); readln(m);
write('Jumlah kolom = '); readln(n);
writeln('Input nilai Matriks M1 :');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('Elemen ke ',i,',',j,' = ');
read(M1[i,j]);
end;
end;
writeln('Input nilai Matriks M2 :');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('Elemen ke ',i,',',j,' = ');
read(M2[i,j]);
end;
end;](https://image.slidesharecdn.com/strukturdatachapter04-150505034755-conversion-gate01/85/Struktur-data-chapter_04-10-320.jpg)
![ writeln('Matriks yang dihasilkan :');
writeln('Matriks M1 ', m,n);
for i:=1 to m do
begin
for j:=1 to n do
begin
write(M1[i,j]:5);
end;
writeln;
end;
writeln('Matriks M2 ', m,n);
for i:=1 to m do
begin
for j:=1 to n do
begin
write(M2[i,j]:5);
end;
writeln;
end;
writeln('Matriks M1+M2=M3 ', m,n);
for i:=1 to m do
begin
for j:=1 to n do
begin
M3[i,j]:=M1[i,j]+M2[i,j];
write(M3[i,j]:5);
end;
writeln;
end;
readln(i);{Gunakan CTRL+C untuk
mengakhiri}
end.](https://image.slidesharecdn.com/strukturdatachapter04-150505034755-conversion-gate01/85/Struktur-data-chapter_04-11-320.jpg)
![ program SD03Array2DPekalian;
{$APPTYPE CONSOLE}
uses SysUtils;
var
M1,M2,M3:array[1..10,1..10] of integer;
i,j,k,m,n,m4,n4: integer;
begin
writeln('Program perkalian matriks');
writeln('Matriks 1 :');
write('Jumlah baris = '); readln(m);
write('Jumlah kolom = '); readln(n);
writeln('Matriks 2 :');
write('Jumlah baris = '); readln(m4);
write('Jumlah kolom = '); readln(n4);
if n<>m4 then
writeln('Maaf, ukuran kolom matriks 1
tidak sama dengan ukuran baris matriks 2')
else
begin
writeln('Input nilai Matriks M1 :');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('Elemen ke ',i,',',j,' = ');
read(M1[i,j]);
end;
end;
writeln('Input nilai Matriks M2 :');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('Elemen ke ',i,',',j,' = ');
read(M2[i,j]);
end;
end;](https://image.slidesharecdn.com/strukturdatachapter04-150505034755-conversion-gate01/85/Struktur-data-chapter_04-12-320.jpg)
![ writeln('Matriks yang dihasilkan :');
writeln('Matriks M1 ', m,n);
for i:=1 to m do
begin
for j:=1 to n do
begin
write(M1[i,j]:5);
end;
writeln;
end;
writeln('Matriks M2 ', m4,n4);
for i:=1 to m4 do
begin
for j:=1 to n4 do
begin
write(M2[i,j]:5);
end;
writeln;
end;
{Hitung perkalian matriks}
for i:=1 to m do
begin
for j:=1 to n4 do
begin
M3[i,j]:=0;
for k:=1 to m4 do
M3[i,j]:=M3[i,j]+(M1[i,k]*M2[k,j]);
end;
writeln;
end;
writeln('Matriks M1xM2=M3 ', m,n4);
for i:=1 to m do
begin
for j:=1 to n4 do
begin
write(M3[i,j]:5);
end;
writeln;
end;
end; readln(i);
end.](https://image.slidesharecdn.com/strukturdatachapter04-150505034755-conversion-gate01/85/Struktur-data-chapter_04-13-320.jpg)
Struktur data chapter_04
- 2. Untuk membuat aplikasi console di borland delphi. Klik File / New / Other… Pilih Console Application
- 3. Array dua dimensi sering dipakai untuk operasi matriks. Matriks terdiri dari baris dan kolom Baris dideklarasikan sebagai indeks pertama sedangkan indeks kedua dideklarasikan sebagai kolom.
- 4. Var X: array[1..3,1..4] of integer; Begin X[1,1]:=10; X[1,2]:=20; End.
- 5. program SD03Array2D; {$APPTYPECONSOLE} uses SysUtils; var x:array[1..10,1..10] of integer; i,j,m,n: integer; begin writeln('Program ini akan membuat matriks'); write('Jumlah baris = '); readln(m); write('Jumlah kolom = '); readln(n); for i:=1 to m do begin for j:=1 to n do begin write('Elemen ke ',i,',',j,' = '); read(x[i,j]); end; end; writeln('Matriks yang dihasilkan :'); writeln('Matriks', m,n); for i:=1 to m do begin for j:=1 to n do write(x[i,j]:5); writeln; end; readln(i);{Gunakan CTRL+C untuk mengakhiri} end.
- 6. Banya Baris : 2 Banyak Kolom : 3 Elemen ke 1,1 : 1 Elemen ke 1,2 : 2 Elemen ke 1,3 : 3 Elemen ke 2,1 : 4 Elemen ke 2,2 : 5 Elemen ke 2,3 : 6 Data yang anda masukkan : 1 2 3 4 5 6
- 7. program SD03Array3D; {$APPTYPE CONSOLE} uses SysUtils; Var x: array[1..10,1..10,1..10] of integer; i,j,k,m,n,o: integer; Begin write('Banyak x : '); readln(m); write('Banyak y : '); readln(n); write('Banyak z : '); readln(o); for i:= 1 to m do Begin for j:= 1 to n do Begin for k:=1 to o do Begin write('Elemen ke ',i,',',j,',',k,' : '); read(x[i,j,k]); End; End; End; writeln('Data yang anda masukkan : '); for i:=1 to m do Begin for j:=1 to n do Begin for k:=1 to o do Begin write(x[i,j,k]:5); End; End; writeln; readln; End; End.
- 8. Banyak x : 2 Banyak y : 2 Banyak z : 2 Elemen ke 1,1,1 : 1 Elemen ke 1,1,2 : 1 Elemen ke 1,2,1 : 1 Elemen ke 1,2,2 : 2 Elemen ke 2,1,1 : 2 Elemen ke 2,1,2 : 2 Elemen ke 2,2,1 : 3 Elemen ke 2,2,2 : 3 Data yang anda masukkan : 1112 2233
- 9. Input dari elemen-elemen array matriks bisa dimanipulasi, misalnya dilakukan: operasi penjumlahan matriks (ordo harus sama), operasi pengurangan matriks(ordo harus sama), operasi transpose matriks, mencari determinan matriks, perkalian matriks(kolom matriks pertama dan baris matriks kedua sama) maupun invers matriks.
- 10. program SD03Array2DPertambahan; {$APPTYPECONSOLE} uses SysUtils; var M1,M2,M3:array[1..10,1..10] of integer; i,j,m,n: integer; begin writeln('Program pertambahan matriks'); write('Jumlah baris = '); readln(m); write('Jumlah kolom = '); readln(n); writeln('Input nilai Matriks M1 :'); for i:=1 to m do begin for j:=1 to n do begin write('Elemen ke ',i,',',j,' = '); read(M1[i,j]); end; end; writeln('Input nilai Matriks M2 :'); for i:=1 to m do begin for j:=1 to n do begin write('Elemen ke ',i,',',j,' = '); read(M2[i,j]); end; end;
- 11. writeln('Matriks yang dihasilkan :'); writeln('Matriks M1 ', m,n); for i:=1 to m do begin for j:=1 to n do begin write(M1[i,j]:5); end; writeln; end; writeln('Matriks M2 ', m,n); for i:=1 to m do begin for j:=1 to n do begin write(M2[i,j]:5); end; writeln; end; writeln('Matriks M1+M2=M3 ', m,n); for i:=1 to m do begin for j:=1 to n do begin M3[i,j]:=M1[i,j]+M2[i,j]; write(M3[i,j]:5); end; writeln; end; readln(i);{Gunakan CTRL+C untuk mengakhiri} end.
- 12. program SD03Array2DPekalian; {$APPTYPE CONSOLE} uses SysUtils; var M1,M2,M3:array[1..10,1..10] of integer; i,j,k,m,n,m4,n4: integer; begin writeln('Program perkalian matriks'); writeln('Matriks 1 :'); write('Jumlah baris = '); readln(m); write('Jumlah kolom = '); readln(n); writeln('Matriks 2 :'); write('Jumlah baris = '); readln(m4); write('Jumlah kolom = '); readln(n4); if n<>m4 then writeln('Maaf, ukuran kolom matriks 1 tidak sama dengan ukuran baris matriks 2') else begin writeln('Input nilai Matriks M1 :'); for i:=1 to m do begin for j:=1 to n do begin write('Elemen ke ',i,',',j,' = '); read(M1[i,j]); end; end; writeln('Input nilai Matriks M2 :'); for i:=1 to m do begin for j:=1 to n do begin write('Elemen ke ',i,',',j,' = '); read(M2[i,j]); end; end;
- 13. writeln('Matriks yang dihasilkan :'); writeln('Matriks M1 ', m,n); for i:=1 to m do begin for j:=1 to n do begin write(M1[i,j]:5); end; writeln; end; writeln('Matriks M2 ', m4,n4); for i:=1 to m4 do begin for j:=1 to n4 do begin write(M2[i,j]:5); end; writeln; end; {Hitung perkalian matriks} for i:=1 to m do begin for j:=1 to n4 do begin M3[i,j]:=0; for k:=1 to m4 do M3[i,j]:=M3[i,j]+(M1[i,k]*M2[k,j]); end; writeln; end; writeln('Matriks M1xM2=M3 ', m,n4); for i:=1 to m do begin for j:=1 to n4 do begin write(M3[i,j]:5); end; writeln; end; end; readln(i); end.