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

Вниз

Сотрировка страниц для печати   Найти похожие ветки 

 
tol   (2007-01-10 17:11) [0]

Помогите найти действующий алгоритм, сидел несколько часов, уже голову сломал, но не нашел универсальный метод. Задача такая: Есть несколько файлов на печать. Нужно разделить их на секции следующим образом: в простейшем случае, две секции:

1->A1
2->B1
3->B2
4->A2

Тоже 2 секции, но для 12 файлов:

1->A1
2->A2
3->A3
4->B1
5->B2
6->B3
7->B4
8->B5
9->B6
10-A4
11->A5
12->A6

Если, например, 16 файлов и 4 секции:

1->A1
2->A2
3->B1
4->B2
5->C1
6->C2
7->D1
8->D2
9->D3
10->D4
11->C3
12->C4
13->B3
14->B4
15->A3
16->A4

На вход функции может подаваться порядковый номер файла, общее количество файлов  и количество нужных секций, на выходе – строка  вида "буква+цифра". Если не сложно, подскажите как реализовать это на Дельфи, пожалуйста.


 
MBo ©   (2007-01-10 18:13) [1]


procedure TForm1.Button4Click(Sender: TObject);
var
 NS, NF, i, j, MN: Integer;
 ch: Char;
begin
 NS := 4;
 NF := 16;
 MN := NF div NS;
 for i := 0 to NS -1 do begin
   ch := Chr(Ord("A") + i);
   for j := 1 to MN div 2 do
     Memo1.Lines.Add(ch + IntToStr(j));
 end;
 for i := NS -1 downto 0 do begin
   ch := Chr(Ord("A") + i);
   for j := MN div 2 + 1 to MN do
     Memo1.Lines.Add(ch + IntToStr(j));
 end;
end;



 
tol   (2007-01-10 20:37) [2]

Спасибо! Прекрасное решение - простое и  универсальное!



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

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

Наверх




Память: 0.47 MB
Время: 0.076 c
15-1170858646
Desdechado
2007-02-07 17:30
2007.03.04
Вопрос знатокам Миранды


15-1170638722
Lex_!
2007-02-05 04:25
2007.03.04
.Net Framework 2 и выше в Delphi


15-1171047425
vasIZmax
2007-02-09 21:57
2007.03.04
Глупый вопрос...


2-1171291224
Sapos
2007-02-12 17:40
2007.03.04
Сохранение в файл


15-1170847641
WondeRu
2007-02-07 14:27
2007.03.04
Как правильно оформлять гиперссылки...