Составить программу контроля введенного значения переменных...

LastQuinsy

Составить программу контроля введенного значения переменных в пределах от -20 до -10 и от 111 до 222.help. не могу понять как прописать две переменные в одном цикле, или дать два значения одной переменной, или как сделать цикл в цикле while...хотел так прописать...
 
while (n<-20) or (n>-10) do
 begin
  while (n<111) or (n>222) do
   begin
    write (' ')
   end
 end
но понимаю что таким способом присваиваю одно другому...
4 ответа

LastQuinsy

**********,
...while ((n>=-20) and (n<=10)) or ((n>=111) and (n<=222)) do...


LastQuinsy

в такой ситуации цикл не разу не запускается и любое число удовлетворяет программу, а мне нужны числа только от -20 до -10 а также от 111 до 222...вот как полностью все выглядит
program lab;
 uses crt;
 var n:integer;
begin
 clrscr;
 write ('Vvedite znachenie peremennoi v promejytke ot -20 do -10 ili ot 111 do 222.');
 read (n);
  while (n>-20) and (n<-10) or (n<111) and (n>222) do
   begin
    write ('Neverno vvedennoe znachenie peremennoy. ');
    write ('Vvedite znachenie peremennoi v promejytke ot -20 do -10 ili ot 111 do 222.');
    readln (n)
   end;
 write ('Vvedennoe znachenie peremennoi =',n);
 readln
end.
может кто нибудь подсказать что делать?...


LastQuinsy

скобочки забыли, У Севака двойные между or. можно еще так
repeat
...
until (n in [-20..-10])or(n in [111..222])


LastQuinsy

спасибо, все работает...