Script untuk mencari posisi salah ada di mana.
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.
Categories: Pascal