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$$.
Решаем задачи Абрамян на Паскале. Param18
Param18. Описать процедуру Chessboard($$M$$, $$N$$, $$A$$), формирующую по целым положительным числам $$M$$ и $$N$$ матрицу $$A$$ размера $$M \times N$$, которая содержит числа $$0$$ и $$1$$, расположенные в «шахматном» порядке, причем $$A_{1,1}=0$$. Двумерный целочисленный массив $$A$$ является выходным параметром. С помощью этой процедуры по данным целым числам $$M$$ и $$N$$ сформировать матрицу $$A$$ размера $$M …
Решаем задачи Абрамян на Паскале. Recur8
Recur8. Описать рекурсивную функцию RootK($$X$$, $$K$$, $$N$$) вещественного типа, находящую приближенное значение корня $$K$$-й степени из числа $$X$$ по формуле: $$Y_0=1$$,$$Y_{N+1}=Y_N — (Y_N — X/(Y_N)^{K-1})/K$$, где $$Y_N$$ обозначает RootK($$X$$, $$K$$, $$N$$) при фиксированных $$X$$ и $$K$$. Параметры функции: $$X$$ $$(>0)$$ — вещественное число, $$K$$ $$(>1)$$ и $$N$$ $$(>0)$$ — целые. С помощью функции RootK найти …
Решаем задачи Абрамян на Паскале. File89
File89. Даны два файла вещественных чисел с именами $$S_A$$ и $$S_B$$, содержащие ненулевые части верхнетреугольных матриц $$A$$ и $$B$$ (по строкам). Создать новый файл с именем $$S_C$$, содержащий ненулевую часть произведения $$A*B$$ (по строкам). Если матрицы $$A$$ и $$B$$ нельзя перемножать, то оставить файл $$S_C$$ пустым.
Решаем задачи Абрамян на Паскале. Param17
Param17. Описать процедуру ArrayToMatrix2($$A$$, $$K$$, $$M$$, $$N$$, $$B$$), формирующую по вещественному массиву $$A$$ размера $$K$$ матрицу $$B$$ размера $$M \times N$$ (матрица заполняется элементами массива $$A$$ по столбцам). «Лишние» элементы массива игнорируются; если элементов массива недостаточно, то оставшиеся элементы матрицы полагаются равными $$0$$. Двумерный массив $$B$$ является выходным параметром. С помощью этой процедуры на основе …
Решаем задачи Абрамян на Паскале. File90
File90. Даны два файла вещественных чисел с именами $$S_A$$ и $$S_B$$, содержащие ненулевые части нижнетреугольных матриц $$A$$ и $$B$$ (по строкам). Создать новый файл с именем $$S_C$$, содержащий ненулевую часть произведения $$A*B$$ (по строкам). Если матрицы $$A$$ и $$B$$ нельзя перемножать, то оставить файл $$S_C$$ пустым.
Решаем задачи Абрамян на Паскале. Recur7
Recur7. Описать рекурсивную функцию CombiN_2($$N$$, $$K$$) целого типа, находящую $$C(N, K)$$- число сочетаний из $$N$$ элементов по $$K$$ — с помощью рекуррентного соотношения: $$C(N, 0)=C(N, N)=1$$, $$C(N, K)=C(N — 1, K)+C(N — 1, K — 1)$$ при $$0<K<N$$. Параметры функции — целые числа; $$N>0$$, $$0 \le K \le N$$. Считать, что параметр $$N$$ не превосходит …
Решаем задачи Абрамян на Паскале. File88
File88. Дан файл вещественных чисел, содержащий ненулевую часть трехдиагональной матрицы (по строкам). Создать новый файл, содержащий все элементы данной матрицы (по строкам).