Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c
15-1143440491
Ega23
2006-03-27 10:21
2006.04.16
С Днём рождения! 26 марта


15-1142807778
Bogdan1024
2006-03-20 01:36
2006.04.16
Агрессивные вегетарианцы


2-1143993100
SamProf
2006-04-02 19:51
2006.04.16
Как запустить службу?


15-1143467965
oldman
2006-03-27 17:59
2006.04.16
Как может поссорить ся контролер с винтом?


1-1141998060
MixAnOL
2006-03-10 16:41
2006.04.16
DoubleBuffered:=true




   Наверх