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
|
![]() ![]() |
![]() ![]() |
| |||