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); end. |
Ikusi ere 8. astea | zenbakiak teklatuz irakurtzen artikuluan ematen diren bi adibideak.
iruzkinik ez:
Argitaratu iruzkina