> I need to put a loop on the following validation. I have been trying but
> without
> success to date..... about time to pull my hair out, what's left that is!

> Any assistance gratefully received.

> writeln ('Enter Room Number  :');
>   readln (Roomnr);
>     if (Roomnr < 1) or (Roomnr > 12) then
>       begin
>         writeln;
>         writeln ('Room Number Incorrect :');
>       end  {End of statement   }
>     else
>       Continue := 'Y';
>   until Continue = 'Y';

> Regards

> Paul

> > I need to put a loop on the following validation. I have been trying but
> > without
> > success to date..... about time to pull my hair out, what's left that is!

> > Any assistance gratefully received.

> > writeln ('Enter Room Number  :');
> >   readln (Roomnr);
> >     if (Roomnr < 1) or (Roomnr > 12) then
> >       begin
> >         writeln;
> >         writeln ('Room Number Incorrect :');
> >       end  {End of statement   }
> >     else
> >       Continue := 'Y';
> >   until Continue = 'Y';

> > Regards

> > Paul

> I think that should do it...???

> > I think that should do it...???

>    No, I disagree.  A For loop is very much the wrong choice for a loop
> (which doesn't have a finite number of iterations stated/planned).  A
> While loop would work, but I feel the Repeat loop is best here.
>    Now, your Repeat loop isn't correct - for his problem.  Your loop will
> exit (terminate) with value in the range 2..11, which isn't how the
> problem is presented.  The loop should terminate when any value 1-12 is
> entered.  Also, using a compound termination condition isn't required,
> and the more that's added, the greater chance there is for a coding or
> logic error (I think it happened to you...).
>    So, I would do it otherwise, and one simple way is:
>         until RoomNr in [1..12]
> which states clearly what the termination condition is...as well as
> verifies the problem's logic, I feel.
>    Lastly, (added) code to handle pathological data entry (non-numerics)
> would be good, too: it would be unfortunate for such a simple program to
> abort just because some idiot didn't key in numerics digits, wouldn't you
> agree?  8<}}

> > Also, try to advoid using capitals and lowercase through out your code, this
> > will help you out greatly when you move on to C or Java where everything is
> > case sensitive.

>    C'mon...that isn't really necessary.  Does it follow that _every_
> Pascal programmer will "move to C/C++ or Java"?  I hardly think it's
> necessary to impose the harsh restrictions of another language on someone
> who's clearly learning to acquire the basics of programming...and there
> are a great many people in the world who _don't_ use a case-sensitive
> programming language!

>    C'mon...that isn't really necessary.  Does it follow that _every_
> Pascal programmer will "move to C/C++ or Java"?

> > I need to put a loop on the following validation. I have been trying but
> > without
> > success to date..... about time to pull my hair out, what's left that
is!

> > Any assistance gratefully received.

> > writeln ('Enter Room Number  :');
> >   readln (Roomnr);
> >     if (Roomnr < 1) or (Roomnr > 12) then
> >       begin
> >         writeln;
> >         writeln ('Room Number Incorrect :');
> >       end  {End of statement   }
> >     else
> >       Continue := 'Y';
> >   until Continue = 'Y';

> > Regards

> > Paul