функция Random

← →
olegusis © (2007-12-04 22:04) [0]

Почему функция random не даёт нужного эффекта?
procedure TForm1.Button1Click(Sender: TObject); var A: Integer; begin A:=Random(12); Edit1.Text:=IntToStr(A); end
Вот что выводит прога в Edit1:

1) (первое нажатие на Button1) 0
2) (второе нажатие на Button1) 0
3) 2
4) 10
...
При новом запуске проги происходит то же самое:
0 0 2 10...

Как сделать так, чтобы отображалось случайно сгенерированное число, а не заранее спланированная последовательность?

← →
Джо © (2007-12-04 22:06) [1]

До вызова Random нужно вызвать Randomize.

← →
olegusis © (2007-12-04 22:20) [2]

Ну почему в ЭТОМ ДЕЛФИ всё так усложнено! А как, к примеру, извлечь кубический корень из числа?
Дайте кто-нибудь ссылку на описание ВСЕХ стандартных и нестандартных функций ДЕЛФИ, плз.

← →
homm © (2007-12-04 22:23) [3]

> [2] olegusis © (04.12.07 22:20)
> А как, к примеру, извлечь кубический корень из числа?

возвести число в степень 1/3, видимо?

← →
homm © (2007-12-04 22:24) [4]

> [2] olegusis © (04.12.07 22:20)
> Дайте кто-нибудь ссылку на описание ВСЕХ стандартных и нестандартных
> функций ДЕЛФИ

Сам то понял, что просишь? Только матрице это под силу.

← →
Германн © (2007-12-04 22:33) [5]

> Дайте кто-нибудь ссылку на описание ВСЕХ стандартных и нестандартных
> функций ДЕЛФИ, плз.

X:\Program Files\Borland\Delphi7\Help

← →
homm © (2007-12-04 22:36) [6]

> [5] Германн © (04.12.07 22:33)
Не, нестандартных там точно нет :)

← →
olegusis © (2007-12-04 22:40) [7]

> возвести число в степень 1/3, видимо?

спасибо, я в курсе! Ты лучше попокажи, как этому ДЕЛЬФИНУ задать код на возведение числа в степень 1/3. С целыми показателями степеней всё понятно, а с дробными и иррациональными показателями что делать?

← →
Джо © (2007-12-04 22:41) [8]

> [2] olegusis © (04.12.07 22:20)
> Ну почему в ЭТОМ ДЕЛФИ всё так усложнено!

Что «всё»?
Достаточно было прочесть встроенную справку по Random и каша в голове немного улеглась.

← →
Германн © (2007-12-04 22:42) [9]

> olegusis © (04.12.07 22:40) [7]

Функция Power

← →
Германн © (2007-12-04 22:43) [10]

> homm © (04.12.07 22:36) [6]
>
> > [5] Германн © (04.12.07 22:33)
> Не, нестандартных там точно нет :)
>

Вот и хорошо. Лишние IncDay нам не нужны :)

← →
homm © (2007-12-04 22:43) [11]

> [7] olegusis © (04.12.07 22:40)
> спасибо, я в курсе!
Рад за тебя.

> [7] olegusis © (04.12.07 22:40)
> Ты лучше попокажи, как этому ДЕЛЬФИНУ задать код
Не мучай животных.

> задать код на возведение числа в степень 1/3
uses math;
power();

← →
Zeqfreed © (2007-12-04 22:45) [12]

http://en.wikipedia.org/wiki/Power_%28mathematics%29#Rational_powers_of_positive_real_numbers

← →
olegusis © (2007-12-04 23:11) [13]

Ну ребятки, порадывали вы меня сегодня, стока ценной информации выложили! Я б за неделю стока бы не узнал.
Да, и ещё вопрос:

Какие ещё фун-ии входят в состав модуля MATH ([функция] - [описание])?

← →
Джо © (2007-12-04 23:15) [14]

> [13] olegusis © (04.12.07 23:11)
> Ну ребятки, порадывали вы меня сегодня, стока ценной информации
> выложили! Я б за неделю стока бы не узнал.
> Да, и ещё вопрос:
>
> Какие ещё фун-ии входят в состав модуля MATH ([функция]
> - [описание])?

