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

[_fynjy_]

И +1 чтобы а и b могли быть равны

Вот поэтому и опередили... Фигли тут думать, тут писать надо!

Вот я и писал много случаев в программе и всегда a>b

[maxionans]

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

Вот поэтому и опередили... Фигли тут думать, тут писать надо! Как многие и делают... Шутка...

Ну это совет TC был, потому что я ему уже давал ответ в соседней теме (ага, эта тема - клон).

[Grag]

_fynjy_, да делай как тебе хоцца, это, в общем-то, твоя задача...
Но только по условию

от одного до ста но a>b было?

[_fynjy_]

Grag, да, попробуй сам
maxionans, да, только ту тему удалили почему то, а ответ не успел прочитать

[Grag]

_fynjy_, посчитай вероятность выпадения А=100, это и будет вероятность ошибки предложенного алгоритма... Если даже вероятность предсказания 0.01, то нафиг такой алгоритм! Все, я закончил этот флуд...

[Naive]

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

Да самое примитивно-простое - это b:=random(a)...

тогда b может быть равным нулю

a := random(99)+2;
b := random(a-1)+1;

Так, пожалуй, будет вернее.

[_fynjy_]

Кстати да, a имеет диапозон от 0 до 99, b имеет любую a только на 1 меньше и равное a , я правильно понял?

[maxionans]

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

a := random(99)+2;
b := random(a-1)+1;

Так, пожалуй, будет вернее.

Так, пожалуй, a может принимать значения > 100

[Grag]

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

Так, пожалуй, a может принимать значения > 100

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

[_fynjy_]

Так или иначе все способы подходят, спасибо