gimana ya jumlahkan dua array tapi ga sama panjang indeksnya.. misal array1 ada 8 indeks = [1 2 3 4 5 6 7 8]; array2 ada 4 indeks = [9 8 7 6]; gimana ya biar variabel array2 nya ditambahin/dianggap nol indeks selanjutnya trus ditambahin variabel array1 dan array2 nya ntar. sehingga array2 nya juga 8 indeks jadinya [9 8 7 6 0 0 0 0]; mohon penjelasannya ya..thanks...to forum delphi-id.

sehingga array2 nya juga 8 indeks jadinya [9 8 7 6 0 0 0 0];

[ 9 8 7 6 0 0 0 0] itu hasil itung2annya dari mana ????....logikanya membingungkan.......

pakai function High buat nentuin panjang array, dan pakai SetLength untuk mengubah ukuran array, lalu tipe array nya tidak boleh fix tapi pakai Dynamic array. misal

const 
  array1,array2 : array of integer; 
var 
  i, j: integer;
...
  SetLength(array2, length(array1));
  for i := 0 to High(array1) do 
     array2[i] := array2[i] + array1[i];

hasil dr @danieljun adalah [10 10 10 10 0 0 0 0] td seperti yang diinginkan @yadi yaitu [9 8 7 6 0 0 0 0]

@mas_kofa mungkin yg dimaksud @yadi, dia menginginkan u/ array2 jumlah elemennya sama dengan array1 jd jika elemennya kurang dari elemen array1 maka tambahkan pada elemen selanjutnya sampai jumlah array1, maka jadinya [9 8 7 6 0 0 0 0] yg mungkin nantinya menjumlahkan array-nya mudah{MUNGKIN}!

waduh...maaf kalo pertanyaannya membingungkan. misal Array1 = [1 2 3 4 5 6 7 8] Array2 = [9 8 7 6]; mau dijumlahkan array1 dan 2 , tapi Array2 dibuat sama jumlah elemennya dengan Array1 jadinya Array2 = [9 8 7 6 0 0 0 0]; Array3 := Array1 + Array2 = [10 10 10 10 5 6 7 8]; udah n dapat hasilnya. tapi kalo misalnya..Array2 elemen awalnya di buat Nol jadinya [0 0 0 0 9 8 7 6]. trus di tambah. Array3 := Array1 + Array2 = [1 2 3 4 14 14 14 14]. saya coba pake, for...downto g' mau ada solusinya ... type PArray = Array of real; var Form1: TForm1; Array1 : Array of real = (1,2,3,4,5,6,7,8); Array2 : Array of real = (9,8,7,6); Array3 : PArray; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i : integer; s : string; begin SetLength(array3, length(array1)); for i := 0 to length(Array3) - 1 do begin array3[i] := array1[i] + array2[i]; s := s +' ' + FloatToStr(array3[i]); memo1.Lines.Text :=s; end; end;

sample simple sesuai keinginan

type 
  PArray = Array of real; 
var 
  Form1: TForm1; 
  Array1 : Array  of real = (1,2,3,4,5,6,7,8 ); 
  Array2 : Array  of real = (9,8,7,6); 
  Array3 : PArray; 
implementation 
uses Math;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  s : string;
  awaldibuat0: boolean;
begin
  awaldibuat0:=false;
  SetLength(array3, length(array1));
  for i := 0 to length(Array3) - 1 do
  begin
    array3[i]:=array1[i]+IfThen(awaldibuat0, IfThen(i<High(array1)-High(array2),0,array2[i-High(array2)-1]), IfThen(i>High(array2),0, array2[i]));
    s:=s+' ' + FloatToStr(array3[i]);
    memo1.Lines.Text :=s;
  end;
end;

klo misalkan awal pengen di buat nol maka

awaldibuat0:=true;

thanks ya kepada semuanya atas tutorialnya...n maaf ya kalo awalnya pertanyaan agak membingungkan.mungkin harus belajar tata bahasa dulu ya... but once again..thanks so much to all.....