Клёвый код — Страница 167 — Скриптописание и кодинг

Решаем задачи Абрамян на Паскале. 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$ ) и …

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

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

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

Proc11. Описать процедуру Minmax( $X$ , $Y$ ), записывающую в переменную $X$ минимальное из значений $X$ и $Y$ , а в переменную $Y$ — максимальное из этих значений ( $X$ и $Y$ — вещественные параметры, являющиеся одновременно входными и выходными). Используя четыре вызова этой процедуры, найти минимальное и максимальное изданных чисел $A$ , $B$ , $C$ , $D$ .

Задача на работу с файлами. Pascal

Дан файл целых чисел. Элементы могут принимать значения от 0 до 100 — баллы, полученные на ЕГЭ. Опишите алгоритм, который подсчитывает и выводит на экран наибольший балл среди учащихся, сдавших экзамен (получивших оценку более 25 баллов) либо вывести сообщение, что таких нет.