Если открыть модуль Math.pas, то все-все функции как-раз и увидишь. С комментариями.
А если еще F1 воспользоваться, то будет совсем-совсем хорошо и приятно.

← →
olegusis © (2007-12-04 23:25) [15]

> Если открыть модуль Math.pas, то все-все функции как-раз
> и увидишь. С комментариями.
> А если еще F1 воспользоваться, то будет совсем-совсем хорошо
> и приятно.

С удовольствием, только есть одно небольшое НО - я английский не знаю!
Дайте ссылки на русифицированную Help по D7!

← →
@!!ex © (2007-12-04 23:28) [16]

> С удовольствием, только есть одно небольшое НО - я английский
> не знаю!

http://translate.google.com/translate_t?hl=ru

> Дайте ссылки на русифицированную Help по D7!

Спасибо, посмешил.

← →
olegusis © (2007-12-04 23:35) [17]

> http://translate.google.com/translate_t?hl=ru

Зачем мне этот транслит! Мне нужна справочная система по ДЕЛЬФИНУ #7 на руссском языке!

← →
homm © (2007-12-04 23:39) [18]

> [15] olegusis © (04.12.07 23:25)
> только есть одно небольшое НО - я английский не знаю!

Такие, как ты, постепенно вымирают, к счастью. Либо учи язык, либо метелку в куки.

← →
Юрий Зотов © (2007-12-04 23:40) [19]

> olegusis © (04.12.07 23:35) [17]

Бросайте это занятие. Не Ваше оно. Только время зря потеряете.

← →
olegusis © (2007-12-04 23:45) [20]

Удалено модератором

← →
olegusis © (2007-12-04 23:46) [21]

> Бросайте это занятие. Не Ваше оно. Только время зря потеряете.

Это ещё почему?

← →
Юрий Зотов © (2007-12-04 23:49) [22]

> olegusis © (04.12.07 23:46) [21]

Потому что Вы не хотите работать. А без этого программистом не станешь, бесполезно. Поэтому лучше и не тратить время зря.

На 1с можно перейти. Без английского. Говорят платят хорошо.

> Потому что Вы не хотите работать. А без этого программистом
> не станешь, бесполезно. Поэтому лучше и не тратить время
> зря.

здесь я с Вами полностью согласен, ЛЕНТЯЙ Я, Л Е Н Т Я Й !

Но в данный момент я пытаюсь извлечь максимум полезной информации от умников-заумников МЕГАДЕЛФИСТОВ межгалактического сообщества: - следовательно работаю, пытаюсь что-то выяснить для создания программы и т. д. и т. п.
или тогда, что Вы имели ввиду под этими словами: "Вы не хотите работать"?

> На 1с можно перейти. Без английского. Говорят платят хорошо.

1c не рулит. Дебет с Кредитом путаю.

olegusis © (05.12.07 0:02) [24]
что Вы имели ввиду под этими словами: "Вы не хотите работать"?

Учить английский, читать книги, пользоваться поисковиками...

> [24] olegusis © (05.12.07 00:02)
> я пытаюсь извлечь максимум полезной информации от умников-
> заумников

Да что же ты за живодер такой…

> Virgo_Style © (05.12.07 00:10) [27]
> Учить английский, читать книги, пользоваться поисковиками.

Зачем? Есть же делфимастер, здесь всегда подадут немощному и недоразвитому...

> olegusis © (05.12.07 00:02) [24]

> что Вы имели ввиду

Что нужно читать книги - чтобы стало понятно, что такое Randomize, зачем оно надо, как оно работает и почему сделано именно так.

Что нужно думать - чтобы не возникало вопросов, как возвести число в положительную степень. Потому что это запросто делается через логарифм, экспоненту и курс математики средней школы.

Что нужно учить английский - потому что практически 100% документации идет на английском и без умения ее читать в программизме просто нечего делать.

И что нужно ХОТЕТЬ все это. Хотеть читать, думать и учить. Иначе действительно не стоит тратить время зря, а стоит заняться чем-то другим.

Пустая трата времени, господа.

функция Random Найти похожие ветки