Процедуры и функции: группа Proc

Процедуры с числовыми параметрами

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

Решение задачи, на языке: Паскаль, C

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

Решение задачи, на языке: Паскаль, C

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

Решение задачи, на языке: Паскаль, C, Phyton3

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

Решение задачи, на языке: Паскаль, C, Кумир

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

Решение задачи, на языке: Паскаль, C, C++

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

Решение задачи, на языке: Паскаль, C, Кумир

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

Решение задачи, на языке: Паскаль, C, Кумир, Phyton3

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

Решение задачи, на языке: Паскаль, C, C++

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

Решение задачи, на языке: Паскаль, C, Кумир

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

Решение задачи, на языке: Паскаль, C

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

Решение задачи, на языке: Паскаль, C

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

Решение задачи, на языке: Паскаль, C, C++

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

Решение задачи, на языке: Паскаль, C, Phyton3

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

Решение задачи, на языке: Паскаль, C, Кумир

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

Решение задачи, на языке: Паскаль, C, Кумир

Функции с числовыми параметрами

Proc16. Описать функцию Sign( $X$ ) целого типа, возвращающую для вещественного числа $X$ следующие значения: -1, если $X < 0$ ; 0, если $X = 0$ ; 1, если $X > 0$ . С помощью этой функции найти значение выражения Sign( $A$ ) + Sign( $B$ ) для данных вещественных чисел $A$ и $B$ .

Решение задачи, на языке: Паскаль, C, Кумир

Proc17. Описать функцию RootsCount( $A$ , $B$ , $C$ ) целого типа, определяющую количество корней квадратного уравнения $A*x^2 + B*x + C = 0$ ( $A$ , $B$ , $C$ — вещественные параметры, $A \not= 0$ ). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. Количество корней определять по значению дискриминанта: $D = B^2 — 4*A*C$ .

Решение задачи, на языке: Паскаль, C, C++, Phyton3

