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
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