|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Глупый вопрос про условие цикла
В общем, над сделать так, чтобы в коде...
Код:
begin repeat a1:=random(6)+1; a2:=random(6)+1; a3:=random(6)+1; a4:=random(6)+1; a5:=random(6)+1; a6:=random(6)+1; until условие; end; a1<>a2<>a3<>a4<>a5<>a6 |
#2
|
||||
|
||||
А не проще сначала выбрать a[1], потом a[2] <> a[1], потом a[3] <> a[1] и a[3] <> a[2], и так далее?
Переведи алгоритм с русского на паскаль и все будет работать. А если учесть, что чисел 6 и переменных 6, то можно каждому присвоить числа от 1 до 6 и использовать случайное перемешивание. jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 09.05.2014 в 17:45. |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject); var a: array[1..6]of Integer; i, j, temp: Integer; begin for i := 1 to 6 do a[i] := i; for i := 1 to 6 do begin j := Random(6) + 1; temp := a[i]; a[i] := a[j]; a[j] := temp; end; |
#6
|
|||
|
|||
Цитата:
|