Практическое задание
Задание 1. Даны координаты трех вершин треугольника. Найти длины всех его сторон. Написать функцию function OtrLength(x1,y1,x2,y2:integer):real
Задание 2. Используя процедуру решения квадратного уравнения, напишите программу решения биквадратного уравнения ax^4 + bx^2 +c=0
Задание 3. Дано натуральное число N. Среди чисел 1, 2, 3, …., N найти все, которые можно представить в виде суммы квадратов двух натуральных чисел. Описать функцию function Is Square(x:real):boolean
Задание 4. Написать функцию, находящую минимальное из четырех введенных чисел. function Min(a,b,c,d:real):real
Задание 5. Написать функцию проверки принадлежности точки с координатами (x,y), кольцу с центром (x0, y0) , внутренним радиусом R1 и внешним радиусом R2. Ввести два массива X и Y из N < 10 вещественных чисел. Для каждой пары чисел X[i]Y[i] вывести, принадлежит точка кольцу или нет.
Комментариев нет:
Отправить комментарий