функция Rondom, помогите разобраться Опции

[jenka]

Сразу говорю, я пользовалась поиском и все прочла, но есть такие вопросы:
вот фрагмент задачи:

begin
   clrscr;
   randomize;
   sum:=0;
   for i:=1 to n do begin
       a[i]:=random*100;
       if random(100)<50 then a[i]:=a[i]*-1;
       write(a[i] :4 :2,' ');

В этом фрагменте заполняется массив вещественными, положительными и отрицательными числами.
Мне не понятно, почему пишется Random*100 без скобок(в принципе, то что без скобок это понятно, т.к вещественные числа) и и почему со знаком * (умножить)?
Как еще можно показывать диапозон генерации случайных чисел в функции Random?
немогли бы вы привести примеры ,как это делать с вещественными и целыми числами ,какие еще есть варианты, какие можно применять знаки, и как все это понять, что он будет конкретно делать, т.е с какого диапозона брать числа и какие?
И еще, (по фрагменту задачи) можно ли подругому, но тоже с rondom, заполнить массив из n вещественных элементов, чтоб были положительные и отрицательные элементы?
Спасибо за помощь.

Пожалуйста, используй теги.
Выдели программу блоком и выбери нужный тип кода в выпадающем меню над мессаджем

Сообщение отредактировано: lapp - 16.11.2006 2:51

[volvo]

не понятно, почему пишется Random*100 без скобок(в принципе, то что без скобок это понятно, т.к вещественные числа) и и почему со знаком * (умножить)?

Дело-то все в том, что Random имеет 2 формы записи, как ты правильно заметила. Первая, без параметра, возвращает случайное вещественное число X
(0 <= X < 1)
а вторая (с параметром) - целое число в интервале 0 <= X < {параметр}

Здесь - первый вариант... Но: допустим, задача - получить вещественные случайные числа в интервале 0<=X<100. Что делаем? Правильно, раз простой Random выдает до единицы, то Random*100 выдаст до 100

можно ли подругому, но тоже с rondom, заполнить массив из n вещественных элементов, чтоб были положительные и отрицательные элементы?

Можно... Вот так, например:

const
  range_start  = -50;
  range_finish =  50;
...
  randomize;
  for i := 1 to n do begin

    a[i] := random * (range_finish - range_start) + range_start;

  end;