procedure val(Katea: StringDatuMota; var Zenbakia: integer/real; var Kodea: integer);
|
Helburua: kate batetik abiatuta dagokion zenbakia lortzea.
Emaitza: zenbaki bat, katearen zenbaki bihurketa ondo egin den jakiteko errore kode bat dago.
program ValAdibidea;
{ Val prozedura erakusten duen programa }
var
iZbk, iErroreKodea: integer;
rZbk: real;
sKatea: string;
begin
sKatea := '-57';
val(sKatea, iZbk, iErroreKodea);
if iErroreKodea<>0 then
writeln(iErroreKodea, ' posizioan karaktere oker hau dago: ', sKatea[iErroreKodea]) else writeln('Katetik zenbaki hau lortu dugu: ', iZbk); writeln;
sKatea := '-5.387E+02';
val(sKatea, rZbk, iErroreKodea);
if iErroreKodea<>0 then writeln(iErroreKodea,
' posizioan karaktere oker hau dago: ', sKatea[iErroreKodea]) else writeln('Katetik zenbaki hau lortu dugu: ', rZbk:0:3);
readln;
end.
|
Ikusi ere 8. astea | zenbakiak teklatuz irakurtzen artikuluan ematen diren bi adibideak.
iruzkinik ez:
Argitaratu iruzkina
Iruzkinen bat idazteko Google-ko kontu bat behar duzu. Iruzkin guztien moderazio-ardura blogeko administratzaileari dagokio.