Автор: М. Э. Абрамян, 2021
AProc1. Описать процедуру SumSub(X, Y, Sum, Sub), вычисляющую сумму и разность целых чисел X и Y и возвращающую их как выходные параметры Sum и Sub. Вычислить с ее помощью сумму и разность трех данных пар чисел.
AProc2. Описать процедуру MultDiv(X, Y, M, D), вычисляющую произведение и частное вещественных чисел X и Y и возвращающую их как выходные параметры M и D. Вычислить с ее помощью произведение и частное трех данных пар чисел.
AProc3. Описать процедуру DivMod(X, Y, D, M), вычисляющую X div Y и X mod Y в переменных D, M. Вычислить с ее помощью частное и остаток от деления для трех данных пар чисел.
AProc4. Описать процедуру MinMax(X, Y, Min, Max), вычисляющую минимум и максимум для вещественных чисел X и Y в переменных Min и Max. Найти с ее помощью минимум и максимум для трех данных пар чисел.
AProc5. Описать процедуру Digit1of2(X, D), возвращающую первую цифру двузначного числа X как выходной параметр D. Найти с ее помощью первую цифру для трех заданных двузначных чисел.
AProc6. Описать процедуру Digit1of3(X, D), возвращающую первую цифру трехзначного числа X как выходной параметр D. Найти с ее помощью первую цифру для трех заданных трехзначных чисел.
AProc7. Описать процедуру Digit2of3(X, D), возвращающую вторую цифру трехзначного числа X как выходной параметр D. Найти с ее помощью вторую цифру для трех заданных трехзначных чисел.
AProc8. Описать процедуру DigitsOf2(X, A, B), возвращающую первую и вторую цифру двузначного числа X как выходные параметры A и B. Найти с ее помощью первую и вторую цифры для двух заданных двузначных чисел.
AProc9. Описать процедуру PowerA3(A, B), вычисляющую третью степень числа A и возвращающую ее в переменной B (A — входной, B — выходной параметр; оба параметра являются вещественными). С помощью этой процедуры найти третьи степени пяти данных чисел.
AProc10. Описать процедуру PowerA234(A, B, C, D), вычисляющую вторую, третью и четвертую степень числа A и возвращающую эти степени соответственно в переменных B, C и D (A — входной, B, C, D — выходные параметры; все параметры являются вещественными). С помощью этой процедуры найти вторую, третью и четвертую степень пяти данных чисел.
AProc11. Описать процедуру Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean = (X+Y)/2 и среднее геометрическое GMean = (X·Y)1/2 двух положительных чисел X и Y (X и Y — входные, AMean и GMean — выходные параметры вещественного типа). С помощью этой процедуры найти среднее арифметическое и среднее геометрическое для пар (A, B), (A, C), (A, D), если даны A, B, C, D.
AProc12. Описать процедуру RectPS(x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин (x1, y1, x2, y2 — входные, P и S — выходные параметры вещественного типа). С помощью этой процедуры найти периметры и площади трех прямоугольников с данными противоположными вершинами.
AProc13. Описать процедуру SortInc3(A, B, C), меняющую содержимое переменных A, B, C таким образом, чтобы их значения оказались упорядоченными по возрастанию (A, B, C — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры упорядочить по возрастанию два данных набора из трех чисел: (A1, B1, C1) и (A2, B2, C2).
AProc14. Описать процедуру SortDec3(A, B, C), меняющую содержимое переменных A, B, C таким образом, чтобы их значения оказались упорядоченными по убыванию (A, B, C — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры упорядочить по убыванию два данных набора из трех чисел: (A1, B1, C1) и (A2, B2, C2).
AProc15. Описать процедуру ShiftRight3(A, B, C), выполняющую правый циклический сдвиг: значение A переходит в B, значение B — в C, значение C — в A (A, B, C — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры выполнить правый циклический сдвиг для двух данных наборов из трех чисел: (A1, B1, C1) и (A2, B2, C2).
AProc16. Описать процедуру ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг: значение A переходит в C, значение C — в B, значение B — в A (A, B, C — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры выполнить левый циклический сдвиг для двух данных наборов из трех чисел: (A1, B1, C1) и (A2, B2, C2).