• About me

    Nama ku yEyEp aq lahir dan besar di kota yang dijuluki "Kota Pempek". kota yang terkenal karena makanan khasnya dan sungai musi yang membelah kota, jembatan AMPERA yang anggun berdiri kokoh diatasnya. My YM
    Myfriendster:

  • Kategori

  • Artikel

  • Laman

  • Other Blogs

  • Blog Stats

    • 6.059 hits

  • Meta

penggunaan array untuk menghitung perkalian matrik

Posted on 24 April 2008 by Yeyep

===============================================================================================
program Perkalian;

uses wincrt;

type Matrix=Array[1..3,1..3] of shortint;

var
x,y,Det,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R     : shortint;
AA,BB,CC,DD,EE,FF,GG,HH,II                      : shortint;
jawab                                           : char;

begin
repeat
clrscr;

writeln(‘Matrix A’);

for x:=1 to 1 do
begin
for y:=1 to 1 do
begin
write(‘Input Matrix ke 1 = ‘);readln(A);
write(‘Input Matrix ke 2 = ‘);readln(B);
write(‘Input Matrix ke 3 = ‘);readln(C);
write(‘Input Matrix ke 4 = ‘);readln(D);
write(‘Input Matrix ke 5 = ‘);readln(E);
write(‘Input Matrix ke 6 = ‘);readln(F);
write(‘Input Matrix ke 7 = ‘);readln(G);
write(‘Input Matrix ke 8 = ‘);readln(H);
write(‘Input Matrix ke 9 = ‘);readln(I);
end;
end;

writeln;
writeln;

Gotoxy(30,1);writeln(‘Matrix B’);

for x:=1 to 1 do
begin
for y:=1 to 1 do
begin
gotoxy(30,2);write(‘Input Matrix ke 1 = ‘);readln(J);
gotoxy(30,3);write(‘Input Matrix ke 2 = ‘);readln(K);
gotoxy(30,4);write(‘Input Matrix ke 3 = ‘);readln(L);
gotoxy(30,5);write(‘Input Matrix ke 4 = ‘);readln(M);
gotoxy(30,6);write(‘Input Matrix ke 5 = ‘);readln(N);
gotoxy(30,7);write(‘Input Matrix ke 6 = ‘);readln(O);
gotoxy(30,8);write(‘Input Matrix ke 7 = ‘);readln(P);
gotoxy(30,9);write(‘Input Matrix ke 8 = ‘);readln(Q);
gotoxy(30,10);write(‘Input Matrix ke 9 = ‘);readln(R);
end;
end;

writeln;
writeln;

writeln(‘Matrix C’);

AA:=(A*J)+(B*M)+(C*P);
BB:=(B*K)+(C*N)+(D*Q);
CC:=(C*L)+(D*O)+(E*R);
DD:=(D*J)+(E*M)+(F*P);
EE:=(E*K)+(F*N)+(G*Q);
FF:=(F*L)+(G*O)+(H*R);
GG:=(G*J)+(H*M)+(I*P);
HH:=(H*K)+(I*N)+(J*Q);
II:=(I*J)+(A*O)+(B*R);

writeln(‘Matrix ke 1 = ‘,AA);
writeln(‘Matrix ke 2 = ‘,BB);
writeln(‘Matrix ke 3 = ‘,CC);
writeln(‘Matrix ke 4 = ‘,DD);
writeln(‘Matrix ke 5 = ‘,EE);
writeln(‘Matrix ke 6 = ‘,FF);
writeln(‘Matrix ke 7 = ‘,GG);
writeln(‘Matrix ke 8 = ‘,HH);
writeln(‘Matrix ke 9 = ‘,II);

writeln;
writeln;
write(‘Ulang [Y/T]’);readln(jawab);
until upcase(jawab)<>’Y’;

============================================================================
program Perkalian;

uses wincrt;

type Matrix=Array[1..3,1..3] of shortint;

var
x,y,Det,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R     : shortint;
AA,BB,CC,DD,EE,FF,GG,HH,II                      : shortint;
jawab                                           : char;

begin
repeat
clrscr;

writeln(‘Matrix A’);

for x:=1 to 1 do
begin
for y:=1 to 1 do
begin
write(‘Input Matrix ke 1 = ‘);readln(A);
write(‘Input Matrix ke 2 = ‘);readln(B);
write(‘Input Matrix ke 3 = ‘);readln(C);
write(‘Input Matrix ke 4 = ‘);readln(D);
write(‘Input Matrix ke 5 = ‘);readln(E);
write(‘Input Matrix ke 6 = ‘);readln(F);
write(‘Input Matrix ke 7 = ‘);readln(G);
write(‘Input Matrix ke 8 = ‘);readln(H);
write(‘Input Matrix ke 9 = ‘);readln(I);
end;
end;

