Jumat, 08 April 2011

Pascal 2 Dimensi Menggunakan Array

Disini saya coba buat program perjumlahan 2 buah matrik.
 pada dasarnya program matrik Terdapat beragam operasi seperti:
- penjumlahan
- pengurangan
- perkalian
- transpose
- inverse
- dan sebagainya.

contoh:
penjumlahan 2 buah matrik,
1. Baca Matrik A3x4
2. Baca Matrik B3x4
3. Cetak Matrik A
4. Cetak Matrik B
5. Hitung jumlah matrik A dan B simpan di C
6. Cetak matrik C
7. Selesai.
Program 2_damensi_matriks;
uses wincrt;
type ary = array[1..10,1..10] of integer;
var   x1,x2 :ary;
      i,j   : integer;

procedure input;
begin
  for i:=1 to 3 do
  begin
    for j:=1 to 4 do
    begin
      write ('A[',i,',',j,']=');
      readln(x1[i,j]);
    end;
  end;

  for i:=1 to 3 do
  begin
    for j:=1 to 4 do
    begin
      write ('B[',i,',',j,']=');
      readln(x2[i,j]);
    end;
  end;
end; 

procedure jumlah(m1,m2 : ary);
var hasil :ary;
begin
  for i:=1 to 3 do
  begin
    for j:=1 to 4 do
    begin
      hasil[i,j]:=m1[i,j]+m2[i,j]; {untuk perkalian nya : hasil[i,j]:=m1[i,j]*m2[i.j];}
    end;
  end;
  writeln('Hasil Penjumlahan MATRIK');

  for i:=1 to 3 do
  begin
    for j:=1 to 4 do
    begin
      write ('Hasil[',i,',',j,']= ');
      writeln(hasil[i,j]);
    end;
  end;
end;

begin
  input;
  jumlah(x1,x2);
end.
Misalnya kita input:
A[1,1]=4
A[1,2]=6
A[1,3]=3
A[1,4]=2
A[2,1]=3
A[2,2]=2
A[2,3]=4
A[2,4]=4
A[3,1]=5
A[3,2]=4
A[3,3]=3
A[3,4]=5
B[1,1]=3
B[1,2]=2
B[1,3]=4
B[1,4]=5
B[2,1]=4
B[2,2]=5
B[2,3]=3
B[2,4]=5
B[3,1]=2
B[3,2]=3
B[3,3]=4
B[3,4]=2
HASIL penjumlahan MATRIK:
Hasil[1,1]=7
Hasil[1,2]=8
Hasil[1,3]=7
Hasil[1,4]=7
Hasil[2,1]=7
Hasil[2,2]=7
Hasil[2,3]=7
Hasil[2,4]=9
Hasil[3,1]=7
Hasil[3,2]=7
Hasil[3,3]=7
Hasil[3,4]=7

Tidak ada komentar:

Posting Komentar