Написал следующую функцию для ввода переменной
Код:
{функция защищенного ввода переменной типа word 0..65535} function OneScan(str:string):WORD; var n:WORD ; BEGIN writeln(str); {директива компилятора, отключающая проверку ввода/вывода} while(1=1) do BEGIN { fflush(stdin);очистить стандартный поток ввода } {I-} read(n); {I+} if(IOresult<>0) then {IOResult проверяет, был ли последний} begin {вызов функции ввода/вывода удачным} writeln; writeln(' !!Ошибка ввода, попробуйте снова!!'); end else break; END;{while } OneScan:=n; END;{OneScan}
Почему-то не работает(:
Скажите в чем дело?