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$$) и …