Массив Опции

[BanneD]

Всем доброго времени суток!
Помогите с программным кодам

program loto;
const n=90;
var i:integer;
    a:array[1..n] of integer;
begin
randomize;
     for i:=1 to 85 do
     begin
          a[i]:=random(91);
          if a[i]<>0 then writeln(' a[',i,']=',a[i]);
     end;
end.

Мне надо чтобы сгенерированные числа не повторялись! Как это сделать??

[TarasBer]

m:=random(n-i-1)+i+1;

Неверно.

надо

m:=random(n-i+1)+i;

Должна быть возможность поменять элемент с самим собой (ну оставить на месте).
Сам подумай, чтобы при i=1, например, формула превратилась в random(MAX)+1.

А вообще я что-то понять не могу, то у тебя до 90 (в виде константы), то до 85, ты определись.

[BanneD]

m:=random(n-i-1)+i+1;

Неверно.

надо

m:=random(n-i+1)+i;

Должна быть возможность поменять элемент с самим собой (ну оставить на месте).
Сам подумай, чтобы при i=1, например, формула превратилась в random(MAX)+1.

Что то я тебя не понимать=\ задача решается, все верно!
Ты так хотел?

for i:=1 to 85 do a[i]:=i;
for i:=1 to 85 do write('  a[',i,']=',a[i]);
writeln; 
writeln('---------------------------------------------');
writeln;
for i := 1 to 85 do begin
  m:= random(85-i+1)+i; 
  X:=a[i];
  a[i]:=a[m];
  a[m]:=x;
end;
for i:=1 to 85 do
if a[i]<>0 then write(' a[',i,']=',a[i]);
End.

А вообще я что-то понять не могу, то у тебя до 90 (в виде константы), то до 85, ты определись.

Это типа игра=)
Ну дали задание в лотореии (в лотке) 90 шаров, из них остаются 5 или 3 шара в лотке а остальные выпадают.
Короче это Лото(ты наверно знаешь что это такое=)).

Сообщение отредактировано: BanneD - 20.01.2011 21:01