May 10


Script untuk mencari posisi salah ada di mana.

uses wincrt;
var
nilaistring:string[6];
nilaireal1:real;
posisisalah:integer;
begin
NilaiString:=’123.A5′;
Val(NilaiString,Nilaireal1,PosisiSalah);
writeln(‘nilaistring:’,nilaistring);
writeln(‘NilaiReal1:’,NilaiReal1:8:2);
writeln(‘posisisalah:’,posisisalah);
end.

Enjoy this Post!

Add to Mixx!

Random Posts




Leave a Reply