Попадение точек в область, ограниченную тремя линиями

1. Содержательная постановка задачи
1.1. Формулировка условия задачи
1.2. Пример решения задачи
2. Формализованная постановка задачи
2.1. Способ получения результатов по исходным данным
2.2. Выбор и описание метода решения задачи
2.3. Исходные данные и форма их представления
2.4. Форма представления результатов выполнения программы
2.5. Перечень исключительных ситуаций и требуемой реакции программы
3. Алгоритмизация
3.1. Разработка схемы программы
4. Программирование и отладка
4.1. Текст программы
5. Испытания программы
5.1. Пример 1
5.2. Пример 2
6. Краткая характеристика программы
7. Заключение
+ см. программу

x; {исходные координаты точек}
y := enum_Point[i].y;
y1 := x*x - x + 1; {расчет точек ограничивающих линий}
y2 := sqrt(1.5*x);
y3 := k*cos(x+0.25);
{Запись точки в подмножество при условии
попадания в ограниченную область}
if (y>y1) AND (y<y2) AND (y2<y3) then
begin
j := j + 1;
enum_in_D[j] := enum_Point[i];
numk := numk+1;
end;
if (y>y1) AND (y<y3) AND (y3<y2) then
begin
j := j + 1;
enum_in_D[j] := enum_Point[i];
numk := numk+1;
end;
end;
{Вывод на экран результатов}
if(numk > 0) then
begin
WriteLn('При k = ',k:3:1,' в подмножество M попало ',numk,' точек');
for i:=1 to numk do
begin
WriteLn('Точка N ',i);
WriteLn('x: ',enum_in_D[i].x:5:3);
WriteLn('y: ',enum_in_D[i].y:5:3);
end;
end
else WriteLn('При k = ',k:3:1,' в подмножество не попала ни одна точка');
k := k+0.1;
numk:=0;
WriteLn('Для продолжения нажмите любую клавишу');
Repeat until keypressed;
ReadLn;
end;
WriteLn('Для выхода нажмите любую клавишу');
Repeat until keypressed;
END.
5. Испытания программы
Испытания программы проводятся на контрольных примерах. Результаты выполнения программы на заданном наборе исходных данных должны совпадать с аналитическим решением.
Второй контрольный пример предназначен для проверки работы программы в случае, когда среди исходных точек нет тех, которые попадают в замкнутую область.
5.1. Пример 1.
Рис.2. Ввод данных.
Рис.3. Расчет данных.
5.2. Пример 2.
Рис.3. Ввод данных.
Рис. 4. Результат работы программы.
6. Краткая характеристика программы
Файл для запуска: Prog.exe.
Назначение программы: служит для поиска точек, находящихся в замкнутой области, ограниченной тремя линиями.
Формат вызова программы: >Prog.exe<Enter>.
Объем программы на носителе данных: 9,12 Кб.
 7. Заключение
Программа отлажена на компьютере Intel Celeron 1700 и функционирует без сбоев.