Arsip: tanya eror matrix

more 11 years ago
diandewi
halo para master... bisa bantu benerin erornya dari code saya. erornya kyk gini:
[DCC Error] Question19653Project1Unit1.pas(118): E2064 Left side cannot be assigned to.
pada baris ini
Ref[0][J] := Ref[0][J]+ alpha(Ref[0][J]-Matrix[I,J]);
for K := 0 to 1 do //for each reference
begin
Memo1.Lines.Add('Reference: '+IntToStr(K));
for I := 0 to 9 do //for each row
begin
X := 0;
for J := 0 to 9 do //for each column
X := X+Power(Ref[K,J]-Matrix[I,J], 2);
X := Sqrt(X);
EuclDist[K,I]:= X;
Memo1.Lines.Add( Format('%0:20.18f',[X] ));
end;
Memo1.Lines.Add('');
end;
//end;
for I := 0 to 9 do
begin
if ((EuclDist[0][I]) < (EuclDist[1][I]))or ((EuclDist[0][I]) = (EuclDist[1][I])) then
begin
target:=0 ;
for j:= 0 to 9 do
if target=(matrix[i][j]) then
begin
Ref[0][J] := Ref[0][J]+ alpha (Ref[0][J]-Matrix[I,J]);
end
else
begin
Ref[0][J] := Ref[0][J]- alpha*(Ref[0][J]-Matrix[I,J]);
end;
end;

more 11 years ago
halimanh
Ref itu di deklarasinya sebagai constant yah?
const
ref [a, b] = array of ...
Kalo const itu artinya tetap, nggak bisa dirubah. Kalo ref mau dirubah-rubah, didekarasikan sebagai variable
var
ref [a , b] : array of ...

more 11 years ago
diandewi
oiya bener....setelah saya ubah jadi var langsung mau :)
trus saya mau nanya lg satu
di code ini
for I := 0 to 9 do
begin
if ((EuclDist[0][I]) < (EuclDist[1][I]))or ((EuclDist[0][I]) = (EuclDist[1][I])) then
begin
target:=0 ;
for j:= 0 to 9 do
if target=(matrix[i][9]) then
begin
pas baris f target=(matrix[i][9]) then
mksdnya jika target = matrix ke i kolom terakhir dimana matrixnya berukuran 10x10. apa bener kyk gt codenya? ato salah?
more 11 years ago
halimanh
Yah tergantung indeksnya, kalo indeknya 0 sampe 9, berarti 9 itu kolom terakhir. Kalo indeknya 1 sampe 10, 10 itu kolom terakhir.

more 11 years ago
diandewi
ya, indexnya 0 sampe 9 dan saya mau manggil kolom ke sembilan dari tiap2 baris..
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- CTRL+ALT+DEL
by umarbakri in Hal umum tentang Pascal Indonesia more 17 years ago - Nanya ttg DBGrid ?
by arinkmr97 in Hal umum tentang Pascal Indonesia more 15 years ago - deteksi
by NggotMan in Hal umum tentang Pascal Indonesia more 16 years ago - transfer file antar server
by mas_kofa in Bedah Kasus more 14 years ago - Masalah Multi-thread nih
by chakhar86 in Network, Files, I/O & System more 16 years ago - Ask table exist di zeos
by ferry in Lain-lain more 15 years ago - GUID Interface - Haruskah kita menggunakannya?
by DelphiExpert in Hal umum tentang Pascal Indonesia more 17 years ago - mohon bantuannya untuk nomor otomatis di delphi
by yufan in Bedah Kasus more 11 years ago - generate key tab
by ndak_ngudeng in Hal umum tentang Pascal Indonesia more 16 years ago - Ada Yang punya CD Delphi 7 Orisinil nggak ?
by bosenjadiprogrammer in Hal umum tentang Pascal Indonesia more 16 years ago