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$$. Используя эту функцию, найти количество цифр для каждого из пяти данных целых положительных чисел.
Решаем задачи Абрамян на Паскале. Proc 28
Proc28. Описать функцию IsPrime($$N$$) логического типа, возвращающую True, если целый параметр $$N$$ ($$> 1$$) является простым числом, и False в противном случае (число, большее 1, называется простым, если оно не имеет положительных делителей, кроме 1 и самого себя). Дан набор из 10 целых чисел, больших 1. С помощью функции IsPrime найти количество простых чисел в …
Решаем задачи Абрамян на Паскале. Proc 27
Proc27. Описать функцию IsPowerN($$K$$, $$N$$) логического типа, возвращающую True, если целый параметр $$K$$ ($$> 0$$) является степенью числа $$N$$ ($$> 1$$), и False в противном случае. Дано число $$N$$ ($$> 1$$) и набор из 10 целых положительных чисел. С помощью функции IsPowerN найти количество степеней числа $$N$$ в данном наборе.
Решаем задачи Абрамян на Паскале. Proc 26
Proc26. Описать функцию IsPower5($$K$$) логического типа, возвращающую True, если целый параметр $$K$$ ($$> 0$$) является степенью числа 5, и False в противном случае. С ее помощью найти количество степеней числа 5 в наборе из 10 целых положительных чисел.