[Deman1986]

Уважаемы программисты помогите с решением задачи
генерацию набора цифр от нуля до девяти (количество объектов в наборе должно изменяться от одного до девяти, одинаковые цифры в наборе не допускаются);
вывод набора цифр пользователю в одной из определённых в индивидуальном задании графических форм в течение фиксированного промежутка времени;
вывод пользователю всех цифр (в заданной графической форме) для того, чтобы он мог указать, какие из них входили в набор;
индикация ошибок пользователя (при их наличии).
Графическая форма:
Римские цифры, словесная форма, цвет шрифта
реализовал вот так

Код:

unit main;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Timer1: TTimer;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

function DecToRoman(Decimal: LongInt): string;
const
Romans: array[1..9] of string =
('I', 'II', 'III', 'IV', 'V', 'VI', 'VII', 'VIII', 'IX');
  Arabics: array[1..9] of Integer =
  (1, 2, 3, 4, 5, 6, 7, 8, 9);
var
  i: Integer;
  scratch: string;
begin
  scratch := '';
  for i := 9 downto 1 do
    while (Decimal >= Arabics[i]) do
    begin
      Decimal := Decimal - Arabics[i];
      scratch := scratch + Romans[i];
    end;
  Result := scratch;
  end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
// числа от 1 до 9 включительно будут отображаться последовательно
Label1.Caption:=Label1.Caption +' ' + IntToStr(Random(8)+1);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//надо обязательно иницилизировать генератор
Randomize;
  Timer1.Interval := 5000; // 5 секунд
    Timer1.Enabled := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled := false;
end;

end.

Помогите пожалуйста дальше не получается. Спасибо

[M.A.D.M.A.N.]

Ну как вариант — использовать метод распределения, иначе в дельфи можно только получить псевдослучайные числа.

[Deman1986]

Подскажите пожалуйста как реализоваьь я новичек в дельфи. Спасибо.

[lmikle]

Делал подобную задачу - перемешивание колоды карт.
Собственно, проблема данной задачи в том, что при прямой генерации для исключения повторения сгенерированного значения необходимо заного его генерировать. Такой алгоритм приводит к практически бесконечной генерации в конце списка.
Примененное решение заключалось в том, что производится не генерация самих значений (их список известен и конечен), а генерация их места в итоговом списке. Если позиция уже занята, то происходит просто поиск следующей свободной позиции (сдвиг).

Вот пример генерации:

Код:

procedure GetNumbers(var A : Array of Integer);
var
  I, Idx : Integer;
  B : Array [0..8] Of Integer;
begin
  If (Length(A) > 9) Or (Length(A) < 1)
    Then Raise Exception.Create('Input array should have length 1 to 9. ');

  // Init temp arrray
  For I := 0 to 8 Do B[i] := 0;

  // Generate list
  For I := 1 to 9 Do
    Begin
      Idx := Random(9);
      While B[Idx] <> 0 Do
        If Idx = 8 Then Idx := 0 Else Inc(Idx);
      B[Idx] := I;
    End;

  // Copy result to output array
  For I := Low(A) To High(A) Do A[i] := B[i];
end;

Пример использования. Пусть будут римские цифры:

Код:

// Return rome 1..9
function IntToRome(Value : Integer) : String;
const
  Romes : Array [1..9] Of String =
    ('I','II','III','IV','V','VI','VII','VIII','IX');
begin
  If Not (Value In [1..9]) 
    Then Raise Exception.Create('Value should be in range 1..9.');
  Result := Romes[Value];
end;

procedure Form1.Button1Click(Sender : TObject);
var
  N, I : Integer;
  A : Array Of Integer;
  S : String;
begin
  Randomize;
  N := Random(9)+1; // Random number of digits 1..9
  SetLength(A,N); // prepare the array
  GetNumbers(A); // Get values

  // Prepare and show result
  S := '';
  For I := Low(A) To High(A) Do
    Begin
      S := S + IntToRome(A[i]);
      If I < High(A) Then S := S + ', ';
    End;
  ShowMessage(S);
end;

[Alegun]

А можно и так ещё, в лоб

Код:

...
type
 rdm = array [{1} 0..9] of string;

procedure rds(var ds: rdm);
var
 i, p, b: integer;
 s, r: string;
begin
 i:= {1} 0;
 while i <= 9 do
  begin
   p:= Random(10);
   b:= Random(10);
   s:= ds[p];
   r:= ds[b];
   ds[p]:= r;
   ds[b]:= s;
   inc(i);
  end;
end;

пример использования

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 m: rdm;
begin
 Randomize;
 for i:= {1} 0 to 9 do m[i]:=  IntToStr(i); { IntToRome(i);}
 Edit1.Text:='';
 rds(m);
 for i:= {1} 0 to 9 {Random(8)+2} do Edit1.Text:= Edit1.Text + m[i];
end;

в фигурных скобочках - вариант с ромой и переменной длинной наборчика

[lmikle]

Да, можно прямым перемешиванием, хотя, при особом невезении, можно получить неперемешанный массив. Да, инициализацию массива забыл. И еще одна проблема в твоем коде - в моем варианте я всегда генерирую любое число от 1 до 9 не зависимо от длинны переданного массива. Именно поэтому используется временный массив, из которого потом производится копирование. Это не очень хорошо, если надо сгенерировать РЕАЛЬНО большую последоватиельность (например, если надо генерировать числа от 1 до, допустим, 1 млрд), памяти дополнительной много сожрет. С другой стороны, в твоем варианте все равно есть проблема, если надо сгенерировать любые 5 чисел из диапазона 1..9, как мне кажется, хотя очень внимательно не смотрел.