teman-teman gimana ya algoritma di deelphi untuk ngerubah matrik menjadi array. misalnya matrik 2 x 2 kita mau ubah menjadi dalam bentuk array (baris saja) terima kasih kepada semuanya...

Matrix diubah ke array? Bisa coba pake array multidimensi: Misal matrix 2x2 bisa diubah ke var Matrix: array of array of typedata; // coba juga Matrix: array of typedata; typedata biasanya bertipe integer untuk matrix bilangan bulat.

pertama hitung dimensinya.. misal matriks 2x2 klo jadi array bakal jadi array 4 elemen. trus di baca deh..

arridx := 0;
for j := 0 to tinggi_matriks-1 do
   for i := 0 to lebar_matriks-1 do begin
       array[arridx] := matriks[i][j];
       inc(arridx);
   end;

misalnya matrik 2 x 2 kita mau ubah menjadi dalam bentuk array (baris saja)

??????

matrx : array of integer;

saya udah coba listingnya di delphi,,, dan mau di running n hasilnya mau keluar di memo1,..tapi saya mau lihat hasilnya di file .txt..kalo di running mau tapi pas tekan button1 error di "write ( write(F,baris1[arridx]);"..kira-kira kenapa ya...please tolongin ya..terima kasih.. implementation var B : array of real = (( 8,2), (-2,-4)); {$R .dfm} procedure TForm1.Button1Click(Sender: TObject); var i, j, baris, kolom : integer; arridx : integer; baris1 : array of real; F : textfile; begin AssignFile(F,'D:MatriksToArray.txt'); ReWrite(F); setlength(baris1, length(B) length(B[0])); memo1.Clear; baris := length(B); kolom := length(B[0]); arridx := 0; for i:= 0 to baris - 1 do begin for j := 0 to kolom - 1 do begin baris1[arridx] := B [i][j]; write(F,baris1[arridx]); write(F,' '); memo1.Lines.Add(floattostr(baris1[arridx])); inc(arridx); end; writeln(F); closefile(F); end; end; end.

tidak usah pake F : TextFile;

implementation 
var 
B : array  of real = (( 8,2), 
(-2,-4)); 
{$R *.dfm} 
procedure TForm1.Button1Click(Sender: TObject); 
var 
i, j, baris, kolom : integer; 
arridx : integer; 
baris1 : array of real; 
begin 
memo1.Clear; 
baris := length(B); 
kolom := length(B[0]); 
arridx := 0; 
for i:= 0 to baris - 1 do 
begin 
for j := 0 to kolom - 1 do 
begin 
memo1.Lines.Add(floattostr(baris1[arridx])); 
inc(arridx); 
end; 
end; 
memo1.Lines.SaveToFile('D:MatriksToArray.txt');
end; 
end.

mas gimana ya kalo hasilnya mau kita lihat dalam satu baris.. saya dah coba dan mau nyimpan dalam file .txt, tapi hailnya deret ke bawah : 8 2 -2 -4 kalo mau dilihat di file txt..atau string grid supaya dalam satu baris (deret) 8 2 -2 -4..kira2 gimana ya..please..trima kasih.. oh ya..saya mau ucapin trima kasih ke rekan-rekanforum delphi semua untuk tempat berbagi...

jangan pake perintah add (memo1.Lines.Add(...))

begin
   memo1.Lines.Add(floattostr(baris1[arridx])); 
  inc(arridx);
end; 

dikumpulin dulu aja pada variabel string (s);

s := s + floattostr(baris1[arridx]); 

baru dimasukkan ke memo

memo1.Lines.Text := s;

Terima kasih...akhirnya bisa tampil n dilihat visualisasi ubah dari matriks menjadi array... thank for all....... implementation var B : array of real = ((8,2,3,6,8,-7,-9), (-2,-4,5,4,9,-8,-10), (7,9,1,9,2,-9,6), (1,6,9,2,8,-3,2), (9,8,7,2,5,-1,-2), (1,2,3,4,5,-6,10), (1,7,9,2,4,5,6)); {$R .dfm} procedure TForm1.Button1Click(Sender: TObject); var i, j, baris, kolom : integer; indeks : integer; s : string; baris1 : array of real; begin setlength(baris1, length(B) length(B[0])); memo1.Clear; baris := length(B); kolom := length(B[0]); indeks := 0; for i:= 0 to baris - 1 do begin for j := 0 to kolom - 1 do begin baris1[indeks] := B[i][j]; s := s+' '+ floattostr(baris1[indeks]); inc(indeks); memo1.Lines.Text := s; end; end; memo1.Lines.SaveToFile('D:MAtriksToBaris.txt'); end; end.

congratulation... :lol: