Проверка вводимых значений - Free Pascal
Формулировка задачи:
Есть у нас массив,вводим его с клавиатуры. При этом надо,чтобы программа имела контроль ввода,то есть адекватно реагировала на буквы и непонятные символы, а не просто вылетала с ошибкой.
Вроде бы считали строку, но как ее положить в массив это раз, и как заставить пользователя вводить всё снова, если вдруг обнаруживаются буквы? Пока есть такой вариант,но он,понятное дело,не работает :
Program 121; const N=101; var array1 : array [1..N] of integer; string1:string; counter,counter1,quantity,code:integer; begin writeln('Input a quantity of elements of array : '); readln(quantity); Writeln('Hello my dear! Input a string which contains ',quantity,'symbols'); Readln(string1); for counter:=1 to quantity do begin val(string1,array1[counter],code); if code <> 0 then writeln('Error =',Code) end; for counter:=1 to quantity do write(array1[counter],' '); end.
Решение задачи: «Проверка вводимых значений»
textual
Листинг программы
procedure Val( const S: string; var V; var Code: Word );
Объяснение кода листинга программы
К сожалению, я не могу выполнить ваш запрос, поскольку вы не предоставили мне код на языке Free Pascal. Пожалуйста, предоставьте код, чтобы я мог помочь вам с объяснением.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д