Pascal — Страница 97 — Клёвый код

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

Begin30. Дано значение угла $\alpha$ в радианах $(0<\alpha<2\pi)$ . Определить значение этого же угла в градусах, учитывая, что $180^o=\pi$ радианов. В качестве значения $\pi$ использовать 3.14.

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

Begin28. Дано число $A$ . Вычислить $A^{15}$ , используя две вспомогательные переменные и пять операций умножения. Для этого последовательно находить $A^2$ , $A^3$ , $A^5$ , $A^{10}$ , $A^{15}$ . Вывести все найденные степени числа $A$ .

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

Begin27. Дано число $A$ . Вычислить $A^8$ , используя вспомогательную переменную и три операции умножения. Для этого последовательно находить $A^2$ , $A^4$ , $A^8$ . Вывести все найденные степени числа $A$ .

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

Begin26. Найти значение функции $y = 4*(x-3)^6-7*(x-3)^3+2$ при данном значении $x$ .

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

Begin25. Найти значение функции $y=3*x^6-6*x^2-7$ при данном значении $x$ .

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

[latexpage] Begin24. Даны переменные $A$ , $B$ , $C$ . Изменить их значения, переместив содержимое $A$ в $C$ , $C$ — в $B$ , $B$ — в $A$ , и вывести новые значения переменных $A$ , $B$ , $C$ .

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

Begin23. Даны переменные $A$ , $B$ , $C$ . Изменить их значения, переместив содержимое $A$ в $B$ , $B$ — в $C$ , $C$ — в $A$ , и вывести новые значения переменных $A$ , $B$ , $C$ .

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

[latexpage] Begin22. Поменять местами содержимое переменных $A$ и $B$ и вывести новые значения $A$ и $B$ .

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

Begin21. Даны координаты трех вершин треугольника: $(x_1, y_1)$ , $(x_2, y_2)$ , $(x_3, y_3)$ . Найти его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости (см. задание Begin20. Для нахождения площади треугольника со сторонами $a$ , $b$ , $c$ использовать формулу Герона: $S =\sqrt{p*(p-a)*(p-b)*(p-c)}$ , где $p=(a+b+c)/2$ — полупериметр.

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

Begin20. Найти расстояние между двумя точками с заданными координатами $(x_1, y_1)$ и $(x_2, y_2)$ на плоскости. Расстояние вычисляется по формуле $\sqrt{(x_2 — x_1 )^2 + ( y_2 — y_1 )^2}$ .