Selasa, 29 Maret 2011

perkalian 2 buah matrik

ALGORITMA PERKALIAN 2 BUAH MATRIK DENGAN ORDO 25*25

Kamus
Type
Larik=array [1…25, 1…25] of real
Var
G, H, I,: Byte
D, E, F: Larik
J, K, L : Byte
Algoritma :
{
Read (J, K, L)
Writeln (‘Matrik 1’)
For G←1 to J Do
{
For H←1 to K Do
{
Readln(D[J, K])
}
}
Writlen (‘Matrik 2’)
For G←1 to K Do
{
For H←1 to L Do
{
Readln(E[J, K])
}
}
Writeln (‘ Perkalian Matrik’)
For G←1 to J Do
{
For H←1 to K Do
{
F[J, K])←0
For I←1 To F Do
F[J, K])← F[J, K])+ (D[J, K])* (E[J, K])
}
}
Writeln (‘Mencetak Hasil Perkalian’)
For G←1 to J Do
{
For H←1 to L Do
Writeln (C[J, K]:10:2)
}
Writeln
}
Langkah Input Data D
G←1, H←1 D[1,1]←1
G←1, H←2 D[1,2]←2
G←2, H←1 D[2,1]←1
G←2, H←2 D[2,2]←3
Langkah Input Data E
G←1, H←1 E[1,1]←2
G←1, H←2 E[1,2]←1
G←2, H←1 E[2,1]←1
G←2, H←2 E[2,2]←2
Langkah Perkalian
G←1, H←1, I←1
F[1,1]←0 +D[1,2]*B[1,1]
F←0+1*2
F←2
G←1, H←1, I←2
F[1,1]←2+D[1,2]*B[2,1]
F←2+1*2
F←4



Kasus 2
Matriks dengan Ordo 10*50
kamus
Type

tabel=Array [1...10, 1...50]of byte
a,b : byte
Var
Z tabel
a,b

Algoritma;
For a ←1 to 10 Do
{
For b←1 to 50 Do
Readl n(table[a, b])
}
For a ←1 to 10 Do
{
For b←1 to 50 Do
Writeln(table[a, b])

Tidak ada komentar:

Posting Komentar