Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

функция Random [D7, XP]


Страницы:   1 2

olegusis ©   (2007-12-04 22:04:00) 

Почему функция 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-05 02:06:00) [1]

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


Юрий Зотов   (2007-12-05 00:19:00) [2]

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

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

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

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

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

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


Плохиш   (2007-12-05 00:16:00) [3]


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

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


homm   (2007-12-05 00:15:00) [4]

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

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


Virgo_Style   (2007-12-05 00:10:00) [5]

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


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


turbouser   (2007-12-05 00:09:00) [6]


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

Полезную информацию надо извлекать из книжек и мануалов.


olegusis   (2007-12-05 00:04:00) [7]


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


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


olegusis   (2007-12-05 00:02:00) [8]


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

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

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


palva   (2007-12-05 00:01:00) [9]

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


Юрий Зотов   (2007-12-04 23:49:00) [10]

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

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


olegusis   (2007-12-04 23:46:00) [11]


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

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


olegusis   (2007-12-04 23:45:00) [12]

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


Юрий Зотов   (2007-12-04 23:40:00) [13]

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

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


homm   (2007-12-04 23:39:00) [14]

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

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


olegusis   (2007-12-04 23:35:00) [15]


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


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


@!!ex   (2007-12-04 23:28:00) [16]

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

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

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

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


olegusis   (2007-12-04 23:25:00) [17]


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

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


Джо   (2007-12-04 23:15:00) [18]

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


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


olegusis   (2007-12-04 23:11:00) [19]

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

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


Zeqfreed   (2007-12-04 22:45:00) [20]

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


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо