Arsip: penjumlahan dua array tidak sama

more 13 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.

more 13 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.......

more 13 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];

more 13 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]

more 13 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}!

more 13 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;

more 13 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;

more 13 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
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- apllikasi delphi-browser tanpa login
by boediman in Network, Files, I/O & System more 12 years ago - autofill pada ie dan beberapa puluh dollar
by thedelphialwaysthedelphi in Tip n Trik Pemrograman more 14 years ago - ADA YANG PUNYA DELPHI 8????
by aji_suprayogi in Enginering more 12 years ago - Backup Restore data dengan delphi SQL Server sebagai db
by iizy in Tip n Trik Pemrograman more 11 years ago - Fungsi Component CPort 3.10
by yugimage in Network, Files, I/O & System more 10 years ago - Menggabung kan 2 gambar pada Jpeg
by ivan in Hal umum tentang Pascal Indonesia more 14 years ago - Cek koneksi Database
by om20020 in MySQL more 10 years ago - tentang validasi pada saat login ?
by jajang in Reporting more 12 years ago - TTable Contain Filter?
by ekosch in Tip n Trik Pemrograman more 13 years ago - Cara mengakses table paradox berpassword..??
by pribadi in Paradox more 15 years ago