рандом в дельфи - CoderX

		CoderX :: Forums > Основные форумы > Программинг
рандом в дельфи

Программинг Форум для тем связанных с программированием

Чат (Новых сообщений с момента вашего последнего визита нет)
Сообщение...	Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.

Опции темы

Опции просмотра

23.10.2007, 01:55

Cucumber

Пользователь

Регистрация: 21.10.2007

Сообщений: 42

Сказал Спасибо: 5

Имеет 2 спасибок в 2 сообщенях

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  x : integer;
begin
// 0 <= x < 10
  x := random(10);
// 5 <= x < 15
  x := 5+ random(10);
end;

« Предыдущая тема | Следующая тема »

Ваши права в разделе
Вы не можете создавать темы Вы не можете отвечать на сообщения Вы не можете прикреплять файлы Вы не можете редактировать сообщения BB коды Вкл. Смайлы Вкл. [IMG] код Вкл. HTML код Выкл.

Часовой пояс GMT +4, время: 13:03.