Доброго времени суток!
Решил все задачки кроме этих:
Param 12. Описать процедуру SortIndex(A, N, I), формирующую для вещественного массива А размера N индексный массив I — массив целых чисел того же размера, содержащий номера элементов массива А в том порядке, который соответствует возрастанию элементов массива А (сам массив А при этом не изменяется). Индексный массив I является выходным параметром. С помощью этой процедуры создать индексные массивы для массивов А, В, С размера NA, NB, NC соответственно.
Recur l3. Описать рекурсивную функцию Palindrom(S) логического типа, возвращающую TRUE, если строка S является палиндромом (то есть читается одинаково слева направо и справа налево), и FALSE в противном случае. Оператор цикла в теле функции не использовать. Вывести значения функции Palindrom для пяти данных строк.
Dynamic12. Дан указатель Р1 на вершину стека, содержащего не менее пяти элементов. Используя тип TStack (см. задание Dynamicll), описать функцию Рор(S) целого типа, которая извлекает из стека S первый (верхний) элемент, возвращает его значение и освобождает память, которую занимал извлеченный элемент (S — входной и выходной параметр типа TStack). С помощью функции Pop извлечь из исходного стека пять элементов и вывести их значения. Вывести также указатель на новую вершину стека (если результирующий стек окажется пустым, то этот указатель должен быть равен NIL).
Помогите кто чем сможет.!
|