Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

Последовательность чисел   Найти похожие ветки 

 
User_OKA   (2006-04-03 19:04) [0]

Как сгенерировать всю последовательность чисел от 1 до 10?Каждое число должно быть сгенерировано один и только один раз.


 
Джо ©   (2006-04-03 19:04) [1]

for I := 1 to 10 do


 
Yanis ©   (2006-04-03 19:05) [2]


var
 i: Integer;
begin
 for i := 1 to 10 do ...
end;

?


 
Yanis ©   (2006-04-03 19:05) [3]

2 Джо
Редиска :P


 
Джо ©   (2006-04-03 19:06) [4]

> [3] Yanis ©   (03.04.06 19:05)
> Редиска :P

Ты не переживай, сейчас появится автор и скажет, что он имел в виду "нечто совсем иное" :)


 
_lol_   (2006-04-03 19:10) [5]

OPEX =)


 
Virgo_Style ©   (2006-04-03 19:17) [6]

Телепатор подсказывает, что числа должны быть случайно перемешаны. Если так, то создать массив, заполнить For i:=1 to 10 do A[i]:=i; далее перемешать (менять местами случайно выбранные элементы)


 
User_OKA   (2006-04-03 20:48) [7]

Есть последовательность 1,2,3
Получаем:
1,2,3
1,3,2
2,1,3
2,3,1
3,1,2
3,2,1
Нужно получить неповторяющиеся последовательности чисел для последовательности 1,2,3,4,5,6,7,8,9,10


 
Джо ©   (2006-04-03 21:00) [8]

> [7] User_OKA   (03.04.06 20:48)

http://algolist.manual.ru/maths/combinat/index.php


 
User_OKA   (2006-04-03 21:14) [9]

Спасибо Джо.

А для первого моего вопроса самое, то
for I := 1 to 10 do
можно в орешник.

Как можно было так вопрос сформулировать и сам не знаю.



Страницы: 1 вся ветка

Текущий архив: 2006.04.16;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.047 c
2-1143632624
apic
2006-03-29 15:43
2006.04.16
Уважаемые мастера, ПАМАГИТЕ!!!!!!!!!!!!!


15-1143209827
oldman
2006-03-24 17:17
2006.04.16
Хорошее дело не остается безнаказанныи...


15-1143014943
cyborg
2006-03-22 11:09
2006.04.16
Есть желающие попрактиковаться?


2-1144224832
Алексей1
2006-04-05 12:13
2006.04.16
Установка ориентации альбомной при печати.


2-1143795433
Alex7
2006-03-31 12:57
2006.04.16
Обращение к переменной Public