Arsip: convert array dari vb ke delphi

more 9 years ago
diandewi
halo...saya lg convert coding dari vb ke delphi tp saya sdkit bingung dengan arraynya. saya sudah buat codingnya di delphi sepeerti ini, kira2 yang salah dmn ya?
mohon bantuannya
while (iter<= maxiter) do
begin
for i := 1 to 10 do
begin
for k := 1 to klaster do
begin
d (k):=0;
tempd ( k ):= 0;
for j := 0 to 10 do
begin
tempd ( k ) = tempd ( k ) + sqr( x (i, j) - w ( k, j)) ;
end;
d = Sqrt(tempd(k));

more 9 years ago
ianhade
coba gunakan ":=" (tanpa kutip) untuk mengisi nilai ke variabel array
dan gunakan tanda "" (tanpa kutip) untuk index array

more 9 years ago
diandewi
kayak gini ya maksudnya? tapi tetep error dy, errornya kayk gini:
[DCC Error] lvq.pas(133): E2066 Missing operator or semicolon
[DCC Error] lvq.pas(133): E2016 Array type required
while (iter<= maxiter) do
begin
for i := 1 to 10 do
begin
for k := 1 to klaster do
begin
d (k):=0;
tempd ( k ):= 0;
for j := 0 to 10 do
begin
tempd ( k ) := tempd ( k ) + sqr( x [i, j] - w [ k, j]) ;
end;
d := Sqrt(tempd(k));
end;

more 9 years ago
hendrang67
@diandewi: kayak gini ya maksudnya? tapi tetep error dy, errornya kayk gini: [DCC Error] lvq.pas(133): E2066 Missing operator or semicolon [DCC Error] lvq.pas(133): E2016 Array type requiredd dan tempd juga array kan ? kalau array indexnya juga pakai while (iter<= maxiter) do begin for i := 1 to 10 do begin for k := 1 to klaster do begin d [k]:=0; tempd [k]:= 0; for j := 0 to 10 do begin tempd[k]:= tempd[k] + sqr( x [i, j] - w [k, j]) ; end; d := Sqrt(tempd[k]); //<-- cek variabel d kalau array juga harus ada index nya end;while (iter<= maxiter) do begin for i := 1 to 10 do begin for k := 1 to klaster do begin d (k):=0; tempd ( k ):= 0; for j := 0 to 10 do begin tempd ( k ) := tempd ( k ) + sqr( x [i, j] - w [ k, j]) ; end; d := Sqrt(tempd(k)); end;

more 9 years ago
diandewi
ok...makasi...
oiya kalo saya mau ngambil nilai dari masing2 karakter array ini
ref : array of string = (('0','1','0','1','0','1','0','1','0','1'),('1','0','1','0','1','0','1','0','1','0'));
coding yang bener kyk gmn ya?
saya sblumnya buat kayak gini
for j := 1 to Length(ref(i));
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Lazarus Release 2.2.0
- Lazarus 2.2.0 Release Candidate 2
- FreePascal and JSON
- Lazarus 2.2.0 Release Candidate 1
- FPC version 3.2.2 has been released!
- Lazarus Release 2.0.12
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 1 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 2 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 9 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 9 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 9 years ago
Random Topic
- indy label
by vandy in Tutorial & Community Project more 15 years ago - fingerprint
by antcom in Network, Files, I/O & System more 13 years ago - [ASK] Cara agar DATA.GDB bisa di-share lewat jaringan
by anyrony in FireBird more 13 years ago - Component TComport
by wati in MySQL more 10 years ago - LAZARUS
by akhadi in Free dan Gratis more 15 years ago - membuat video player, dengan Delphi???anyone can help me???
by johnizzy in Multimedia & Graphic Enhancement more 13 years ago - FTP dgn delphi
by mas_kofa in Hal umum tentang Pascal Indonesia more 15 years ago - text
by e_soep in Tip n Trik Pemrograman more 14 years ago - o i o - salam! saya baru pake 'login' ini
by _oio_ in OOT more 15 years ago - Konsep ChaceUpdate di ZQuery ZEOS
by onsir in MySQL more 14 years ago