Множества, Работа с множеством в Delphi Опции

[status]

Помогите пожалуйста решить задачу : Вводятся 6 чисел, не превышающих 49. Программа также генерирует 6 различных чисел от 1 до 49 и сообщает, сколько из них пользователь угадал.

[volvo]

Вводить числа я так понимаю лучше в ListBox?

Зачем же ListBox? Memo удобнее будет...

procedure TForm1.ButtonClick(Sender: TObject);
const N=6; M=49;

var 
  userSet, setM: set of 1 .. M;
  A, i: byte;
begin
  Randomize;
  setM:=[];
  for i:=1 to N do begin
    repeat
      A:=Random(M)+1
    until not(A in setM);
    setM := setM+[A];
  end;

  // Мемо должен быть заполнен перед нажатием кнопки,
  // причем все числа должны быть проверены на корректность
  // Здесь проверяется только равенство "выигрышной комбинации"
 userSet := [];
 for i := 0 to Memo2.Lines.Count - 1 do
   Include(userSet, StrToInt(Memo2.Lines[i]));

 if userset = setm then ShowMessage('Yes !!!')
 else ShowMessage('No');

end;

Сообщение отредактировано: мисс_граффити - 24.05.2007 3:32