Занятие 6. Решение задач

Выберите с учителем задачи . Для их решения используйте как пройденный материал, так и материал ниже следующих занятий.

1. Даны координаты вершин четырехугольника ABСВ. Найти сумму длин его диагоналей. Данные для ввода: A(0,1), B(2,5), C(4,8), D(2,0).

2. Найти сумму площадей треугольников ABC и МНР, заданных координатами вершин. Данные для ввода: А(0;1), В(3;1), С(4;2), М(6;7), Н(4;3), Р(3;8).

3. Найти сумму периметров треугольников ABC и МНР, заданных координатами вершин. Данные для ввода: А(0;1), В(3;1), С(4;2), М(6;7), Н(4;3), Р(3;8).

4. Вычислить 1!+2!+3!+......+N! . Вычисление факториала организовать как функцию fact(var r:integer):longint.

5. Составить программу поиска большего из трёх чисел, с использованием процедуры поиска большего из двух чисел.

6. Определить длину окружности С и площадь круга S, удаление L центра окружности от начала координат О. Координаты центра окружности равны X и Y, радиус R.

Вычисление С, S, L оформить в виде процедуры.

7. Составьте функцию для определения значений n!, m!,(n-m)!

8. Напишите функцию CUBЕ, которая возвращает куб ее числового параметра.

9. Напишите функцию, которая возвращает объем сферы, радиус которой передается как параметр.

10. Для заданного х составить алгоритм вычисления значения выражения:

11. Для заданного х составить алгоритм вычисления значения выражения:

12. Напишите функцию CUBЕ, которая возвращает куб ее числового параметра.

13. Составьте программу для определения значений n!, m!,(n-m)!

14. Вычислить 1!+2!+3!+......+N! . Вычисление факториала организовать как функцию fact (var r:integer) : longint.

15. Напишите функцию, которая возвращает объем сферы, радиус которой передается как параметр.

16. По координатам вершин двух треугольников, определите их площадь и выведите на печать площадь максимального треугольника. Вычисление длины стороны, площади треугольника оформите в виде функций.

17. Дана отрезки а, b, c, d. Для каждой тройки отрезков, из которых можно построить треугольник, напечатайте площадь данного треугольника. Воспользуйтесь функциями определения возможности создания треугольника и вычисления площади.

18. С клавиатуры вводятся числа, до тех пор, пока не будет введено первое отрицательное число. Определите, сколько чисел из входного потока, равно сумме кубов своих цифр. При решении задачи используйте функцию, которая будет проверять, равно ли натуральное число сумме кубов своих цифр.

19. Напишите функцию логического типа, проверяющую, являются ли все цифры, входящие в натуральную запись, числа N различными.

20. Даны два натуральных числа. Проверить, является ли второе число перевертышем первого.

21. Составьте программу подсчета числа всех натуральных чисел, меньших М, квадрат суммы цифр которых равен Х.

22. Составьте программу подсчета числа всех натуральных чисел, меньших М и делящихся на каждую из своих цифр.

23. Составьте программу нахождения наименьшего натурального N-значного числа Х (X>=10), равного утроенному произведению своих цифр.

24. Дано натуральное число. Определите, сколько четных цифр используется в записи этого числа.

25. Дана последовательность К чисел. Определите, сколько чисел этой последовательности содержит в своей записи все цифры больше некоторого числа n введенного с клавиатуры.

26. Для последовательности вводимых с клавиатуры чисел, выведите суммы цифр каждого введенного числа. Признак конца ввода - число -1.