halo para master, saya mau tanya, gimana ya caranya ngubah tipe data Pmatrix jadi string? ini coding saya: writeln(f, 'Input jst:'); for i:=1 to N do begin for j:=1 to N do Write(f,PJst^[i]^[j],' '); //input [i,j]:= (PJst^[i]^[j]); writeln(f); tipe data: PJst: Pmatrix; input: array of string; tapi errornya yang keluar kyk gini: [DCC Error] Pca.pas(252): E2010 Incompatible types: 'Char' and 'Double' saya juga mau nampilin variabel pjst pke show message jd saya harus ubah tipe data pjst itu jd string. caranya gmn ya? mohon bantuannya

@diandewi: halo para master, saya mau tanya, gimana ya caranya ngubah tipe data Pmatrix jadi string? ini coding saya: writeln(f, 'Input jst:'); for i:=1 to N do begin for j:=1 to N do Write(f,PJst^[i]^[j],' '); //input [i,j]:= (PJst^[i]^[j]); writeln(f); tipe data: PJst: Pmatrix; input: array of string; tapi errornya yang keluar kyk gini: [DCC Error] Pca.pas(252): E2010 Incompatible types: 'Char' and 'Double' saya juga mau nampilin variabel pjst pke show message jd saya harus ubah tipe data pjst itu jd string. caranya gmn ya? mohon bantuannya

Pmatrix merupakan type pointer kalau dilihat dari penambahan P didepannya, perhatikan yg dicetak bold Write(f,PJst^[i]^[j],' ');...nah yg jadi masalah deklarasi Pmatrix-nya mana? dari contoh diatas ga keliatan sama sekali, klo diliat dari error-nya tipe dari pointer PMatrix adalah float sedangkan inputnya char

owh gt.....makasi petunjuknya saya ada masalah lg saya mau pindahin array yang dideklarasi itu kedalam variabel w tp muncul error kyk gni: [DCC Error] Unitlvq.pas(60): E2010 Incompatible types: 'Char' and 'string' mohon batu untuk dkoreksi.. var ref : array of string = (('1.00000000000000E+0000', '1.00000000000000E+0000', '1.00000000000000E+0000','1.00000000000000E+000', '1.00000000000000E+0000','1.00000000000000E+0000', '1.00000000000000E+0000', '1.00000000000000E+0000','1.00000000000000E+000', '1.00000000000000E+0000'), ('2.00000000000000E+0000', '2.00000000000000E+0000','2.00000000000000E+0000','2.00000000000000E+0000', '2.00000000000000E+0000', '2.00000000000000E+0000', '2.00000000000000E+0000','2.00000000000000E+0000','2.00000000000000E+0000', '2.00000000000000E+0000')); w:array of string; begin for i := 1 to 2 do begin for j := 1 to Length(ref[i]) do begin w [i,j]:= ref[i,j]; end ; end;

@diandewi: owh gt.....makasi petunjuknya saya ada masalah lg saya mau pindahin array yang dideklarasi itu kedalam variabel w tp muncul error kyk gni: [DCC Error] Unitlvq.pas(60): E2010 Incompatible types: 'Char' and 'string' mohon batu untuk dkoreksi.. var ref : array of string = (('1.00000000000000E+0000', '1.00000000000000E+0000', '1.00000000000000E+0000','1.00000000000000E+000', '1.00000000000000E+0000','1.00000000000000E+0000', '1.00000000000000E+0000', '1.00000000000000E+0000','1.00000000000000E+000', '1.00000000000000E+0000'), ('2.00000000000000E+0000', '2.00000000000000E+0000','2.00000000000000E+0000','2.00000000000000E+0000', '2.00000000000000E+0000', '2.00000000000000E+0000', '2.00000000000000E+0000','2.00000000000000E+0000','2.00000000000000E+0000', '2.00000000000000E+0000')); w:array of string; begin for i := 1 to 2 do begin for j := 1 to Length(ref[i]) do begin w [i,j]:= ref[i,j]; end ; end;

bisa di ganti dengan

  w:array of array of string;

nanti tinggal di set arraynya atau paling simple nya sech ganti az data type-nya sesuai declarasi array diatas

   w: array[1..2,0..9] of string;