массив,множество

[M_arisha]

Программа в Паскале.Помогите,пожалуйста,правиль но оформить выход из программы после обнаружения первой ошибки игрока в следующем задании:

Разработать игровую программу для тренировки памяти. В ее основу положить следующее правило игры. Необходимо ввести как можно больше чисел при соблюдении следующих условий:
• числа должны быть из диапазона 0... 255;
• запрещается последовательно вводить два числа, абсолютная разность между которыми меньше 7 (например, 5 и 6, 7 и 11).
Программа должна заканчивать свою работу после обнаружения первой ошибки игрока. На печать выводить количество правильно введенных чисел.

[Hacker19_90]

оформить выход из программы после обнаружения первой ошибки игрока в следующем задании

хм..... а такой алгоритм не пробовали?

if некатит условие then exit;

[M_arisha]

program PR4;
Uses Crt;
type
mass=array[1..100] of byte;
var
a:mass;
n,i:byte;
begin
ClrScr;
writeln('Лабораторная работа №4');
writeln('Корзун,Тужиков,Шаблыко');
write('n= ');  readln(n); {ввод размерности массива}
writeln('Vvedite elementy massiva:');
for i:=1 to n do
begin
write('a[',i,']= ');readln(a[i]);
end;
if(a[i]<0)or(a[i]>255)then
exit;

end.

Так при вводе числа >255 выход не осуществляется..?a exit;подчеркивает..


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Hacker19_90]

нда?
А что пишет?
и как вы думаете почему?
даю подсказку подучите циклы, гляньте алгоритмы проверки

[M_arisha]

пишет (Warning:unreachable code)

[Hacker19_90]

ну поправьте цикл! ну проверка не там у вас лежит!

[TinMan]

Мариш, Хакер прав - у тебя условие выхода выпало из цикла.
Но дело в том, что в этой задаче тебе совершенно не нужен массив. Все, что тебе нужно помнить - это последнее введенное число. И, соответственно, вводить n не надо. Вот, глянь сюда:

const
  d= 7;
var
  n,m,k: integer;
begin
  m:= -d-1;
  k:= -1;
  repeat
    n:= m;
    readln(m);
    inc(k)
  until (m<0) or (m>255) or (Abs(m-n)<d);
  writeln('Game over.  Your score is: ',k)
end.

Успехов тебе. Спрашивай, что неясно.

[M_arisha]

я поняла в чём дело и с выходом разобралась,но программу нужно написать использую массив или множество(предпочтительнее множество),что у меня не получается((

[M_arisha]

я поняла в чём дело и с выходом разобралась,но программу нужно написать использую массив или множество(предпочтительнее множество),что у меня не получается((

[Hacker19_90]

ну если вы всё поняли, так переправьте свою программу!