Проверка знаний — Страница 66

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

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$ -факториал). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и вывести его как вещественное число.