writeln;
writeln;

Gotoxy(30,1);writeln(‘Matrix B’);

for x:=1 to 1 do
begin
for y:=1 to 1 do
begin
gotoxy(30,2);write(‘Input Matrix ke 1 = ‘);readln(J);
gotoxy(30,3);write(‘Input Matrix ke 2 = ‘);readln(K);
gotoxy(30,4);write(‘Input Matrix ke 3 = ‘);readln(L);
gotoxy(30,5);write(‘Input Matrix ke 4 = ‘);readln(M);
gotoxy(30,6);write(‘Input Matrix ke 5 = ‘);readln(N);
gotoxy(30,7);write(‘Input Matrix ke 6 = ‘);readln(O);
gotoxy(30,8);write(‘Input Matrix ke 7 = ‘);readln(P);
gotoxy(30,9);write(‘Input Matrix ke 8 = ‘);readln(Q);
gotoxy(30,10);write(‘Input Matrix ke 9 = ‘);readln(R);
end;
end;

writeln;
writeln;

writeln(‘Matrix C’);

AA:=(A*J)+(B*M)+(C*P);
BB:=(B*K)+(C*N)+(D*Q);
CC:=(C*L)+(D*O)+(E*R);
DD:=(D*J)+(E*M)+(F*P);
EE:=(E*K)+(F*N)+(G*Q);
FF:=(F*L)+(G*O)+(H*R);
GG:=(G*J)+(H*M)+(I*P);
HH:=(H*K)+(I*N)+(J*Q);
II:=(I*J)+(A*O)+(B*R);

writeln(‘Matrix ke 1 = ‘,AA);
writeln(‘Matrix ke 2 = ‘,BB);
writeln(‘Matrix ke 3 = ‘,CC);
writeln(‘Matrix ke 4 = ‘,DD);
writeln(‘Matrix ke 5 = ‘,EE);
writeln(‘Matrix ke 6 = ‘,FF);
writeln(‘Matrix ke 7 = ‘,GG);
writeln(‘Matrix ke 8 = ‘,HH);
writeln(‘Matrix ke 9 = ‘,II);

writeln;
writeln;
write(‘Ulang [Y/T]’);readln(jawab);
until upcase(jawab)<>’Y’;
end.
==============================================================================================
program Perkalian;

uses wincrt;

type Matrix=Array[1..2,1..2] of shortint;

var
x,y,Det,A,B,C,D,E,F,G,H                         : shortint;
AA,BB,CC,DD,EE,FF,GG,HH,II                      : shortint;
jawab                                           : char;

begin
repeat
clrscr;

writeln(‘Matrix A’);

for x:=1 to 1 do
begin
for y:=1 to 1 do
begin
write(‘Input Matrix ke 1 = ‘);readln(A);
write(‘Input Matrix ke 2 = ‘);readln(B);
write(‘Input Matrix ke 3 = ‘);readln(C);
write(‘Input Matrix ke 4 = ‘);readln(D);

end;
end;

writeln;
writeln;

Gotoxy(30,1);writeln(‘Matrix B’);

for x:=1 to 1 do
begin
for y:=1 to 1 do
begin
gotoxy(30,2);write(‘Input Matrix ke 1 = ‘);readln(E);
gotoxy(30,3);write(‘Input Matrix ke 2 = ‘);readln(F);
gotoxy(30,4);write(‘Input Matrix ke 3 = ‘);readln(G);
gotoxy(30,5);write(‘Input Matrix ke 4 = ‘);readln(H);

end;
end;

writeln(‘Matrix C’);

AA:=(A*J)+(B*M)+(C*P);
BB:=(B*K)+(C*N)+(D*Q);
CC:=(C*L)+(D*O)+(E*R);
DD:=(D*J)+(E*M)+(F*P);

writeln(‘Matrix ke 1 = ‘,AA);
writeln(‘Matrix ke 2 = ‘,BB);
writeln(‘Matrix ke 3 = ‘,CC);
writeln(‘Matrix ke 4 = ‘,DD);

writeln;
writeln;
write(‘Ulang [Y/T]’);readln(jawab);
until upcase(jawab)<>’Y’;
end.

end.

Filed under: Semester dua, Struktur data |

« »

Tinggalkan komentar