Proc18. Описать функцию CircleS( $R$ ) вещественного типа, находящую площадь круга радиуса $R$ ( $R$ — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса $R$ вычисляется по формуле $S = \pi*R^2$ . В качестве значения $\pi$ использовать 3.14.

Решение задачи, на языке: Паскаль, C, Phyton3

Proc19. Описать функцию RingS( $R_1$ , $R_2$ ) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром и радиусами $R_1$ и $R_2$ ( $R_1$ и $R_2$ — вещественные, $R_1 > R_2$ ). С ее помощью найти площади трех колец, для которых даны внешние и внутренние радиусы. Воспользоваться формулой площади круга радиуса $R$ : $S = \pi*R^2$ . В качестве значения $\pi$ использовать 3.14.

Решение задачи, на языке: Паскаль, C

Proc20. Описать функцию TriangleP( $a$ , $h$ ), находящую периметр равнобедренного треугольника по его основанию a и высоте h, проведенной к основанию ( $a$ и $h$ — вещественные). С помощью этой функции найти периметры трех треугольников, для которых даны основания и высоты. Для нахождения боковой стороны $b$ треугольника использовать теорему Пифагора: $b^2 = (a/2)^2 + h^2$ .

Решение задачи, на языке: Паскаль, C

Proc21. Описать функцию SumRange( $A$ , $B$ ) целого типа, находящую сумму всех целых чисел от $A$ до $B$ включительно ( $A$ и $B$ — целые). Если $A > B$ , то функция возвращает 0. С помощью этой функции найти суммы чисел от $A$ до $B$ и от $B$ до $C$ , если даны числа $A, B, C$ .

Решение задачи, на языке: Паскаль, C, Кумир

Proc22. Описать функцию Calc( $A$ , $B$ , $Op$ ) вещественного типа, выполняющую над ненулевыми вещественными числами $A$ и $B$ одну из арифметических операций и возвращающую ее результат. Вид операции определяется целым параметром $Op$ : 1 — вычитание, 2 — умножение, 3 — деление, остальные значения — сложение. С помощью $Calc$ выполнить для данных $A$ и $B$ операции, определяемые данными целыми $N_1$ , $N_2$ , $N_3$ .

Решение задачи, на языке: Паскаль, C, Phyton3

Proc23. Описать функцию Quarter( $x$ , $y$ ) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами ( $x$ , $y$ ). С помощью этой функции найти номера координатных четвертей для трех точек с данными ненулевыми координатами.

Решение задачи, на языке: Паскаль, C

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

Решение задачи, на языке: Паскаль, C

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

Решение задачи, на языке: Паскаль, C, С++

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

Решение задачи, на языке: Паскаль, C, С++, Кумир

Proc27. Описать функцию IsPowerN( $K$ , $N$ ) логического типа, возвращающую True, если целый параметр $K$ ( $> 0$ ) является степенью числа $N$ ( $> 1$ ), и False в противном случае. Дано число $N$ ( $> 1$ ) и набор из 10 целых положительных чисел. С помощью функции IsPowerN найти количество степеней числа $N$ в данном наборе.

Решение задачи, на языке: Паскаль, C

Proc28. Описать функцию IsPrime( $N$ ) логического типа, возвращающую True, если целый параметр $N$ ( $> 1$ ) является простым числом, и False в противном случае (число, большее 1, называется простым, если оно не имеет положительных делителей, кроме 1 и самого себя). Дан набор из 10 целых чисел, больших 1. С помощью функции IsPrime найти количество простых чисел в данном наборе.

Решение задачи, на языке: Паскаль, C, Phyton3

Proc29. Описать функцию DigitCount( $K$ ) целого типа, находящую количество цифр целого положительного числа $K$ . Используя эту функцию, найти количество цифр для каждого из пяти данных целых положительных чисел.

Решение задачи, на языке: Паскаль, C, Кумир

Proc30. Описать функцию DigitN( $K$ , $N$ ) целого типа, возвращающую $N$ -ю цифру целого положительного числа $K$ (цифры в числе нумеруются справа налево). Если количество цифр в числе $K$ меньше $N$ , то функция возвращает -1. Для каждого из пяти данных целых положительных чисел $K_1, K_2, …, K_5$ вызвать функцию DigitN с параметром $N$ , изменяющимся от 1 до 5.

Решение задачи, на языке: Паскаль, C, Кумир

Proc31. Описать функцию IsPalindrom( $K$ ), возвращающую True, если целый параметр $K$ ( $> 0$ ) является палиндромом (то есть его запись читается одинаково слева направо и справа налево), и False в противном случае. С ее помощью найти количество палиндромов в наборе из 10 целых положительных чисел. При описании функции можно использовать функции DigitCount и DigitN из заданий Proc29 и Proc30.

Решение задачи, на языке: Паскаль, C, C++, Кумир

Proc32. Описать функцию DegToRad( $D$ ) вещественного типа, находящую величину угла в радианах, если дана его величина $D$ в градусах ( $D$ — вещественное число, $0 < D < 360$ ). Воспользоваться следующим соотношением: $180^o = \pi$ радианов. В качестве значения $\pi$ использовать 3.14. С помощью функции DegToRad перевести из градусов в радианы пять данных углов.

Решение задачи, на языке: Паскаль, C, Phyton3

Proc33. Описать функцию RadToDeg( $R$ ) вещественного типа, находящую величину угла в градусах, если дана его величина $R$ в радианах ( $R$ — вещественное число, $0 < R < 2*\pi$ ). Воспользоваться следующим соотношением: $180^o = \pi$ радианов. В качестве значения ? использовать 3.14. С помощью функции RadToDeg перевести из радианов в градусы пять данных углов.

Решение задачи, на языке: Паскаль, C

Proc34. Описать функцию Fact( $N$ ) вещественного типа, вычисляющую значение факториала $N! = 1*2*…*N$ ( $N > 0$ — параметр целого типа; вещественное возвращаемое значение используется для того, чтобы избежать целочисленного переполнения при больших значениях $N$ ). С помощью этой функции найти факториалы пяти данных целых чисел.

Решение задачи, на языке: Паскаль, C

Proc35. Описать функцию Fact2( $N$ ) вещественного типа, вычисляющую двойной факториал: $N!! = 1*3*5*…*N$ , если $N$ — нечетное; $N!! = 2*4*6*…*N$ , если $N$ — четное ( $N > 0$ — параметр целого типа; вещественное возвращаемое значение используется для того, чтобы избежать целочисленного переполнения при больших значениях $N$ ). С помощью этой функции найти двойные факториалы пяти данных целых чисел.

Решение задачи, на языке: Паскаль, C

Proc36. Описать функцию Fib( $N$ ) целого типа, вычисляющую $N$ -й элемент последовательности чисел Фибоначчи $F_K$ , которая описывается следующими формулами: $F_1 = 1,F_2 = 1, F_K = F_{K-2} + F_{K-1}, K = 3, 4, …$ . Используя функцию Fib, найти пять чисел Фибоначчи с данными номерами $N_1, N_2, …, N_5$ .

Решение задачи, на языке: Паскаль, C

Дополнительные задания на процедуры и функции

Proc37. Описать функцию Power1( $A$ , $B$ ) вещественного типа, находящую величину $A^B$ по формуле $A^B = exp(B*ln(A))$ (параметры $A$ и $B$ — вещественные). В случае нулевого или отрицательного параметра $A$ функция возвращает 0. С помощью этой функции найти степени $A^P$ , $B^P$ , $C^P$ , если даны числа $P, A, B, C$ .

Решение задачи, на языке: Паскаль, C

Proc38. Описать функцию Power2( $A$ , $N$ ) вещественного типа, находящую величину $A^N$ ( $A$ — вещественный, $N$ — целый параметр) по следующим формулам: $A^0 = 1; A^N = A*A*…*A$ ( $N$ сомножителей), если $N > 0$ ; $A^N = 1/(A*A*…*A)$ ( $|N|$ сомножителей), если $N < 0$ . С помощью этой функции найти $A^K, A^L, A^M,$ если даны числа $A, K, L, M$ .

Решение задачи, на языке: Паскаль, C

Proc39. Используя функции Power1 и Power2 (задания Proc37 и Proc38), описать функцию Power3( $A$ , $B$ ) вещественного типа с вещественными параметрами, находящую $A^B$ следующим образом: если $B$ имеет нулевую дробную часть, то вызывается функция Power2( $A$ , Round( $B$ )); в противном случае вызывается функция Power1( $A$ , $B$ ). С помощью этой функции найти $A^P, B^P, C^P$ , если даны числа $P, A, B, C$ .

Решение задачи, на языке: Паскаль, C

Proc40. Описать функцию Exp1( $x$ , $\epsilon$ ) вещественного типа (параметры $x$ , $\epsilon$ — вещественные, $\epsilon > 0$ ), находящую приближенное значение функции exp( $x$ ): $exp(x) = 1 + x + x^2/(2!) + x^3/(3!) + … + x^n/(n!) + … (n! = 1*2*…*n)$ . В сумме учитывать все слагаемые, большие $\epsilon$ . С помощью Exp1 найти приближенное значение экспоненты для данного $x$ при шести данных $\epsilon$ .

Решение задачи, на языке: Паскаль, C

Proc41. Описать функцию Sin1(x, $\epsilon$ ) вещественного типа (параметры $x$ , $\epsilon$ — вещественные, $\epsilon > 0$ ), находящую приближенное значение функции sin( $x$ ): $sin(x) = x — x^3/(3!) + x^5/(5!) — … + (-1)^n*x^{2*n+1}/((2*n+1)!) + …$ . В сумме учитывать все слагаемые, модуль которых больше $\epsilon$ . С помощью Sin1 найти приближенное значение синуса для данного x при шести данных $\epsilon$ .

Решение задачи, на языке: Паскаль, C, Кумир

Proc42. Описать функцию Cos1(x, $\epsilon$ ) вещественного типа (параметры x, $\epsilon$ — вещественные, $\epsilon > 0$ ), находящую приближенное значение функции cos(x): $cos(x) = 1 — x^2/(2!) + x^4/(4!) — … + (-1)^n*x^{2*n}/((2*n)!) + …$ . В сумме учитывать все слагаемые, модуль которых больше ?. С помощью Cos1 найти приближенное значение косинуса для данного $x$ при шести данных $\epsilon$ .

Решение задачи, на языке: Паскаль, C, Кумир

Proc43. Описать функцию Ln1(x, $\epsilon$ ) вещественного типа (параметры $x$ , $\epsilon$ — вещественные, $|x| < 1, \epsilon > 0$ ), находящую приближенное значение функции $ln(1 + x)$ : $ln(1 + x) = x — x^2/2 + x^3/3 — … + (-1)^n*x^{n+1}/(n+1) + …$ . В сумме учитывать все слагаемые, модуль которых больше $\epsilon$ . С помощью Ln1 найти приближенное значение $ln(1 + x)$ для данного x при шести данных $\epsilon$ .

Решение задачи, на языке:Паскаль, C

Proc44. Описать функцию Arctg1(x, $\epsilon$ ) вещественного типа (параметры $x$ , $\epsilon$ — вещественные, $|x| < 1, \epsilon > 0$ ), находящую приближенное значение функции $arctg(x)$ : $arctg(x) = x — x^3/3 + x^5/5 — … + (-1)^n*x^{2*n+1}/(2*n+1) + …$ . В сумме учитывать все слагаемые, модуль которых больше $\epsilon$ . С помощью Arctg1 найти приближенное значение $arctg(x)$ для данного $x$ при шести данных $\epsilon$ .

Решение задачи, на языке: Паскаль, C, C++, Кумир

Proc45. Описать функцию Power4( $x$ , $a$ , $\epsilon$ ) вещественного типа (параметры $x$ , $a$ , $\epsilon$ — вещественные, $|x| < 1; a, \epsilon> 0$ ), находящую приближенное значение функции $(1 + x)^a$ : $(1 + x)^a = 1 + a*x + a*(a-1)*x^2/(2!) + … + a*(a-1)*…*(a-n+1)*x^n/(n!) + … .$

В сумме учитывать все слагаемые, модуль которых больше $\epsilon$ . С помощью Power4 найти приближенное значение $(1 + x)^a$ для данных $x$ и $a$ при шести данных $\epsilon$ .

Решение задачи, на языке: Паскаль, C

Proc46. Описать функцию NOD2( $A$ , $B$ ) целого типа, находящую наибольший общий делитель (НОД) двух целых положительных чисел $A$ и $B$ , используя алгоритм Евклида: НОД( $A$ , $B$ ) = НОД( $B$ , $A mod B$ ), если $B \neq 0$ ; НОД( $A$ , $0$ ) = $A$ . С помощью этой функции найти наибольшие общие делители пар $(A, B), (A, C), (A, D),$ если даны числа $A, B, C, D$ .

Решение задачи, на языке: Паскаль, C

Proc47. Используя функцию NOD2 из задания Proc46, описать процедуру Frac1( $a$ , $b$ , $p$ , $q$ ), преобразующую дробь $a/b$ к несократимому виду $p/q$ (все параметры процедуры — целого типа, $a$ и $b$ — входные, $p$ и $q$ — выходные). Знак результирующей дроби $p/q$ приписывается числителю (то есть $q > 0$ ). С помощью Frac1 найти несократимые дроби, равные $a/b + c/d, a/b + e/f, a/b + g/h$ (числа $a, b, c, d, e, f, g, h$ даны).

Решение задачи, на языке: Паскаль, C

Proc48. Учитывая, что наименьшее общее кратное двух целых положительных чисел $A$ и $B$ равно $A$ *( $B$ /НОД( $A$ , $B$ )), где НОД( $A$ , $B$ ) — наибольший общий делитель $A$ и $B$ , и используя функцию NOD2 из задания Proc46, описать функцию NOK2( $A$ , $B$ ) целого типа, находящую наименьшее общее кратное чисел $A$ и $B$ . С помощью NOK2 найти наименьшие общие кратные пар ( $A$ , $B$ ), ( $A$ , $C$ ), ( $A$ , $D$ ), если даны числа $A$ , $B$ , $C$ , $D$ .

Решение задачи, на языке: Паскаль, C

Если вы хотите выложить решение для задач, но нет решения на нужном языке, или вообще к задаче нет решений. Можете разместить его в виде комментария к данной статье.

Другие задачи по программированию, для проверки своих знаний.

Комментарии 13

Rustem

12.08.2017 в 08:59

//Proc26
import java.util.Scanner;

class Home16 {
public static void main(String[] args) {
Scanner scan = new Scanner(System.in);

System.out.println(«Введите К»);
int k;

int t1 = 0, t2 = 0;
for (int i = 1; i <= 10; i++) {
k = scan.nextInt();
System.out.println(" четное " + IsSquare(k));

System.out.println();

if (k % 5 == 0) {
t1++;
}
}
}

public static float IsSquare (int b){
double res = b;
for (int i = 1; i < b; i++){
if ( Math.pow(i,5) == b){

}

}

Ответить

//Proc49. Учитывая соотношение НОД(A, B, C) = НОД(НОД(A, B), C) и используя
//функцию NOD2 из задания Proc46, описать функцию NOD3(A, B, C)целого типа,
//находящую наибольший общий делитель трех целых положительных чисел A, B, C. 
//С помощью этой функции найти наибольшие общие делители троек 
//(A, B, C), (A, C, D) и (B, C, D), если даны числа A, B, C, D.

 function NOD2(A,B:integer):integer;
  begin
   while (A<>0) and (B<>0) do
  begin
   if A>B Then A:=A mod B else
   B:=B mod A;
  end;
   NOD2:=A+B;
  end; 
  function NOD3(A,B,C:integer):integer;
  begin
   NOD3:=NOD2(NOD2(A,B),C);
  end; 
  var A,B,C,D:integer;
 begin
  Write('Введите A,B,C,D: ');
  Read(A,B,C,D);
  Writeln('NOD3(A,B,C)= ',NOD3(A,B,C));
  Writeln('NOD3(A,C,D)= ',NOD3(A,C,D));
  Writeln('NOD3(B,C,D)= ',NOD3(B,C,D));
 end.

//Proc49. Учитывая соотношение НОД(A, B, C) = НОД(НОД(A, B), C) и используя

//функцию NOD2 из задания Proc46, описать функцию NOD3(A, B, C)целого типа,

//находящую наибольший общий делитель трех целых положительных чисел A, B, C.

//С помощью этой функции найти наибольшие общие делители троек

//(A, B, C), (A, C, D) и (B, C, D), если даны числа A, B, C, D.

function NOD2(A,B:integer):integer;

begin

while (A<>0) and (B<>0) do

begin

if A>B Then A:=A mod B else

B:=B mod A;

end;

NOD2:=A+B;

end;

function NOD3(A,B,C:integer):integer;

begin

NOD3:=NOD2(NOD2(A,B),C);

end;

var A,B,C,D:integer;

begin

Write('Введите A,B,C,D: ');

Read(A,B,C,D);

Writeln('NOD3(A,B,C)= ',NOD3(A,B,C));

Writeln('NOD3(A,C,D)= ',NOD3(A,C,D));

Writeln('NOD3(B,C,D)= ',NOD3(B,C,D));

end.

Ответить

//PascalABC.NET
//Proc50. Описать процедуру TimeToHMS(T, H, M, S), определяющую по времени T
// (в секундах) содержащееся в нем количество часов H, минут M и
//секунд S (T — входной, H, M и S — выходные параметры целого типа).
//Используя эту процедуру, найти количество часов, минут и секунд для
//пяти данных отрезков времени T1, T2, : : :, T5.

//uses PT4;
procedure TimeToHMS(T:integer; var H,M,S:integer);
begin
 H:=T div 3600;
 M:=(T mod 3600)div 60;
 S:=(T mod 3600)mod 60;
end;
 var T,H,M,S:integer;
begin
 // Task('Proc50');
  Write('Введите пять отрезков времени в секундах: ');
  For var i:=1 to 5 do
  begin
   Read(T);
   TimeToHMS(T,H,M,S);
   Writeln('B ',T,' секундах: ',H,' часов, ' ,M,' минут, ',S,' секунд' );
   end;
  end.

//PascalABC.NET

//Proc50. Описать процедуру TimeToHMS(T, H, M, S), определяющую по времени T

// (в секундах) содержащееся в нем количество часов H, минут M и

//секунд S (T — входной, H, M и S — выходные параметры целого типа).

//Используя эту процедуру, найти количество часов, минут и секунд для

//пяти данных отрезков времени T1, T2, : : :, T5.

//uses PT4;

procedure TimeToHMS(T:integer; var H,M,S:integer);

begin

H:=T div 3600;

M:=(T mod 3600)div 60;

S:=(T mod 3600)mod 60;

end;

var T,H,M,S:integer;

begin

// Task('Proc50');

Write('Введите пять отрезков времени в секундах: ');

For var i:=1 to 5 do

begin

Read(T);

TimeToHMS(T,H,M,S);

Writeln('B ',T,' секундах: ',H,' часов, ' ,M,' минут, ',S,' секунд' );

end;

end.

Ответить

//PascalABC.NET
//Proc51. Описать процедуру IncTime(H, M, S, T), которая увеличивает на
// T секунд время, заданное в часах H, минутах M и секундах S (H, M и S —
//входные и выходные параметры, T — входной параметр; все параметры —
//целые положительные). Дано время (в часах H, минутах M, секундах S)
//и целое число T. Используя процедуру IncTime, увеличить данное время
//на T секунд и вывести новые значения H, M, S.

//uses PT4;
 procedure IncTime(var H,M,S,T:integer);
  var S1:integer;
begin
S1:=H*3600+M*60+S+T;
 H:=S1 div 3600;
 M:=(S1 mod 3600)div 60;
 S:=(S1 mod 3600)mod 60;
end;
 var H,M,S,T:integer;
begin
 //Task('Proc51');
 Write('Введите время Н,M,S(часы, минуты, секунды)и T в секундах: ');
 Read(H,M,S,T);
 IncTime(H,M,S,T);
 Write('Новое время: H=',H,' M=' ,M,' S=' ,S);
end.

//PascalABC.NET

//Proc51. Описать процедуру IncTime(H, M, S, T), которая увеличивает на

// T секунд время, заданное в часах H, минутах M и секундах S (H, M и S —

//входные и выходные параметры, T — входной параметр; все параметры —

//целые положительные). Дано время (в часах H, минутах M, секундах S)

//и целое число T. Используя процедуру IncTime, увеличить данное время

//на T секунд и вывести новые значения H, M, S.

//uses PT4;

procedure IncTime(var H,M,S,T:integer);

var S1:integer;

begin

S1:=H*3600+M*60+S+T;

H:=S1 div 3600;

M:=(S1 mod 3600)div 60;

S:=(S1 mod 3600)mod 60;

end;

var H,M,S,T:integer;

begin

//Task('Proc51');

Write('Введите время Н,M,S(часы, минуты, секунды)и T в секундах: ');

Read(H,M,S,T);

IncTime(H,M,S,T);

Write('Новое время: H=',H,' M=' ,M,' S=' ,S);

end.

Ответить

//PascalABC.NET
//Proc52. Описать функцию IsLeapYear(Y) логического типа, которая возвращает
//TRUE, если год Y (целое положительное число) является високосным, и FALSE 
// в противном случае. Вывести значение функции IsLeapYear для пяти данных 
//значений параметра Y. Високосным считается год, делящийся на 4, за исключением
//тех годов, которые делятся на 100 и не делятся на 400.

//uses PT4;
function IsLeapYear(Y:integer):boolean;
begin
IsLeapYear:=FALSE;
 if (Y mod 4=0)and ((Y mod 100<>0) or ( Y mod 400=0)) then
 IsLeapYear:=TRUE;
 end;
 
 var Y:integer;
begin
 // Task('Proc52');
Write('Введите пять значений Y: ');
  For var i:=1 to 5 do
  begin
   Read(Y);
   if IsLeapYear(Y) then
   Writeln('Год ',Y,' - високосный') else
   Writeln('Год ',Y,' - невисокосный');
  end;
end.

//PascalABC.NET

//Proc52. Описать функцию IsLeapYear(Y) логического типа, которая возвращает

//TRUE, если год Y (целое положительное число) является високосным, и FALSE

// в противном случае. Вывести значение функции IsLeapYear для пяти данных

//значений параметра Y. Високосным считается год, делящийся на 4, за исключением

//тех годов, которые делятся на 100 и не делятся на 400.

//uses PT4;

function IsLeapYear(Y:integer):boolean;

begin

IsLeapYear:=FALSE;

if (Y mod 4=0)and ((Y mod 100<>0) or ( Y mod 400=0)) then

IsLeapYear:=TRUE;

end;

var Y:integer;

begin

// Task('Proc52');

Write('Введите пять значений Y: ');

For var i:=1 to 5 do

begin

Read(Y);

if IsLeapYear(Y) then

Writeln('Год ',Y,' - високосный') else

Writeln('Год ',Y,' - невисокосный');

end;

end.

Ответить

//PascalABC.NET
//Proc53. Используя функцию IsLeapYear из задания Proc52, описать функцию
//MonthDays(M, Y) целого типа, которая возвращает количество дней для
//M-го месяца года Y (1 <= M <= 12, Y > 0 — целые числа). Вывести значение
//функции MonthDays для данного года Y и месяцев M1, M2, M3.

//uses PT4;
function IsLeapYear(Y:integer):boolean;
begin
IsLeapYear:=FALSE;
 if (Y mod 4=0)and ((Y mod 100<>0) or ( Y mod 400=0)) then
 IsLeapYear:=TRUE;
 end;
 
 function MonthDays(M,Y:integer):integer;
 begin
 Case M of
 1,3,5,7,8,10,12:MonthDays:=31;
 2: if IsLeapYear(Y) then  MonthDays:=29 else MonthDays:=28;
 4,6,9,11:MonthDays:=30;
 end;
 end;
 var M,Y:integer;
begin
 // Task('Proc53');
 Writeln ('Введите год: ');
 Read(Y);
 Writeln('Введите 3 месяца: ');
 for var i:=1 to 3 do
 begin
 Read(M);
 Writeln('В ',M,' месяце - ',MonthDays(M,Y),' дн.');
 end;
end.

//PascalABC.NET

//Proc53. Используя функцию IsLeapYear из задания Proc52, описать функцию

//MonthDays(M, Y) целого типа, которая возвращает количество дней для

//M-го месяца года Y (1 <= M <= 12, Y > 0 — целые числа). Вывести значение

//функции MonthDays для данного года Y и месяцев M1, M2, M3.

//uses PT4;

function IsLeapYear(Y:integer):boolean;

begin

IsLeapYear:=FALSE;

if (Y mod 4=0)and ((Y mod 100<>0) or ( Y mod 400=0)) then

IsLeapYear:=TRUE;

end;

function MonthDays(M,Y:integer):integer;

begin

Case M of

1,3,5,7,8,10,12:MonthDays:=31;

2: if IsLeapYear(Y) then MonthDays:=29 else MonthDays:=28;

4,6,9,11:MonthDays:=30;

end;

var M,Y:integer;

begin

// Task('Proc53');

Writeln ('Введите год: ');

Read(Y);

Writeln('Введите 3 месяца: ');

for var i:=1 to 3 do

begin

Read(M);

Writeln('В ',M,' месяце - ',MonthDays(M,Y),' дн.');

end;

end.

Ответить

//PascalABC.NET
//Proc54. Используя функцию MonthDays из задания Proc53, описать процедуру
//PrevDate(D, M, Y), которая по информации о правильной дате, включающей день D,
//номер месяца M и год Y, определяет предыдущую дату(параметры целого типа D, M,
//Y являются одновременно входными и выходными). Применить процедуру PrevDate
//к трем исходным датам и вывести полученные значения предыдущих дат.

//uses PT4;
 function IsLeapYear(Y:integer):boolean;
begin
IsLeapYear:=FALSE;
 if (Y mod 4=0)and ((Y mod 100<>0) or ( Y mod 400=0)) then
 IsLeapYear:=TRUE;
 end;
 
  function MonthDays(M,Y:integer):integer;
 begin
  Case M of
  1,3,5,7,8,10,12:MonthDays:=31;
  2: if IsLeapYear(Y) then  MonthDays:=29 else MonthDays:=28;
  4,6,9,11:MonthDays:=30;
  end;
 end;
 
  procedure PrevDate(var D,M,Y:integer);
 begin
  D:=D-1;
  if D=0 then
  begin
  M:=M-1;
  if M=0 then
   begin
   M:=12;
   Y:=Y-1;
   end;
  D:=MonthDays(M,Y);
  end;
 end;
  
 var D,M,Y:integer;
begin
//  Task('Proc54');
  for var i:=1 to 3 do
  begin
  Write('Введите дату (D,M,Y): ');
  Read(D,M,Y);
  PrevDate(D,M,Y);
  Writeln('Предыдущая дата: ',D,' ',M,' ',Y);
  end;
end.

//PascalABC.NET

//Proc54. Используя функцию MonthDays из задания Proc53, описать процедуру

//PrevDate(D, M, Y), которая по информации о правильной дате, включающей день D,

//номер месяца M и год Y, определяет предыдущую дату(параметры целого типа D, M,

//Y являются одновременно входными и выходными). Применить процедуру PrevDate

//к трем исходным датам и вывести полученные значения предыдущих дат.

//uses PT4;

function IsLeapYear(Y:integer):boolean;

begin

IsLeapYear:=FALSE;

if (Y mod 4=0)and ((Y mod 100<>0) or ( Y mod 400=0)) then

IsLeapYear:=TRUE;

end;

function MonthDays(M,Y:integer):integer;

begin

Case M of

1,3,5,7,8,10,12:MonthDays:=31;

2: if IsLeapYear(Y) then MonthDays:=29 else MonthDays:=28;

4,6,9,11:MonthDays:=30;

end;

procedure PrevDate(var D,M,Y:integer);

begin

D:=D-1;

if D=0 then

begin

M:=M-1;

if M=0 then

begin

M:=12;

Y:=Y-1;

end;

D:=MonthDays(M,Y);

end;

var D,M,Y:integer;

begin

// Task('Proc54');

for var i:=1 to 3 do

begin

Write('Введите дату (D,M,Y): ');

Read(D,M,Y);

PrevDate(D,M,Y);

Writeln('Предыдущая дата: ',D,' ',M,' ',Y);

end;

end.

Ответить

//Proc55. Используя функцию MonthDays из задания Proc53, описать процедуру
//NextDate(D, M, Y), которая по информации о правильной дате, включающей день D,
//номер месяца M и год Y, определяет следующую дату(параметры целого типа D,M,Y
//являются одновременно входными и выходными). Применить процедуру NextDate
//к трем исходным датам и вывести полученные значения следующих дат.

//uses PT4;
  function IsLeapYear(Y:integer):boolean;
begin
IsLeapYear:=FALSE;
 if (Y mod 4=0)and ((Y mod 100<>0) or ( Y mod 400=0)) then
 IsLeapYear:=TRUE;
 end;
 
  function MonthDays(M,Y:integer):integer;
 begin
  Case M of
  1,3,5,7,8,10,12:MonthDays:=31;
  2: if IsLeapYear(Y) then  MonthDays:=29 else MonthDays:=28;
  4,6,9,11:MonthDays:=30;
  end;
 end;
 
  procedure PrevDate(var D,M,Y:integer);
 begin
  D:=D+1;
  if D>MonthDays(M,Y) then
  begin
  D:=1;
  M:=M+1;
  if M>12 then M:=1;
  Y:=Y+1;
  end;
 end;
  
 var D,M,Y:integer;
begin
 // Task('Proc55');
 for var i:=1 to 3 do
  begin
  Write('Введите дату (D,M,Y): ');
  Read(D,M,Y);
  PrevDate(D,M,Y);
  Writeln('Следующая дата: ',D,' ',M,' ',Y);
  end;
end.

//Proc55. Используя функцию MonthDays из задания Proc53, описать процедуру

//NextDate(D, M, Y), которая по информации о правильной дате, включающей день D,

//номер месяца M и год Y, определяет следующую дату(параметры целого типа D,M,Y

//являются одновременно входными и выходными). Применить процедуру NextDate

//к трем исходным датам и вывести полученные значения следующих дат.

//uses PT4;

function IsLeapYear(Y:integer):boolean;

begin

IsLeapYear:=FALSE;

if (Y mod 4=0)and ((Y mod 100<>0) or ( Y mod 400=0)) then

IsLeapYear:=TRUE;

end;

function MonthDays(M,Y:integer):integer;

begin

Case M of

1,3,5,7,8,10,12:MonthDays:=31;

2: if IsLeapYear(Y) then MonthDays:=29 else MonthDays:=28;

4,6,9,11:MonthDays:=30;

end;

procedure PrevDate(var D,M,Y:integer);

begin

D:=D+1;

if D>MonthDays(M,Y) then

begin

D:=1;

M:=M+1;

if M>12 then M:=1;

Y:=Y+1;

end;

var D,M,Y:integer;

begin

// Task('Proc55');

for var i:=1 to 3 do

begin

Write('Введите дату (D,M,Y): ');

Read(D,M,Y);

PrevDate(D,M,Y);

Writeln('Следующая дата: ',D,' ',M,' ',Y);

end;

end.

Ответить

//PascalABC.NET
//Proc56. Описать функцию Leng(xA, yA, xB, yB) вещественного типа, находящую 
//длину отрезка AB на плоскости по координатам его концов:
//|AB| = sqrt((xA - xB)2 + (yA - yB)2)
//(xA, yA, xB, yB — вещественные параметры). С помощью этой функции
//найти длины отрезков AB, AC, AD, если даны координаты точек A, B, C, D.

//uses PT4;
 function Leng(xA,yA,xB,yB:real):real;
 begin
 Leng:=sqrt(sqr(xA - xB) + sqr(yA - yB));
 end;
 
  var xA,yA,xB,yB,xC,yC,xD,yD:real;
begin
 // Task('Proc56');
 write('Введите координаты точек A,B,C,D: ');
 read(xA,yA,xB,yB,xC,yC,xD,yD);
 writeln('Длина AB= ',Leng(xA,yA,xB,yB):4:2);
 writeln('Длина AC= ',Leng(xA,yA,xC,yC):4:2);
 writeln('Длина AD= ',Leng(xA,yA,xD,yD):4:2);
end.

//PascalABC.NET

//Proc56. Описать функцию Leng(xA, yA, xB, yB) вещественного типа, находящую

//длину отрезка AB на плоскости по координатам его концов:

//|AB| = sqrt((xA - xB)2 + (yA - yB)2)

//(xA, yA, xB, yB — вещественные параметры). С помощью этой функции

//найти длины отрезков AB, AC, AD, если даны координаты точек A, B, C, D.

//uses PT4;

function Leng(xA,yA,xB,yB:real):real;

begin

Leng:=sqrt(sqr(xA - xB) + sqr(yA - yB));

end;

var xA,yA,xB,yB,xC,yC,xD,yD:real;

begin

// Task('Proc56');

write('Введите координаты точек A,B,C,D: ');

read(xA,yA,xB,yB,xC,yC,xD,yD);

writeln('Длина AB= ',Leng(xA,yA,xB,yB):4:2);

writeln('Длина AC= ',Leng(xA,yA,xC,yC):4:2);

writeln('Длина AD= ',Leng(xA,yA,xD,yD):4:2);

end.

Ответить

//PascalABC.NET
//Proc57. Используя функцию Leng из задания Proc56, описать функцию
//Perim(xA, yA, xB, yB, xC, yC) вещественного типа, находящую периметр
//треугольника ABC по координатам его вершин (xA, yA, xB, yB, xC, yC —
//вещественные параметры). С помощью этой функции найти периметры
//треугольников ABC, ABD, ACD, если даны координаты точек A, B, C, D.

//uses PT4;
function Leng(xA,yA,xB,yB:real):real;
 begin
 Leng:=sqrt(sqr(xA - xB) + sqr(yA - yB));
 end;
 
 function Perim(xA,yA,xB,yB,xC,yC:real):real;
 begin
 Perim:=Leng(xA,yA,xB,yB)+Leng(xC,yC,xB,yB)+Leng(xC,yC,xA,yA);
 end;
 
 var xA,yA,xB,yB,xC,yC,xD,yD:real;
begin
 // Task('Proc57');
   write('Введите координаты точек A,B,C,D: ');
   read(xA,yA,xB,yB,xC,yC,xD,yD);
   writeln('Периметр треугольника ABС= ',Perim(xA,yA,xB,yB,xC,yC):4:2);
   writeln('Периметр треугольника ABD= ',Perim(xA,yA,xB,yB,xD,yD):4:2);
   writeln('Периметр треугольника ACD= ',Perim(xA,yA,xC,yC,xD,yD):4:2);
end.

//PascalABC.NET

//Proc57. Используя функцию Leng из задания Proc56, описать функцию

//Perim(xA, yA, xB, yB, xC, yC) вещественного типа, находящую периметр

//треугольника ABC по координатам его вершин (xA, yA, xB, yB, xC, yC —

//вещественные параметры). С помощью этой функции найти периметры

//треугольников ABC, ABD, ACD, если даны координаты точек A, B, C, D.

//uses PT4;

function Leng(xA,yA,xB,yB:real):real;

begin

Leng:=sqrt(sqr(xA - xB) + sqr(yA - yB));

end;

function Perim(xA,yA,xB,yB,xC,yC:real):real;

begin

Perim:=Leng(xA,yA,xB,yB)+Leng(xC,yC,xB,yB)+Leng(xC,yC,xA,yA);

end;

var xA,yA,xB,yB,xC,yC,xD,yD:real;

begin

// Task('Proc57');

write('Введите координаты точек A,B,C,D: ');

read(xA,yA,xB,yB,xC,yC,xD,yD);

writeln('Периметр треугольника ABС= ',Perim(xA,yA,xB,yB,xC,yC):4:2);

writeln('Периметр треугольника ABD= ',Perim(xA,yA,xB,yB,xD,yD):4:2);

writeln('Периметр треугольника ACD= ',Perim(xA,yA,xC,yC,xD,yD):4:2);

end.

Ответить

//PascalABC.NET
//Proc58. Используя функции Leng и Perim из заданий Proc56 и Proc57, описать
//функцию Area(xA, yA, xB, yB, xC, yC) вещественного типа, находящую
//площадь треугольника ABC по формуле SABC = sqrt(p*(p-|AB|)*(p-|AC|)-(p-|BC|)),
//где p — полупериметр. С помощью этой функции найти площади треугольников
//ABC, ABD, ACD, если даны координаты точек A, B, C, D.

//uses PT4;
 function Leng(xA,yA,xB,yB:real):real;
 begin
  Leng:=sqrt(sqr(xA - xB) + sqr(yA - yB));
 end;
 
 function Perim(xA,yA,xB,yB,xC,yC:real):real;
 begin
  Perim:=Leng(xA,yA,xB,yB)+Leng(xC,yC,xB,yB)+Leng(xC,yC,xA,yA);
 end;
 
 function Area(xA,yA,xB,yB,xC,yC:real):real;
 var p,AB,AC,BC:real;
 begin
  p:=Perim(xA,yA,xB,yB,xC,yC)/2;
  AB:=Leng(xA,yA,xB,yB);
  AC:=Leng(xA,yA,xC,yC);
  BC:=Leng(xB,yB,xC,yC);
  Area:=sqrt(p*(p-AB)*(p-AC)*(p-BC));
 end;
 
 var xA,yA,xB,yB,xC,yC,xD,yD:real;
begin
 //Task('Proc58');
  write('Введите координаты точек A,B,C,D: ');
  read(xA,yA,xB,yB,xC,yC,xD,yD);
  writeln('Площадь треугольника ABС= ',Area(xA,yA,xB,yB,xC,yC):4:2);
  writeln('Площадь треугольника ABD= ',Area(xA,yA,xB,yB,xD,yD):4:2);
  writeln('Площадь треугольника ACD= ',Area(xA,yA,xC,yC,xD,yD):4:2);
end.

//PascalABC.NET

//Proc58. Используя функции Leng и Perim из заданий Proc56 и Proc57, описать

//функцию Area(xA, yA, xB, yB, xC, yC) вещественного типа, находящую

//площадь треугольника ABC по формуле SABC = sqrt(p*(p-|AB|)*(p-|AC|)-(p-|BC|)),

//где p — полупериметр. С помощью этой функции найти площади треугольников

//ABC, ABD, ACD, если даны координаты точек A, B, C, D.

//uses PT4;

function Leng(xA,yA,xB,yB:real):real;

begin

Leng:=sqrt(sqr(xA - xB) + sqr(yA - yB));

end;

function Perim(xA,yA,xB,yB,xC,yC:real):real;

begin

Perim:=Leng(xA,yA,xB,yB)+Leng(xC,yC,xB,yB)+Leng(xC,yC,xA,yA);

end;

function Area(xA,yA,xB,yB,xC,yC:real):real;

var p,AB,AC,BC:real;

begin

p:=Perim(xA,yA,xB,yB,xC,yC)/2;

AB:=Leng(xA,yA,xB,yB);

AC:=Leng(xA,yA,xC,yC);

BC:=Leng(xB,yB,xC,yC);

Area:=sqrt(p*(p-AB)*(p-AC)*(p-BC));

end;

var xA,yA,xB,yB,xC,yC,xD,yD:real;

begin

//Task('Proc58');

write('Введите координаты точек A,B,C,D: ');

read(xA,yA,xB,yB,xC,yC,xD,yD);

writeln('Площадь треугольника ABС= ',Area(xA,yA,xB,yB,xC,yC):4:2);

writeln('Площадь треугольника ABD= ',Area(xA,yA,xB,yB,xD,yD):4:2);

writeln('Площадь треугольника ACD= ',Area(xA,yA,xC,yC,xD,yD):4:2);

end.

Ответить

//PascalABC.NET
//Proc59. Используя функции Leng и Area из заданий Proc56 и Proc58, описать
//функцию Dist(xP, yP, xA, yA, xB, yB) вещественного типа, находящую
//расстояние D(P, AB) от точки P до прямой AB по формуле D(P, AB) = 2*SPAB/|AB|,
//где SPAB — площадь треугольника PAB. С помощью этой функции найти расстояния 
//от точки P до прямых AB, AC, BC, если даны координаты точек P, A, B, C.

//uses PT4;
function Leng(xA,yA,xB,yB:real):real;
 begin
 Leng:=sqrt(sqr(xA - xB) + sqr(yA - yB));
 end;
 function Perim(xA,yA,xB,yB,xC,yC:real):real;
 begin
  Perim:=Leng(xA,yA,xB,yB)+Leng(xC,yC,xB,yB)+Leng(xC,yC,xA,yA);
 end;
  function Area(xA,yA,xB,yB,xC,yC:real):real;
 var p,AB,AC,BC:real;
 begin
  p:=Perim(xA,yA,xB,yB,xC,yC)/2;
  AB:=Leng(xA,yA,xB,yB);
  AC:=Leng(xA,yA,xC,yC);
  BC:=Leng(xB,yB,xC,yC);
  Area:=sqrt(p*(p-AB)*(p-AC)*(p-BC));
 end;
 function Dist(xP,yP,xA,yA,xB,yB:real):real;
 begin
 Dist:=2*Area(xP,yP,xA,yA,xB,yB)/Leng(xA,yA,xB,yB);
 end;
 
 var xP,yP,xA,yA,xB,yB,xC,yC:real;
begin
  //Task('Proc59');
 write('Введите координаты точек P,A,B,C: ');
 read(xP,yP,xA,yA,xB,yB,xC,yC);
 writeln('Расстояние от точки P до прямой AB = ',Dist(xP,yP,xA,yA,xB,yB):4:2);
 writeln('Расстояние от точки P до прямой AC = ',Dist(xP,yP,xA,yA,xC,yC):4:2);
 writeln('Расстояние от точки P до прямой BC = ',Dist(xP,yP,xB,yB,xC,yC):4:2);
end.

//PascalABC.NET

//Proc59. Используя функции Leng и Area из заданий Proc56 и Proc58, описать

//функцию Dist(xP, yP, xA, yA, xB, yB) вещественного типа, находящую

//расстояние D(P, AB) от точки P до прямой AB по формуле D(P, AB) = 2*SPAB/|AB|,

//где SPAB — площадь треугольника PAB. С помощью этой функции найти расстояния

//от точки P до прямых AB, AC, BC, если даны координаты точек P, A, B, C.

//uses PT4;

function Leng(xA,yA,xB,yB:real):real;

begin

Leng:=sqrt(sqr(xA - xB) + sqr(yA - yB));

end;

function Perim(xA,yA,xB,yB,xC,yC:real):real;

begin

Perim:=Leng(xA,yA,xB,yB)+Leng(xC,yC,xB,yB)+Leng(xC,yC,xA,yA);

end;

function Area(xA,yA,xB,yB,xC,yC:real):real;

var p,AB,AC,BC:real;

begin

p:=Perim(xA,yA,xB,yB,xC,yC)/2;

AB:=Leng(xA,yA,xB,yB);

AC:=Leng(xA,yA,xC,yC);

BC:=Leng(xB,yB,xC,yC);

Area:=sqrt(p*(p-AB)*(p-AC)*(p-BC));

end;

function Dist(xP,yP,xA,yA,xB,yB:real):real;

begin

Dist:=2*Area(xP,yP,xA,yA,xB,yB)/Leng(xA,yA,xB,yB);

end;

var xP,yP,xA,yA,xB,yB,xC,yC:real;

begin

//Task('Proc59');

write('Введите координаты точек P,A,B,C: ');

read(xP,yP,xA,yA,xB,yB,xC,yC);

writeln('Расстояние от точки P до прямой AB = ',Dist(xP,yP,xA,yA,xB,yB):4:2);

writeln('Расстояние от точки P до прямой AC = ',Dist(xP,yP,xA,yA,xC,yC):4:2);

writeln('Расстояние от точки P до прямой BC = ',Dist(xP,yP,xB,yB,xC,yC):4:2);

end.

Ответить

//PascalABC.NET
//Proc60. Используя функцию Dist из задания Proc59, описать процедуру
//Heights(xA, yA, xB, yB, xC, yC, hA, hB, hC), находящую высоты hA, hB, hC 
//треугольника ABC (выходные параметры), проведенные соответственно из вершин
//A, B, C (их координаты являются входными параметрами). С помощью этой 
//процедуры найти высоты треугольников ABC, ABD, ACD,если даны координаты 
//точек A, B, C, D.

//uses PT4;
function Leng(xA,yA,xB,yB:real):real;
 begin
 Leng:=sqrt(sqr(xA - xB) + sqr(yA - yB));
 end;
 function Perim(xA,yA,xB,yB,xC,yC:real):real;
 begin
  Perim:=Leng(xA,yA,xB,yB)+Leng(xC,yC,xB,yB)+Leng(xC,yC,xA,yA);
 end;
  function Area(xA,yA,xB,yB,xC,yC:real):real;
 var p,AB,AC,BC:real;
 begin
  p:=Perim(xA,yA,xB,yB,xC,yC)/2;
  AB:=Leng(xA,yA,xB,yB);
  AC:=Leng(xA,yA,xC,yC);
  BC:=Leng(xB,yB,xC,yC);
  Area:=sqrt(p*(p-AB)*(p-AC)*(p-BC));
 end;
 function Dist(xP,yP,xA,yA,xB,yB:real):real;
 begin
 Dist:=2*Area(xP,yP,xA,yA,xB,yB)/Leng(xA,yA,xB,yB);
 end;
 procedure Heights(xA,yA,xB,yB,xC,yC:real; var hA,hB,hC:real);
 begin
 hA:=Dist(xA,yA,xB,yB,xC,yC);
 hB:=Dist(xB,yB,xA,yA,xC,yC);
 hC:=Dist(xC,yC,xA,yA,xB,yB);
 end;
 
 var xA,yA,xB,yB,xC,yC,xD,yD,hA,hB,hC,hD:real;
begin
  //Task('Proc60');
 write('Введите координаты точек A,B,C,D: ');
 read(xA,yA,xB,yB,xC,yC,xD,yD);
 Heights(xA,yA,xB,yB,xC,yC,hA,hB,hC); 
 writeln('Высоты треугольника ABС: hA=',hA:4:2,' hB=',hB:4:2,' hC=',hC:4:2);
 Heights(xA,yA,xB,yB,xD,yD,hA,hB,hD); 
 writeln('Высоты треугольника ABD: hA=',hA:4:2,' hB=',hB:4:2,' hD=',hD:4:2);
 Heights(xA,yA,xC,yC,xD,yD,hA,hC,hD); 
 writeln('Высоты треугольника ACD: hA=',hA:4:2,' hC=',hC:4:2,' hD=',hD:4:2);
end.

//PascalABC.NET

//Proc60. Используя функцию Dist из задания Proc59, описать процедуру

//Heights(xA, yA, xB, yB, xC, yC, hA, hB, hC), находящую высоты hA, hB, hC

//треугольника ABC (выходные параметры), проведенные соответственно из вершин

//A, B, C (их координаты являются входными параметрами). С помощью этой

//процедуры найти высоты треугольников ABC, ABD, ACD,если даны координаты

//точек A, B, C, D.

//uses PT4;

function Leng(xA,yA,xB,yB:real):real;

begin

Leng:=sqrt(sqr(xA - xB) + sqr(yA - yB));

end;

function Perim(xA,yA,xB,yB,xC,yC:real):real;

begin

Perim:=Leng(xA,yA,xB,yB)+Leng(xC,yC,xB,yB)+Leng(xC,yC,xA,yA);

end;

function Area(xA,yA,xB,yB,xC,yC:real):real;

var p,AB,AC,BC:real;

begin

p:=Perim(xA,yA,xB,yB,xC,yC)/2;

AB:=Leng(xA,yA,xB,yB);

AC:=Leng(xA,yA,xC,yC);

BC:=Leng(xB,yB,xC,yC);

Area:=sqrt(p*(p-AB)*(p-AC)*(p-BC));

end;

function Dist(xP,yP,xA,yA,xB,yB:real):real;

begin

Dist:=2*Area(xP,yP,xA,yA,xB,yB)/Leng(xA,yA,xB,yB);

end;

procedure Heights(xA,yA,xB,yB,xC,yC:real; var hA,hB,hC:real);

begin

hA:=Dist(xA,yA,xB,yB,xC,yC);

hB:=Dist(xB,yB,xA,yA,xC,yC);

hC:=Dist(xC,yC,xA,yA,xB,yB);

end;

var xA,yA,xB,yB,xC,yC,xD,yD,hA,hB,hC,hD:real;

begin

//Task('Proc60');

write('Введите координаты точек A,B,C,D: ');

read(xA,yA,xB,yB,xC,yC,xD,yD);

Heights(xA,yA,xB,yB,xC,yC,hA,hB,hC);

writeln('Высоты треугольника ABС: hA=',hA:4:2,' hB=',hB:4:2,' hC=',hC:4:2);

Heights(xA,yA,xB,yB,xD,yD,hA,hB,hD);

writeln('Высоты треугольника ABD: hA=',hA:4:2,' hB=',hB:4:2,' hD=',hD:4:2);

Heights(xA,yA,xC,yC,xD,yD,hA,hC,hD);

writeln('Высоты треугольника ACD: hA=',hA:4:2,' hC=',hC:4:2,' hD=',hD:4:2);

end.

Ответить

Процедуры и функции: группа Proc

Процедуры с числовыми параметрами

Функции с числовыми параметрами

Дополнительные задания на процедуры и функции

Комментарии:

Комментарии 13

Добавить комментарий Отменить ответ