Arsip: penjumlahan dua array tidak sama

 
user image
more 12 years ago

yadi

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.
user image
more 12 years ago

mas_kofa

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.......
user image
more 12 years ago

danieljun

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];
user image
more 12 years ago

mas_kofa

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]
user image
more 12 years ago

ImanD

@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}!
user image
more 12 years ago

yadi

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;
user image
more 12 years ago

ImanD

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;
user image
more 12 years ago

yadi

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.....
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com