Arsip: convert array dari vb ke delphi

more 7 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 7 years ago
ianhade
coba gunakan ":=" (tanpa kutip) untuk mengisi nilai ke variabel array
dan gunakan tanda "" (tanpa kutip) untuk index array

more 7 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 7 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 7 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
- Mendapatkan Direktori/Path dari suatu aplikasi
- Tips: Lacak Variabel dan Indentifer di Lazarus
- Tips: Leak Viewer di Lazarus
- Tips: Garis Panduan di Form Designer
- Referensi Pemrograman Bahasa Pascal dari Tim Pembina TOKI
- Tips: Syncro-Edit in Lazarus
- Tips: Macro OfAll and auto generate variable in Lazarus
- Dasar-Dasar Pemrograman Web
- Yang Tidak Bisa Dilakukan Turbo Pascal #4
- Yang Tidak Bisa Dilakukan Turbo Pascal #3
Last Topic
- Tempat Latihan Posting
by LuriDarmawan in OOT 15 days ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 7 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 7 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 7 years ago - Buat Menu akses dengan Otorisasi
by heriy4nt0 in Tip n Trik Pemrograman more 7 years ago - isi data di dbgrid bisa Multiline
by wati in Tip n Trik Pemrograman more 7 years ago - Membuat No Nota Secara Otomatis
by halimanh in Hal umum tentang Pascal Indonesia more 7 years ago - [tanya] bagaimana load file di listbox tanpa full path name
by andrypein in Hal umum tentang Pascal Indonesia more 7 years ago - AQ3: Cannot Perform this operation an a closed dataset
by tomxpatra in Hal umum tentang Pascal Indonesia more 7 years ago - [ASK] : Input Database
by tomxpatra in Hal umum tentang Pascal Indonesia more 7 years ago
Random Topic
- Query Error
by Yudho in Hal umum tentang Pascal Indonesia more 12 years ago - Mencegah Windows Key ...
by xerion in Tip n Trik Pemrograman more 13 years ago - Tipe data Auto increment di Postgres
by onsir in Lain-lain more 11 years ago - extract icon
by bboyz in Tip n Trik Pemrograman more 12 years ago - format 4digit
by dinox in Tip n Trik Pemrograman more 13 years ago - menggukan skin delphi
by diah_intan in MySQL more 12 years ago - tanya query
by daru6ia in MySQL more 11 years ago - firebird konfigurasi client server
by indobrainsoft in Tip n Trik Pemrograman more 11 years ago - surat cinta seorang hacker
by yayaretina in OOT more 13 years ago - ComboBox + ADO (Access Database)
by nnd_ms in Hal umum tentang Pascal Indonesia more 13 years ago