Recur13. Описать рекурсивную функцию P_Alindrom($$S$$) логического типа, возвращающую True, если строка $$S$$ является палиндромом (то есть читается одинаково слева направо и справа налево), и False в противном случае. Оператор цикла в теле функции не использовать. Вывести значения функции P_Alindrom для пяти данных строк.
Записи с меткой «Новичкам»
Решаем задачи Абрамян на Паскале. Param23
Param23. Описать процедуру SwapRow($$A$$, $$M$$, $$N$$, $$K_1$$, $$K_2$$), осуществляющую перемену местами строк вещественной матрицы $$A$$ размера $$M \times N$$ с номерами $$K_1$$ и $$K_2$$. Матрица $$A$$ является входным и выходным параметром; если $$K_1$$ или $$K_2$$ больше $$M$$, то матрица не изменяется. Используя эту процедуру, поменять для данной матрицы $$A$$ размера $$M \times N$$ строки с …
Решаем задачи Абрамян на Паскале. Recur12
Recur12. Описать рекурсивную функцию DigitCount($$S$$) целого типа, которая находит количество цифр в строке $$S$$, не используя оператор цикла. С помощью этой функции найти количество цифр в каждой из пяти данных строк.
Решаем задачи Абрамян на Паскале. Param22
Param22. Описать функцию SumCol($$A$$, $$M$$, $$N$$, $$K$$) вещественного типа, вычисляющую сумму элементов вещественной матрицы $$A$$ размера $$M \times N$$, расположенных в $$K$$-м столбце (если $$K>N$$, то функция возвращает $$0$$). Для данной матрицы $$A$$ размера $$M \times N$$ и трех данных $$K$$ найти SumCol($$A$$, $$M$$, $$N$$, $$K$$).
Решаем задачи Абрамян на Паскале. Recur11
Recur11. Описать рекурсивную функцию MaxInt($$A$$, $$N$$) целого типа, которая находит максимальный элемент целочисленного массива $$A$$ размера $$N$$ $$(1 \le N \le 10)$$, не используя оператор цикла. С помощью этой функции найти максимальные элементы массивов $$A$$, $$B$$, $$C$$ размера $$N_A$$, $$N_B$$, $$N_C$$ соответственно.
Решаем задачи Абрамян на Паскале. Param21
Param21. Описать функцию SumRow($$A$$, $$M$$, $$N$$, $$K$$) вещественного типа, вычисляющую сумму элементов вещественной матрицы $$A$$ размера $$M \times N$$, расположенных в $$K$$-й строке (если $$K>M$$, то функция возвращает $$0$$). Для данной матрицы $$A$$ размера $$M \times N$$ и трех данных $$K$$ найти SumRow($$A$$, $$M$$, $$N$$, $$K$$).
Решаем задачи Абрамян на Паскале. Param20
Param20. Описать функцию Norm2($$A$$, $$M$$, $$N$$) вещественного типа, вычисляющую норму вещественной матрицы $$A$$ размера $$M \times N$$: Norm2($$A$$, $$M$$, $$N$$)=$$max {|A_{I,1}|+|A_{I,2}| +…+ |A_{I,N}|}$$, где максимум берется по всем $$I$$. от $$1$$ до $$M$$. Для данной матрицы $$A$$ размера $$M \times N$$ найти Norm2($$A$$, $$K$$, $$N$$), $$K=1,…, M$$.
Решаем задачи Абрамян на Паскале. Recur10
Recur10. Описать рекурсивную функцию DigitSum($$K$$) целого типа, которая находит сумму цифр целого числа $$K$$, не используя оператор цикла. С помощью этой функции найти суммы цифр для пяти данных целых чисел.
Решаем задачи Абрамян на Паскале. Param19
Param19. Описать функцию Norm1($$A$$, $$M$$, $$N$$) вещественного типа, вычисляющую норму вещественной матрицы $$A$$ размера $$M \times N$$: Norm1($$A$$, $$M$$, $$N$$)=$$max {|A_{1,J}|+|A_{2,J}| +…+ |A_{M,J}|}$$, где максимум берется по всем $$J$$ от $$1$$ до $$N$$. Для данной матрицы $$A$$ размера $$M \times N$$ найти Norm1($$A$$, $$K$$, $$N$$), $$K=1,…, M$$.
Решаем задачи Абрамян на Паскале. Recur9
Recur9. Описать рекурсивную функцию NOD($$A$$, $$B$$) целого типа, находящую наибольший общий делитель (НОД) двух натуральных чисел $$A$$ и $$B$$, используя алгоритм Евклида: НОД($$A$$, $$B$$)=НОД($$B$$, $$A$$ mod $$B$$), если $$B \ne 0$$;НОД($$A$$, $$0$$)=$$A$$. С помощью этой функции найти НОД($$A$$, $$B$$), НОД($$A$$, $$C$$), НОД($$A$$, $$D$$), если даны числа $$A$$, $$B$$, $$C$$, $$D$$.