Delphi : Program Matriks Menggunakan Array

Nama        : ANDI KHOIRUDIN
Kelas        : I-B SMT 1
Jurusan     : Teknik Informatika
STIMIK YADIKA BANGIL 2014

 

Assamualaikum Wr. Wb.

           Pada kesempatan yang lalu saya membahas penggunaan Array di Delpi dan pada kesempatan kali ini saya akan membahas pemanfaatan Array dalam program Matriks. Untuk yang masih belum tahu penggunaan Array ini Penggunaan Array disini saya akan memberi 2 contoh program :
1. Membuat matriks menggunakan array

2. Membuat program penjumlahan matriks menggunakan array

Contoh 1. Membuat matriks menggunakan array

Screenshotnya :

Script programnya :

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
a,b,c:Array[1..10,1..10]of integer;
x, y, kol, bar: integer;
begin
writeln ('Nama      : Andi Khoirudin');
  writeln ('Kelas/NIM : 1B/114224042');
writeln;
  writeln ('>>> Program Matriks <<<');
  writeln;
write('Masukkan jumlah kolom = '); readln(kol);
write('Masukkan jumlah baris = '); readln(bar);
  writeln;
writeln('Masukkan matrik A');
for x:=1 to bar do
           begin
    for y:=1 to kol do
begin
  write('Data matrik A[',x,':',y,'] = ');
  readln(a[x,y]);
end;
    end;
  writeln;
writeln('Masukkan matrik B');
for x:=1 to bar do
  begin
        for y:=1 to kol do
                begin
                   write('Data matrik B[',x,':',y,'] = ');
  readln(b[x,y]);
end;
  end;
  writeln;
  writeln;
  writeln;
  writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
  readln;
end.

Contoh 2. Membuat program penjumlahan matriks menggunakan array
Screenshotnya : 

Script programnya :

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
a,b,c:Array[1..10,1..10]of integer;
x,y,kol,bar:integer;
begin
writeln ('Nama      : Andi Khoirudin');
  writeln ('Kelas/NIM : 1B/114224042');
writeln;
  writeln ('>>> Program Penambahan Matriks <<<');
  writeln;
write('Masukkan jumlah kolom = '); readln(kol);
write('Masukkan jumlah baris = '); readln(bar);
  writeln;

writeln('Masukkan matrik A');
for x:=1 to bar do
   begin
for y:=1 to kol do
 begin
    write('Data matrik A[',x,':',y,'] = ');
    readln(a[x,y]);
 end;
    end;
    writeln;

writeln('Masukkan matrik B');
for x:=1 to bar do
begin
   for y:=1 to kol do
      begin
write('Data matrik B [',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;
writeln('Hasil :');
writeln('------------------------------------------------');
for x:=1 to bar do
begin
   for y:=1 to kol do
     begin
      write(c[x,y]:7);
     end;
   writeln;
end;
  writeln;
  writeln;
  writeln;
  writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
  readln;
end.

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Kurang lebihnya mohon maaf dan terima kasih sudah berkunjung 

Wassalamualaikum Wr. Wb