Param64. Описать тип TPoint — запись с полями вещественного типа $$X$$ и $$Y$$ (координаты точки на плоскости) — и функцию Leng($$A$$, $$B$$) вещественного типа, находящую длину отрезка $$AB$$ на плоскости по координатам его концов: $$|AB|=\sqrt{(A.X-B.X)^2+(A.Y-B.Y)^2}$$ . ($$A$$ и $$B$$ — параметры типа TPoint). С помощью этой функции найти длины отрезков $$AB$$, $$AC$$, $$AD$$, если даны …
Рубрика «Проверка знаний»
Решаем задачи Абрамян на Паскале. Param63
Param63. Используя тип TDate и функции DaysInMonth и CheckDate (см. задания Param59-Param61), описать процедуру NexTDate(DD) с параметром типа TDate, которая преобразует дату DD к следующей дате (если дата DDявляется неправильной, то она не изменяется). Запись DD является входным и выходным параметром. Применить процедуру NexTDate к пяти данным датам.
Решаем задачи Абрамян на Паскале. Pointer36
Pointer36. Даны указатели $$P_1$$ и $$P_2$$ на первый и последний элементы двусвязного списка, содержащего не менее двух элементов. Продублировать в списке первый и последний элементы (новые элементы добавлять после существующих элементов с такими же значениями) и вывести указатель на последний элемент преобразованного списка.
Решаем задачи Абрамян на C. While8
While8. Дано целое число $$N$$ ($$> 0$$). Найти наибольшее целое число $$K$$, квадрат которого не превосходит $$N$$: $$K^2\leq N$$. Функцию извлечения квадратного корня не использовать.
Решаем задачи Абрамян на C. For16
For16. Дано вещественное число $$A$$ и целое число $$N$$ ($$> 0$$). Используя один цикл, вывести все целые степени числа $$A$$ от $$1$$ до $$N$$.
Решаем задачи Абрамян на Паскале. Param62
Param62. Используя тип TDate и функции DaysInMonth и CheckDate (см. задания Param59-Param61), описать процедуру PrevDate ($$D$$) с параметром типа TDate, которая преобразует дату $$D$$ к предыдущей дате (если дата $$D$$ является неправильной, то она не изменяется). Запись $$D$$ является входным и выходным параметром. Применить процедуру PrevDate к пяти данным датам.
Решаем задачи Абрамян на C. For15
For15. Дано вещественное число $$A$$ и целое число $$N$$ ($$> 0$$). Найти $$A$$ в степени $$N$$: $$A^N = A*A*… *A$$ (числа $$A$$ перемножаются $$N$$ раз).
Решаем задачи Абрамян на C. While7
While7. Дано целое число $$N$$ ($$> 0$$). Найти наименьшее целое положительное число $$K$$, квадрат которого превосходит $$N$$: $$K^2 > N$$. Функцию извлечения квадратного корня не использовать.
Решаем задачи Абрамян на Паскале. Pointer35
Pointer35. Даны указатели $$P_1$$ и $$P_2$$ на первый и последний элементы двусвязного списка, содержащего не менее двух элементов. Продублировать в списке первый и последний элементы (новые элементы добавлять перед существующими элементами с такими же значениями) и вывести указатель на первый элемент преобразованного списка.
Решаем задачи Абрамян на C. For14
For14. Дано целое число $$N$$ ($$> 0$$). Найти квадрат данного числа, используя для его вычисления следующую формулу: $$N^2 = 1 + 3 + 5 + … + (2*N — 1)$$. После добавления к сумме каждого слагаемого выводить текущее значение суммы (в результате будут выведены квадраты всех целых чисел от 1 до $$N$$).