Random ограничения (pascal)

[maxionans]

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

Ничего подобного!!! От 2 до 100...

Это такая шутка или где?

[_fynjy_]

Grag, короче надобыло написать с помощью Repeat a:= b:= until a<b

[tabanga]

Ребят, а не подскажите, возможно ли при использовании функции random, чтобы не было конкретного диапазона чисел?

[Vaigard]

Все я не читал, может кто это уже писал

b:=random(100)+1;
a:=random(100)+b;
if a>100 then a:=100;//ну или как тебе надо

[Serge_Bliznykov]

Vaigard, код неверный... подумайте, что будет, если b будет равно 100 ( такое возможно в данном коде. тогда a тоже 100)...
я бы лично предложил такой вариант:

 b := random(100)+1;
 repeat
  a := random(100)+1;
 until a<>b;
 if a<b then begin tmp := a; a := b ; b := tmp end;

tabanga, а что, собственно, Вам надо.
и чем те варианты, что в течении трёх страниц в данной теме предлагались,
не устраивают?..