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

[kpoxa]

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

[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