не работает ген.случ.чисел

[lexus3004]

Доброго времени суток!
Мне нужно создать генератор случайных чисел. Исходник я нашел, но вот проблема он не работает. Может ктонибудь сможет помоч. Привожу исходник:

код

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TfMain = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
fMain: TfMain;

implementation

{$R *.dfm}

procedure TfMain.Button1Click(Sender: TObject);
begin
const
MaxValue = 1000; //максимальный размер случайных чисел
var
a:array [1..100] of integer; //массив целых чисел из ста элементов
i:integer; //счетчик для for
s:string;
begin
//сначала очистим Memo
Memo1.Clear;
//заполним случайными числами от 0 до MaxValue массив a
for i:= 1 to 100 do
s[i]:=Random (MaxValue);
//данные из массива добавляем сначала в строковую переменную, затем в Memo
s:='';
for i:=1 to 100 do
s:= s+IntToStr(a[i])+ ', ';
Memo1.Lines.Add(s);
end;

end.

Спасибо!

[Vasuha]

Что значит не работает? Ошибку в студию....

s[i]:=Random (MaxValue); - что это??????

[lexus3004]

Ошибку нашел было лишним: BEGIN стоящее перед CONST.
Кстати не s[i]:=Random (MaxValue);, а a[i]:=Random (MaxValue);
Всем спасибо, полагаю тема закрыта.

[Hardman75]

Цитата: Сообщение от lexus3004 Всем спасибо, полагаю тема закрыта.

Если еще интересно то такой генератор постоянно будет повторять одни и те же случайные числа.

[ELEA]

То что вы обсудили - не исходник, а комманда!
Исходник подлиннее будет

[l_e_v]

а кто будет использовать randomize перед вызовом random

[n4trojan]

//заполним случайными числами от 0 до MaxValue массив a
Randomize;
for i:= 1 to 100 do
a[i]:=Random (MaxValue);
//данные из массива добавляем сначала в строковую переменную, затем в Memo

Исправь...

[kermy]

без вот этого
Randomize
перед вот этим
a[i]:=Random (MaxValue);
у тебя весь массив заполнится случайным числом но одним и тем же, вот так))

[hack]

Господа здравствуйте!
Время уже позднее, сижу туплю по полной. Помогите решить поблему - нужно сгенерировать 60 чисел в диапазоне от 70 до 80 с условием, что каждое число не должно отличаться от предыдущего и последующего не более, чем на 3 (например - 73, 71, 71, 70 ... 73, 72, 75, 74, 74). Числа повторяться могут.Ничего умнее придумать не могу:

procedure TForm1.Button2Click( Sender : TObject );
var
  i, int, int1 : integer;
  s : string;
begin
  Randomize( );
  Memo1.Clear;
  int1:= RandomRange(73, 77);
  //ShowMessage(IntToStr(int1));
  for i := 1 to 60 do
    begin
      int := int1 + Random( 2 );
      Memo1.Lines.Add( IntToStr( i ) + '  |  ' + IntToStr( int ) );
      int := int1 - Random( 2 );
      Memo1.Lines.Add( IntToStr( i ) + '  |  ' + IntToStr( int ) );
    end;
end;

Но что то не нравится мне этот подход, коряво как то.

[Keramp]

Цитата: Сообщение от hack Но что то не нравится мне этот подход, коряво как то.

А не логичнее ли было перезадавать RandomRange заново на каждой итерации?

[nanomyte]

что-то вроде int:=RandomRange(max(70,int-3),min(80,int+3));

[hack]

Да вроде уже все получилось - со знакомым посидели - сваяли функцию:

var
   Form1: TForm1;
   Res : array[1..60] of integer;

function TForm1.Randomiz( minD, maxD : integer ) : integer;
var
  i, int, int1, tmp : integer;
  x : byte;
begin
  FillChar(Res, SizeOf(Res), 0);
  int1 := RandomRange(70, 80 );
  for i := 1 to 60 do
  begin
    x := Random( 2 );
    tmp:=RandomRange( 1, 3 );
    if x = 0 then
    begin
      int := int1 + tmp;
      if int > 80 then int := int1 - tmp;
    end
    else
    begin
      int := int1 - tmp;
      if int < 70 then int := int1 + tmp;
    end;
    Res[i] := int;
    int1:=int;
    if i > 1 then
      if (Res[i-1] - Res[i]) > abs(3) then
   end;
end;

   Randomiz( 70, 80 );
   SetTextToTable(2,2,5,IntToStr( res[1] ));