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

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

begin

j := j + 1;

enum_in_D[j] := enum_Point[i];

numk := numk+1;

end;

if (y>y1) AND (y

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.

Объем программы на носителе данных: 9,12 Кб.

7.

Заключение

Программа отлажена на компьютере Intel Celeron 1700 и функционирует без сбоев.