VPF::Проблема со случайным заполнением массива

nyangassist

Дата 13.2.2009, 23:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 13.2.2009

Репутация: нет
Всего: нет

необходимо заполнить динамический массив случайными числами.
собственно, на этой простой задаче возникла проблема. код:

Код


for i := 0 to Form1.n - 1 do
                   for j := 0 to Form1.n - 1 do
                       Form3.A[i,j]:=(Random()-0.5)*200;

на последней строчке выдает ошибку:

[Pascal Error] random.pas(60): E2029 '.' expected but '(' found

может, проблема из-за того, что сам массив и его длина находятся в других модулях? или могут быть другие причины?

Christoph

Дата 13.2.2009, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 1
Всего: 11

пишет что ожидалась точка зато скобка найдена
а разве можно вызывать random без параметра?

--------------------

SkyAngel

Дата 14.2.2009, 14:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 11.1.2009
Где: Беларусь, Минск

Репутация: нет
Всего: нет

Цитата(THandle @ 14.2.2009, 10:10

)

В 2009 можно,

И тогда в каком промежутке будет получено число? От какого до какого?

THandle

Дата 14.2.2009, 15:23 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Насчет 7 поторопился, каюсь...)

А так насчет Random'а:

http://www.delphisources.ru/pages/faq/faq_...Random.php.html

Цитата(nyangassist @ 13.2.2009, 23:06

)

на последней строчке выдает ошибку:

Последняя строчка это последняя строка в приведенном коде?

Такой код компилируется:

Код


procedure TForm1.Button1Click(Sender: TObject);
const
  n = 10;
var
  i, j: Integer;
  A: Array[0..n - 1, 0..n - 1] of Double;
begin
  for i := 0 to n - 1 do
    for j := 0 to n - 1 do
      A[i,j] := (Random - 0.5) * 200;
end;

Если Delphi 7 - то лишними были скобки после Random'а.

nyangassist

Дата 14.2.2009, 22:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 13.2.2009

Репутация: нет
Всего: нет

проблема решена - оказывается, я додумалась назвать сам модуль random...(
код

Код


for i := 0 to Form1.n - 1 do
                   for j := 0 to Form1.n - 1 do
                       Form3.A[i,j]:=(System.Random()-0.5)*200;

замечательно работает)

Это сообщение отредактировал(а) nyangassist - 14.2.2009, 22:25

Poseidon

Дата 15.2.2009, 00:59 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(Christoph @ 13.2.2009, 23:33

)

а разве можно вызывать random без параметра?

Цитата(SkyAngel @ 14.2.2009, 14:37

)

И тогда в каком промежутке будет получено число? От какого до какого?

Ну ребята вы даете...

Цитата

Random - функция
Генерирует последовательность целых или действительных случайных чисел

Модуль System

Объявление
function Random (Range: Integer);

Описание
Функция Random генерирует последовательность целых или действительных случайных чисел. Парметр Range не является обязательным. Если этот параметр не задан, то функция возвращает случайные действительные числа X, равномерно распределенные в интервале 0 <= X < 1.
Если в функции Random задан параметр Range, то функция возвращает случайные целые числа в диапазоне 0 <= X < Range.

Это как бы паскаль еще smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »