VPF::Пример на минус - Форум программистов

Михалыч

Дата 14.12.2016, 19:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 468
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

Делаю пример на вычитание

Код


rand:=100;//числа в пределах
 repeat
 randomize;
 a:=random(rand);
 b:=random(rand);
 until a>b;
d:=a-b;
 repeat
 randomize;
c:=random(rand);

 until d>c;
a1:=IntToStr(a);
b1:=IntToStr(b);
c1:=IntToStr(c);
Memo1.Lines.Add(a1+'-'+b1+'-'+c1+'=');

Все хорошо получается , но вот только в переменной с генерируется маленькое число от 0 до 3 и не более
Получается такие примеры: 95-7-1 , 68-14-0 , 46-18-2 и т.д.
Как сделать чтобы был пример полноценный, типа: 86-24-43

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

Garmahis

Дата 15.12.2016, 09:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

А зачем каждый раз вызывать randomize? Вызови его один раз после rand:=100;
Если не поможет используй RandSeed.

Это сообщение отредактировал(а) Garmahis - 15.12.2016, 09:07

Rennigth

Дата 8.1.2017, 14:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

1. Действительно Randommize делай только один раз.
2. На счет не больше 3 это врятли, но это не важно...
3. Вместо

Код


repeat
 randomize;
 c:=random(rand);
 until d>c;

мне кажется нужно как-то так

Код


 c:=random(d);

--------------------

(* Honesta mors turpi vita potior *)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »