Help mastah, bantu ane ngejelasin ni script

Beranda
Komunitas
Tech
Programmer Forum
Help mastah, bantu ane ngejelasin ni script

Snivy6565

05-05-2014 11:13

Help mastah, bantu ane ngejelasin ni script

Selamat malam para master2 coding penghuni kaskus, ane mau minta bantuan nih emoticon-Sorry

begini ane disuruh ngejelasin script pertambahan matriks menggunakan array dan procedure emoticon-Matabelo

nah ane sudah paham cara kerja procedure nya, nah ada yg bisa bantu jelasin cara kerja array sama go to xy disini ? emoticon-Bingung (S)

nih script nya emoticon-Hammer2

Quote:

Code:

program penjumlahan_matrik;

 uses crt;

 type data = array[1..10,1..10] of integer;

var 

 mI,mII : data;

 baris,kolom,pil : integer;

 Ul : char;



procedure isimatrik;

var i,j : integer;



begin

 write ('Masukan ordo matriks nya (a x a) : '); readln(baris);

 writeln;

 writeln ('A =');

 for i:=1 to baris do

 begin

 for j :=1 to baris do

 begin

 gotoxy (j*5,i+8);

 read(mI[i,j]);

 end;

 end;

 writeln;

 writeln('B =');

 for i:=1 to baris do

 begin

 for j:=1 to baris do

 begin

 gotoxy(j*5,i+12);

 read(mII[i,j]);

 end;

 end;

end;

procedure jumlahmatrik(m1,m2 : data; baris,kolom :integer);

var hasil : data;

i,j : integer;

 begin

 for i:=1 to baris do

 for j:=1 to baris do

 begin

 hasil[i,j]:=m1[i,j]+m2[i,j];

 end;

 writeln;

 writeln('hasil nya matriks A+B = ');



 for i:=1 to baris do

 for j:=1 to baris do

 begin

 gotoxy(j*5,i+17);

 write(hasil[i,j]);

 end;

 readln;

 end;



 begin

 clrscr;

 writeln('==================================');

 textcolor(red);writeln('Program : Penjumlahan pada Matriks');

 textcolor(white);writeln('==================================');

 writeln;

 writeln;

 isimatrik;

 jumlahmatrik(mI,mII,baris,kolom);

 readln;

 end.