Пример на минус

 
0
 
Delphi, Kylix & Pascal
ava
Михалыч | 14.12.2016, 19:56
Делаю пример на вычитание

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
Kommentare (1)
ava
Garmahis | 15.12.2016, 09:05 #
А зачем каждый раз вызывать randomize? Вызови его один раз после rand:=100;
Registrieren Sie sich oder melden Sie sich an, um schreiben zu können.
Unternehmen des Tages
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Mitwirkende
advanced
Absenden