Quote (Imperator)
Но все равно + за код .
Всегда пожалуйста
   |
| Обсуждения на FableGame Беседка Разговоры на любые темы Кто программирует на Delphi ? |
| Кто программирует на Delphi ? |
 
|
Quote (Altaris) Значит тебе нужно сделать генератор случайных чисел? Мне нужен генератор случайных не повторяющихся чисел .
31.03.2011, 00:29
|
|
Ну тот что я скинул, как раз и является генератором случайных не повторяющихся чисел
Но я дома посижу, вспомню математику и скажу тебе как правильно вписать равность Инженер я или кто 
31.03.2011, 02:09
|
Quote (Imperator) procedure TForm1.Button1Click(Sender: TObject); begin repeat begin x:=random(10); Y:=random(10); Z:=random(10); label1.caption:=floattostr(x); label2.caption:=floattostr(y); label3.caption:=floattostr(z); end ; Until x<>z and x<>y ; end ; x<>z and x<>y ;
31.03.2011, 09:01
|
|
Quote (Andy777) x<>z and x<>y ; X(+-)b =Z , X(+-)b =Y Тебе надо найти b Не понял
31.03.2011, 20:20
|
|
|
|
Я наконец решил эту проблемму . И решение оказалоь для меня более чем неожиданным
 
06.04.2011, 16:11
|
|
|
|
|
| |||