В чём проблема?((

[Van-89]

В общем делаю регулятор скорости для гонок...
Управление им клавишами Вверх-Вниз...
1 число может быть только о 0 до 100 и обратно... счёт другого числа с 70 до 100 и обратно...

проблема в том что второе число не ограничивается 30'м... а счёт идут дальше...

мне стыдно просить о помощи(((

uses crt;
VAR  c, x, down, up: integer;
    n: char;

LABEL m1, m2;

Begin

x:=0;
c:=0;

m1:

n:=readkey;
case n of

     #72 :begin up:=x+1;
         if (up>=0) and (up<=100) then x:=up;
         if (x>70) and (x<=100) then c:=c+1;
     end;
     #80 :begin down:=x-1;
         if (down>=0) and (down<=100) then x:=down;
         if (x>=70) and (x<100) then c:=c-1;
     end;
     else GOTO m2;

end;

writeln('‚ўҐае-‚*Ё§... ', x, ' ђҐЈг«пв®а... ', c);

m2:
GOTO m1;

readln;
end.

[Stilet]

На твоем месте я бы писал примерно так:

x:=0;
c:=0;

repeat
n:=readkey;
case n of

     #72 :begin
         if x<100 then inc(x);
         if x in [70..100] then inc(c);
     end;
     #80 :begin
         if x>0 then dec(x);
         if x in [70..100] then dec(c);
     end;

end;

writeln(c);

until условие окончания;

[Van-89]

Сообщение от Stilet

На твоем месте я бы писал примерно так:
#72 :begin
if x<100 then inc(x);
if x in [70..100] then inc(c);
end;
#80 :begin
if x>0 then dec(x);
if x in [70..100] then dec(c);
[/CODE]

Гугл сказал что 'inc' увеличение переменной на +1...
'dec' Уменьшение на -1...

А что делает "in"?...

В книге которую читаю ничего про это нету...

[Leshii]

Как это великий гугл и не ответил ?) И даже книга не сказала ?)

if x in [70..100] then dec(c);

Отвечу пророческим голосом гугла, "Если икс находится в диапазоне ( или же принадлежит отрезку ) от 70 и до 100 то уменьшить параметр "с" на единицу.

То что отмечено черным есть твой "in".

[Stilet]

В книге которую читаю ничего про это нету...

Читай книгу где описаны множества языка Паскаль

[Van-89]

Спс всем)... вроде более менее сделал...