Изучение — Страница 162

Решаем задачи Абрамян на Паскале. 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 целых положительных чисел.

Решаем задачи Абрамян на Паскале. Proc 25

Proc25. Описать функцию IsSquare( $K$ ) логического типа, возвращающую True, если целый параметр $K$ ( $> 0$ ) является квадратом некоторого целого числа, и False в противном случае. С ее помощью найти количество квадратов в наборе из 10 целых положительных чисел.

Решаем задачи Абрамян на Паскале. Proc 23

Proc23. Описать функцию Quarter( $x$ , $y$ ) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами ( $x$ , $y$ ). С помощью этой функции найти номера координатных четвертей для трех точек с данными ненулевыми координатами.

Решаем задачи Абрамян на Паскале. Proc 22

Proc22. Описать функцию Calc( $A$ , $B$ , $Op$ ) вещественного типа, выполняющую над ненулевыми вещественными числами $A$ и $B$ одну из арифметических операций и возвращающую ее результат. Вид операции определяется целым параметром $Op$ : 1 — вычитание, 2 — умножение, 3 — деление, остальные значения — сложение. С помощью $Calc$ выполнить для данных $A$ и $B$ операции, определяемые данными …

Решаем задачи Абрамян на Паскале. Proc 21

Proc21. Описать функцию SumRange( $A$ , $B$ ) целого типа, находящую сумму всех целых чисел от $A$ до $B$ включительно ( $A$ и $B$ — целые). Если $A > B$ , то функция возвращает 0. С помощью этой функции найти суммы чисел от $A$ до $B$ и от $B$ до $C$ , если даны числа $A, B, C$ .

Решаем задачи Абрамян на Паскале. Proc 19

Proc19. Описать функцию RingS( $R_1$ , $R_2$ ) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром и радиусами $R_1$ и $R_2$ ( $R_1$ и $R_2$ — вещественные, $R_1 > R_2$ ). С ее помощью найти площади трех колец, для которых даны внешние и внутренние радиусы. Воспользоваться формулой площади круга радиуса $R$ : $S = \pi*R^2$ . В качестве …

Решаем задачи Абрамян на Паскале. Proc 16

Proc16. Описать функцию Sign( $X$ ) целого типа, возвращающую для вещественного числа $X$ следующие значения: -1, если $X < 0$ ; 0, если $X = 0$ ; 1, если $X > 0$ . С помощью этой функции найти значение выражения Sign( $A$ ) + Sign( $B$ ) для данных вещественных чисел $A$ и $B$ .

Решаем задачи Абрамян на Паскале. Proc 15

Proc15. Описать процедуру ShiftLeft3( $A$ , $B$ , $C$ ), выполняющую левый циклический сдвиг: значение $A$ переходит в $C$ , значение $C$ — в $B$ , значение $B$ — в $A$ ( $A$ , $B$ , $C$ — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры выполнить левый циклический сдвиг для двух данных наборов из трех чисел: ( $A_1$ , $B_1$ , $C_1$ ) и …