Вывод на экран целых чисел

[TadyT]

Помогите решить задачку:

Изобразите графически алгоритм и напишите программу, в которой на экран дисплея последовательно один за другим
распечатываются 5 чисел, целых, случайных из интервала от 1 до 35, причем все числа разные.

[Sciv]

Randomize;
for i:=1 to 5 do WriteLn(Random(36));

[Poma][a]

Sciv, есть проблема.. :

причем все числа разные

[Sciv]

Сообщение от Poma][a

Sciv, есть проблема.. :

"Ой, это как нибудь без меня" (с) Ромаха

тем более что вот тут Виталий уже решил похожую задачу:

http://programmersforum.ru/showthread.php?t=225499

[Serge_Bliznykov]

+ код в пост #2 выдаёт числа от 0 до 35
правильно получать случайные числа от 1 до 35, конечно:

Random(35)+1

целиком код для решения этой простенькой задачи может выглядеть так:

const N=5;
var 
 mas : array[1..N] of integer;
 i,  k, L : integer;
 wasBefore : boolean;
begin
  Randomize;
  mas[1] := Random(35)+1;
  for i:=2 to N do begin
      repeat
        L := Random(35)+1;
        wasBefore := false;
        for k:=1 to i-1 do
           if mas[k]=L then begin 
                wasBefore := true; 
                break
           end;
     until not wasBefore;
     mas[i] := L;
  end;    

  {выдача полученных чисел}
  for i:=1 to N do Write(mas[i]:3,' ');
  WriteLn;
  Reaadln;
end.

[Sciv]

+ код в пост #2 выдаёт числа от 0 до 35

Согласен, моя ошибка.

[s-andriano]

1. Строго говоря, исходное условие несовместимо, т.к. случайность противоречит требованию, чтобы числа не повторялись.
2. Если же требуются не случайные числа, а числа из диапазона в случайном порядке, то и генерировать эту последовательность нужно соответствующим образом:
- сначала заполнить массив нужной длины (в данном случае 35) последовательными числами,
- затем перемешать эти числа (random используется именно на этапе перемешивания).

[Poma][a]

s-andriano,

- сначала заполнить массив нужной длины (в данном случае 35) последовательными числами,
- затем перемешать эти числа (random используется именно на этапе перемешивания).

Хорошо, допустим, сделали всё по Вашему алгоритму. Как далее выбрать 5 разных элементов массива?
Если a[1], a[2], a[3], etc, или a[32], a[1], a[3], a[22]..
То эти числа будут не просто "псевдослучайными", а "псевдопсевдослучайными"..

Я полностью одобряю вариант Сержа..

[Serge_Bliznykov]

Poma][a, не горячитесь можно поступить и так, как предложил s-andriano
есть случаи, когда это единственно реально работающий подход (ну, например, тасование колоды карт). В данном случае (когда нужно 5 чисел в диапазоне от 1 до 35), мой вариант с запоминанием предыдущих вариантов, мне лично кажется более простым и эффективным.
Но и вариант с заполнением массива, правильным (см. форум тут) тасованием, и выборкой 5 первых элементов НЕ ХУЖЕ!!!

[Poma][a]

не горячитесь

Даже в мыслях не было.. Надо было смайликов наставить

Серж, соль в том что про тасование карт я ПОЛНОСТЬЮ согласен.. (Помню была такая темка с подобной задачей, я тупо random'ил, потом кто-то (уж не помню кто) открыл мне тайну этого способа..)
Но тут, мне кажется, другая песня.. Мы должны вывести не ВСЕ элементы массива, а только 5.. Поэтому будет не хорошо выводить какие-то определенные элементы массива каждый раз: только 1, 3, n, etc.. => в данном случаем этот вариант не годится.. (ИМХО)