| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
random,textfile, дипломная работа [D7, WinXP]
Vainu © (2012-06-05 03:44:00)Добрый день. Сам я не программист, но пришлось столкнуться с одной задачей в процессе написания диплома. Очень прошу помочь, так как собственных знаний не хватает.
В общем, имеется текстовый файл с 2000 страницами. Требуется составить пакет(текстовый файл) P1 укомплектованный 50 страницами, случайным образом извлеченными из общего числа в 2000 страниц. В пакет Pk, k = 2, …,40, включить 50k страниц, из которых 50(k - 1) – те же, что и в пакете Pk-1, и еще 50 дополнительных извлечены случайным образом из числа оставшихся 2000 - 50(k - 1) страниц. Последний пакет P40 долзжен включать в себя все подготовленные к обработке экспериментальные данные, т.е. 2000 страниц.
Буду признателен любой помощи.
MBo (2012-06-05 14:45:00) [1]насчёт перемешивания - да, это указанный алгоритм
Vainu (2012-06-05 06:24:00) [2]Вы имеете в виду
for i := N - 1 downto 1 do begin
temp := A[i];
j := Random(i + 1); // целое в диапазоне 0..i включительно
A[i] := A[j];
A[j] := temp;
end;
MBo (2012-06-05 05:44:00) [3]Перемешать все страницы, например, с помощью алгоритма Fisher-Yates.
В первый файл записать 50 первых страниц из перемешанного списка, во второй - 100 и так далее
| |
