Mix13. [For 16] Дано вещественное число А и целое число N (> 0). Используя один цикл, вывести все целые степени числа А от 1 до N.
Series12. Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести количество чисел в наборе.
Minmax 12. Дано целое число N и набор из N чисел. Найти минимальное положительное число из данного набора. Если положительные числа в наборе отсутствуют, то вывести 0.
Matrix 12. Дана матрица размера М х N. Вывести ее элементы в следующем порядке: первый столбец сверху вниз, второй столбец снизу вверх, третий столбец сверху вниз, четвертый столбец снизу вверх и т.д.
String 13. Дана строка. Подсчитать количество содержащихся в ней цифр.
Text 13. Дан непустой текстовый файл. Удалить из него первую строку.
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).
|