per risolvere questo problema la soluzione e quella di leggere quello che viene immesso dall'utente come una variabile string e convertirli in numeri utlizzando la procedura 'val'. la procedura controlla che siano solo numeri dando ad una variabile il codice dell'errore.
Esempio:
s : string;
a,b :integer;
begin
read(s);
val(s,a,b);
if b <> 0 then
write('errore nell''immissione di dati');
else write('il numero è ',a);
end.
|