Param69. Используя тип TPoint и функцию Leng (см. задание Param64), описать функцию PerimN($$P$$, $$N$$) вещественного типа, находящую периметр N-угольника, вершины которого (в порядке их обхода) передаются в массиве $$p$$ размера $$N$$ $$(>2)$$ с элементами типа TPoint. С помощью этой функции найти периметры трех многоугольников, если дано число их сторон и координаты их вершин.
Рубрика «Проверка знаний»
Решаем задачи Абрамян на Паскале. Pointer41
Pointer41. Дан указатель $$P_0$$ на один из элементов непустого двусвязного списка. Удалить из списка данный элемент и вывести два указателя: на элемент, предшествующий удаленному, и на элемент, следующий за удаленным (один или оба этих элемента могут отсутствовать; для отсутствующих элементов выводить $$nil$$). После удаления элемента из списка освободить память, занимаемую этим элементом.
Решаем задачи Абрамян на C. For21
For21. Дано целое число $$N$$ ($$> 0$$). Используя один цикл, найти сумму $$1 + 1/(1!) + 1/(2!) + 1/(3!) +…+ 1/(N!)$$ (выражение $$N!$$ — $$N$$-факториал — обозначает произведение всех целых чисел от 1 до N: $$N! = 1*2*…*N$$). Полученное число является приближенным значением константы $$e = exp(1)$$.
Решаем задачи Абрамян на C. While13
While13. Дано число $$A$$ ($$> 1$$). Вывести наименьшее из целых чисел $$K$$, для которых сумма $$1 + 1/2 + …+ 1/K$$ будет больше $$A$$, и саму эту сумму.
Решаем задачи Абрамян на Паскале. Param68
Param68. Используя типы TPoint, TTriangle и функцию Dist (см. задания Param64, Param65, Param67), описать процедуру Heights($$T$$, $$h_1$$, $$h_2$$, $$h_3$$), находящую высоты $$h_1$$, $$h_2$$, $$h_3$$ треугольника $$T$$ ($$T$$ — входной параметр типа TTriangle, $$h_1$$, $$h_2$$, $$h_3$$ — выходные вещественные параметры), проведенные соответственно из вершин $$T.A$$, $$T.B$$, $$T.C$$. С помощью этой процедуры найти высоты треугольников $$ABC$$, $$ABD$$, …
Решаем задачи Абрамян на C. For20
For20. Дано целое число $$N$$ ($$> 0$$). Используя один цикл, найти сумму $$ 1! + 2! + 3! + … + N! $$ (выражение $$ N! $$ — $$N$$-факториал — обозначает произведение всех целых чисел от $$1$$ до $$N$$: $$ N! = 1*2*…*N $$). Чтобы избежать целочисленного переполнения, проводить вычисления с помощью вещественных переменных и …
Решаем задачи Абрамян на Паскале. Pointer40
Pointer40. Дан указатель $$P_1$$ на первый элемент непустого двусвязного списка. Продублировать в списке все элементы с нечетными значениями (новые элементы добавлять после существующих элементов с такими же значениями) и вывести указатель на последний элемент преобразованного списка.
Решаем задачи Абрамян на C. While12
While12. Дано целое число $$N$$ ($$> 1$$). Вывести наибольшее из целых чисел $$K$$, для которых сумма $$1 + 2 + … + K$$ будет меньше или равна $$N$$, и саму эту сумму.
Решаем задачи Абрамян на Паскале. Param67
Param67. Используя типы TPoint, TTriangle и функции Leng и Area (см. задания Param64-Param66), описать функцию Dist($$P$$, $$A$$, $$B$$) вещественного типа ($$P$$, $$A$$, $$B$$ — параметры типа TPoint), находящую расстояние $$D(P, AB)$$ от точки $$P$$ до прямой $$AB$$ по формуле $$D(P, AB)=2*S_{PAB}/|AB|$$, где $$S_PAB$$ — площадь треугольника $$PAB$$. С помощью этой функции найти расстояния от точки …
Решаем задачи Абрамян на C. For19
For19. Дано целое число $$N$$ ($$> 0$$). Найти произведение $$N! = 1*2*…*N$$ ($$N$$-факториал). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и вывести его как вещественное число.