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 баллов) либо вывести сообщение, что таких нет.