Proc38. Описать функцию Power2($$A$$, $$N$$) вещественного типа, находящую величину $$A^N$$ ($$A$$ — вещественный, $$N$$ — целый параметр) по следующим формулам: $$A^0 = 1; A^N = A*A*…*A$$ ($$N$$ сомножителей), если $$N > 0$$; $$A^N = 1/(A*A*…*A) $$($$|N|$$ сомножителей), если $$N < 0$$. С помощью этой функции найти $$A^K, A^L, A^M,$$ если даны числа $$A, K, L, …
Записи с меткой «Изучение»
Решаем задачи Абрамян на Паскале. Proc 37
Proc37. Описать функцию Power1($$A$$, $$B$$) вещественного типа, находящую величину A^B по формуле $$A^B = exp(B*ln(A))$$ (параметры $$A$$ и $$B$$ — вещественные). В случае нулевого или отрицательного параметра $$A$$ функция возвращает 0. С помощью этой функции найти степени $$A^P$$, $$B^P$$, $$C^P$$, если даны числа $$P, A, B, C$$.
Решаем задачи Абрамян на Паскале. Proc 36
Proc36. Описать функцию Fib($$N$$) целого типа, вычисляющую $$N$$-й элемент последовательности чисел Фибоначчи $$F_K$$, которая описывается следующими формулами: $$F_1 = 1,F_2 = 1, F_K = F_{K-2} + F_{K-1}, K = 3, 4, …$$ . Используя функцию Fib, найти пять чисел Фибоначчи с данными номерами $$N_1, N_2, …, N_5$$.
Решаем задачи Абрамян на Паскале. Proc 35
Proc35. Описать функцию Fact2($$N$$) вещественного типа, вычисляющую двойной факториал: $$N!! = 1*3*5*…*N$$, если $$N$$ — нечетное; $$N!! = 2*4*6*…*N$$, если $$N$$ — четное ($$N > 0$$ — параметр целого типа; вещественное возвращаемое значение используется для того, чтобы избежать целочисленного переполнения при больших значениях $$N$$). С помощью этой функции найти двойные факториалы пяти данных целых чисел.
Решаем задачи Абрамян на Паскале. Proc 34
Proc34. Описать функцию Fact($$N$$) вещественного типа, вычисляющую значение факториала $$N! = 1*2*…*N$$ ($$N > 0$$ — параметр целого типа; вещественное возвращаемое значение используется для того, чтобы избежать целочисленного переполнения при больших значениях $$N$$). С помощью этой функции найти факториалы пяти данных целых чисел.
Решаем задачи Абрамян на Паскале. Proc 33
Proc33. Описать функцию RadToDeg($$R$$) вещественного типа, находящую величину угла в градусах, если дана его величина $$R$$ в радианах ($$R$$ — вещественное число, $$0 < R < 2*\pi$$). Воспользоваться следующим соотношением: $$180^o = \pi$$ радианов. В качестве значения ? использовать 3.14. С помощью функции RadToDeg перевести из радианов в градусы пять данных углов.
Решаем задачи Абрамян на Паскале. Proc 32
Proc32. Описать функцию DegToRad($$D$$) вещественного типа, находящую величину угла в радианах, если дана его величина $$D$$ в градусах ($$D$$ — вещественное число, $$0 < D < 360$$). Воспользоваться следующим соотношением: $$180^o = \pi$$ радианов. В качестве значения $$\pi$$ использовать 3.14. С помощью функции DegToRad перевести из градусов в радианы пять данных углов.
Решаем задачи Абрамян на Паскале. Proc 31
Proc31. Описать функцию IsPalindrom($$K$$), возвращающую True, если целый параметр $$K$$ ($$> 0$$) является палиндромом (то есть его запись читается одинаково слева направо и справа налево), и False в противном случае. С ее помощью найти количество палиндромов в наборе из 10 целых положительных чисел. При описании функции можно использовать функции DigitCount и DigitN из заданий Proc29 …
Решаем задачи Абрамян на Паскале. Proc 30
Proc30. Описать функцию DigitN($$K$$, $$N$$) целого типа, возвращающую $$N$$-ю цифру целого положительного числа $$K$$ (цифры в числе нумеруются справа налево). Если количество цифр в числе $$K$$ меньше $$N$$, то функция возвращает -1. Для каждого из пяти данных целых положительных чисел $$K_1, K_2, …, K_5$$ вызвать функцию DigitN с параметром $$N$$, изменяющимся от 1 до 5.
Решаем задачи Абрамян на Паскале. Proc 29
Proc29. Описать функцию DigitCount($$K$$) целого типа, находящую количество цифр целого положительного числа $$K$$. Используя эту функцию, найти количество цифр для каждого из пяти данных целых положительных чисел.