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).