IOResult, нужна помощь,кто разбирается с этим((( Опции

[kpoxa]

ребят,помогите пожалуйста дописать программу((( очень срочно надо!!! тут надо,чтобы каждый ввод проверялся с помощью иорезалта и рэйнджа((( текст программы прикрепляю к сообщению! заранее огроменное спасибо!

[volvo]

тут надо,чтобы каждый ввод проверялся с помощью иорезалта и рэйнджа(((

Напиши функцию

function GetNumber(var X: integer; range_b, range_e: integer): boolean;

, которая будет пытаться получать число, проверять IOResult, и заодно - нахождение введенного числа в заданном интервале, и вернет True только если не было ошибки ввода, и range_B<=X<=range_e ... А все вызовы ReadLn(...) в основной программе замени на

While not GetNumber(...) Do;

Вот и все, собственно...

[Lapp]

чтобы каждый ввод проверялся с помощью иорезалта и рэйнджа

Смотри, как нужно делать. Вот кусок из твоей проги:

writeln('vvedite koefficient smescheniya (a):');
readln(a);
riteln('vvedite min y - otritsatelnoe chislo');
readln(b);

Нужно сделать примерно так:

{$I-}
repeat
  writeln('vvedite koefficient smescheniya (a):');
  readln(a)
until IOResult=0;
repeat
  writeln('vvedite min y - otritsatelnoe chislo');
  readln(b)
until IOResult=0;
{$I+}

И дальше в том же духе.
А что ты имела в виду про range check, я не понял. Скажи подробнее.

Сообщение отредактировано: Lapp - 31.05.2009 15:39