Описание переменных
В разделе описаний программы осуществляется подключение модуля crt, который необходим для использования функции clrscr (очистка содержимого экрана вывода).
В разделе описания типов приведено два типа:
Arr = array[1..20] of integer; - будет использоваться для задания исходного массива
Arr2=array[1..1000,0..20] of byte – будет использоваться для хранения сгенерированных сочетаний
Первая размерность будет задавать номер сочетания, а вторая – номера элементов в конкретном сочетании.
Также в разделе описаний переменных описаны переменные, назначение которых приведено в таблице 3.1.
Таблица 3.1– Описание переменных программы
| Наименование | Тип | Назначение |
| N | integer | задается пользователем и хранит длину последовательности чисел |
| K | integer | переменная, которая задается пользователем и на которую должна делиться искомая сумма без остатка |
| Chisla | Arr | массив из 20 целых чисел. Массив (или его часть) заполняется пользователем и хранит обрабатываемую последовательность целых чисел |
| Idx | Arr | массив, в котором хранятся сгенерированные сочетания. Каждая строка задает отдельное сочетание (позиции элементов в массиве Chisla) |
| i, j | integer | временные переменные, необходимые для организации циклов при переборе элементов последовательности |
| m | integer | переменная, необходимая для организации цикла по количеству элементов в сочетании |
| kol | integer | переменная, которая хранит количество сочетаний, сгенерированных на текущем цикле по m |
| fnd | boolean | логическая переменная, которая используется как флаг, найдена ли искомая сумма (true - если найдена) |
| tf | text | переменная текстового файла, используется для сохранения результатов работы в текстовом файле |
| S | string | строковая переменная, используемая для формирования строки вывода с составленным сочетанием и суммой |
| St | string | вспомогательная строковая переменная, используемая в функциях преобразования целых чисел в строку |
Описание вспомогательных процедур и функций
В программе приведено описание одной вспомогательной процедуры и одной функции.
Процедура Info(var ft:TEXT) предназначена для вывода вспомогательной информации о программе и о задании на курсовую работу. Следует заметить, что процедура дублирует вывод информации на экран монитора и в текстовый файл с результатами выполнения программы. При этом, параметр ft:TEXT как раз и задает файл, в который осуществляется вывод. Условием применения данной процедуры является то, что перед вызовом процедуры файловой переменной ft должно быть назначено имя физического файла на жестком диске при помощи процедуры ASSIGN. Кроме того, файл предварительно должен быть открытым для записи при помощи функции REWRITE. Текст процедуры приведен в строках 15-35.
Процедура GenerateSochet(var Sochet:Arr2;n,m:integer;var kol:integer) предназначена для генерации сочетаний из n натуральных чисел от 1 до N по m.
Сгенерированные последовательности будут возвращаться через параметр Sochet.
Параметр N задает количество чисел из которых следует выбирать сочетания.
Параметр M задает по сколько чисел участвует в одном сочетании.
Через параметр KOL будет возвращено общее количество сгенерированных сочетаний.
То есть в выходном мас сиве Sochet следует просмотреть строки от 1 до KOL это и будут сочетания, причем в каждой строке следует анализировать только элементы от 1 до m.
Алгоритм генерации сочетаний приведен на рисунке А.1 приложения А. Код процедуры приведен в строках 49 -70 приложения Б.
Генерация сочетаний выполняется по следующем правилу:
1. Начальное сочетание образует последовательность 1, 2,.. m, а последнее n-m+1,…,n.
2. Переход к следующему сочетанию осуществляется по следующему правилу: требуется просмотреть текущее сочетание с конца и найти элемент, который можно увеличить. То есть такой элемент что Sochet[kol,i] <> n-m+i. Далее увеличиваем этот элемент на 1, а оставшуюся часть сочетания заполняем числами натурального ряда большими измененного элемента в порядке их следования.
Функция Summ(Chisla:Arr;Idxs:Arr2;m,nom:integer):integer
предназначена для определения суммы чисел соответствующего сочетания, где:
Chisla – масив исходных чисел, которые будут суммироваться;
Idxs – массив сгенерированных сочетаний (содержит только номера позиций);
M – количество элементов в сочетании;
NOM – номер сочетания из массива Idxs, сумму которого нужно найти.
В функции будет анализироваться строка NOM массива Idxs, точнее не вся строка, а только первые M элементов. Эти элементы задают номера чисел в массиве Chsila, которые нужно просуммировать.
Алгоритм выполнения описанных действий приведен на рисунке А.2 приложения А, а код функции приведен в строках 36-48 приложения Б.