2023(e)ko martxoaren 10(a), ostirala

Val prozedura






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