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

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

Proc10. Описать процедуру Swap( $X$ , $Y$ ), меняющую содержимое переменных $X$ и $Y$ ( $X$ и $Y$ — вещественные параметры, являющиеся одновременно входными и выходными). С ее помощью для данных переменных $A$ , $B$ , $C$ , $D$ последовательно поменять содержимое следующих пар: $A$ и $B$ , $C$ и $D$ , $B$ и $C$ и вывести новые значения $A$ , $B$ , $C$ , $D$ .

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

Proc9. Описать процедуру AddLeftDigit( $D$ , $K$ ), добавляющую к целому положительному числу $K$ слева цифру $D$ ( $D$ — входной параметр целого типа, лежащий в диапазоне 1-9, $K$ — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры последовательно добавить к данному числу $K$ слева данные цифры $D_1$ и $D_2$ , выводя результат каждого добавления.

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

Proc6. Описать процедуру DigitCountSum( $K$ , $C$ , $S$ ), находящую количество $C$ цифр целого положительного числа $K$ , а также их сумму $S$ ( $K$ — входной, $C$ и $S$ — выходные параметры целого типа). С помощью этой процедуры найти количество и сумму цифр для каждого из пяти данных целых чисел.

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

Proc5. Описать процедуру RectPS( $x_1$ , $y_1$ , $x_2$ , $y_2$ , $P$ , $S$ ), вычисляющую периметр $P$ и площадь $S$ прямоугольника со сторонами, параллельными осям координат, по координатам $(x1, y1), (x2, y2)$ его противоположных вершин ( $x1$ , $y1$ , $x2$ , $y2$ — входные, $P$ и $S$ — выходные параметры вещественного типа). С помощью этой процедуры найти периметры и площади трех прямоугольников с …

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

Proc4. Описать процедуру TrianglePS( $a$ , $P$ , $S$ ), вычисляющую по стороне a равностороннего треугольника его периметр $P = 3*a$ и площадь $S = a^2*\sqrt{3}/4$ ( $a$ — входной, $P$ и $S$ — выходные параметры; все параметры являются вещественными). С помощью этой процедуры найти периметры и площади трех равносторонних треугольников с данными сторонами.

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

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

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

Proc3. Описать процедуру Mean( $X$ , $Y$ , $AMean$ , $GMean$ ), вычисляющую среднее арифметическое $AMean = (X + Y)/2$ и среднее геометрическое $GMean = \sqrt{X * Y}$ двух положительных чисел $X$ и $Y$ ( $X$ и $Y$ — входные, $AMean$ и $GMean$ — выходные параметры вещественного типа). С помощью этой процедуры найти среднее арифметическое и среднее геометрическое для пар $$(A, …

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

Proc1. Описать процедуру PowerA3( $A$ , $B$ ), вычисляющую третью степень числа $A$ и возвращающую ее в переменной $B$ ( $A$ — входной, $B$ — выходной параметр; оба параметра являются вещественными). С помощью этой процедуры найти третьи степени пяти данных чисел.

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

Series40. Дано целое число $K$ , а также $K$ наборов ненулевых целых чисел. Каждый набор содержит не менее трех элементов, признаком его завершенияявляется число 0. Для каждого набора выполнить следующее действие: если набор является пилообразным (см. задание Series23), то вывести количество его элементов; в противном случае вывести номер первого элемента, который не является зубцом.

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

Series39. Дано целое число $K$ , а также $K$ наборов ненулевых целых чисел. Каждый набор содержит не менее трех элементов, признаком его завершения является число 0. Найти количество пилообразных наборов (определение пилообразного набора дано в задании Series23).