Безопасный ввод данных с клавиатуры Опции

[Yegor]

Доброе время суток.
Необходимо реализовать безопасный ввод данных в программе, на паскале.
Программе необходимо получить, допустим, 3 вещественных числа, которые вводятся с клавиатуры, но пользователь может ввести туда что-либо отличное от чисел. В таком случае необходимо, чтобы программа вывела сообщение об ошибке и попросила ввести данные заново.

Я уже реализовал это таким способом, но он меня не совсем устраивает:

Procedure Input_From_Keyboard(Var aa,bb,cc: real);
Var
   Error: integer;
Begin
  Repeat
   ClrScr;
   WriteLn('Введите a,b,c');
{$I-}
   ReadLn(aa,bb,cc);
{$I+}
   Error:=IOResult;
   if Error<>0 then Error_Message;
  Until Error=0;
End;

Работает отлично, если, скажем, введена такая последовательность "-4 5 %" (знак процента числом, как видно, не является), но если ввести "-7 5 gj hu hfh eio", то программа после первого вывода сообщения об ошибке и нажатия клавиши выведет его ещё раз. Если ввести много левых данных через пробел, то она много раз выведет ошибку, так что приходится это много раз жать на "любую клавишу".

Другой вариант

Procedure Input_From_Keyboard(Var aa,bb,cc: real);
Var
   Error: integer;
   aaa,bbb,ccc: char;
Begin
  Repeat
   ClrScr;
   Error:=0;
   WriteLn('Введите a,b,c');
   ReadLn(aaa,bbb,ccc);
   val(aaa,aa,Error); if Error=0 then begin
                                         val(bbb,bb,Error);
                                         if Error=0 then val(ccc,cc,Error);
                                      end;
   if Error<>0 then Error_Message;
  Until Error=0;
End;

Тут всё ещё печальнее, переменной bbb присваивается значение пробела. Использовать методику введения дополнительной переменной и записывания в неё пробелов как-то не хочется.
На всякий случай

Procedure Error_Message;
Begin
   WriteLn('Введены некорректные данные.');
   WriteLn('Нажмите любую клавишу и повторите ввод.');
   WriteLn('Для выхода из программы нажмите клавишу Esc.');
   if readkey=#27 then halt;
End;

Для компиляции используется Free Pascal 2.6.0 x64 на ОС Linux Ubuntu 10.04.3 (если это имеет какое-то значение)

Сообщение отредактировано: Yegor - 23.02.2012 19:23

[IUnknown]

Эта переменная s будет ненужным грузом в оперативной памяти.

Ничего, что эта переменная описана локально? Как только ты вышел из процедуры - ее больше нет.

А, насколько я знаю, есть ограничение в использовании оперативной памяти в 64 кб

Я тебя умоляю, не смеши меня... На кой тебе под x64 такой компилятор был бы нужен, который ограничивал бы использование памяти 64-мя килобайтами?

если не ошибаюсь, но при попытке создать большой массив сыпятся непонятные ошибки

Максимальный размер одной структуры и общее ограничение объема доступной памяти - это несколько разные вещи. Но в любом случае единственное ограничение на размер массива, с которым я сталкивался на данный момент - это ограничение на размер индекса. Индексов не может быть больше, чем High(PTRINT). На 32-битной системе это 2147483647. То есть, массив на десяток мегабайт выделяется легко. Что за ошибки у тебя вылазили?