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

Лабораторная работа. Вариант 6. ЛР Геометрическая задача Цель работы: / задача из РК программа в Pascal Lazarus. В архиве также файл с объяснениями работы программы. Тэги: Программа на Lazarus, PascalObject, Pascal, Delphi, Turbo Delphi, Pascal ABC / Анимация, ЛР, РК, ДЗ, 2023 Условия для программы, под которые она выполнена: Геометрическая задача - Составить программу по определению попадания точки с введенными пользователем координатами в замкнутую область, образованную двумя прямыми и абсциссой. Прямые определить коэффициентами для уравнений их графиков. Коэффициенты вводить пользователем. Проверить существование замкнутой области. Область не должна выходить за пределы первой четверти.

Раздел \"тесты\" дополнить графическими иллюстрациями графиков, используемых при тестированиях для наглядного представления результов. Тесты: определению попадания точки с введенными пользователем координатами в замкнутую область, образованную двумя прямыми и абсциссой. Прямые определить коэффициентами для уравнений их графиков. Коэффициенты вводить пользователем. Проверить существование замкнутой области. Область не должна выходить за пределы первой четверти. Программа в сделанном виде:  Программа выполняет проверку принадлежности точки замкнутой области, ограниченной двумя прямыми и абсциссой (осью Х). Основные шаги программы: 1.Ввод координат точек для первой прямой: •Предлагается ввести координаты двух точек (x1, y1) и (x2, y2), которые будут использоваться для определения уравнения первой прямой.

2.Вычисление коэффициентов для первой прямой: •Используются введенные координаты для вычисления коэффициентов уравнения прямой y = a1*x + b1. 3.Ввод координат точек для второй прямой: •Предлагается ввести координаты двух точек (x1, y1) и (x2, y2), которые будут использоваться для определения уравнения второй прямой. 4.Вычисление коэффициентов для второй прямой: •Используются введенные координаты для вычисления коэффициентов уравнения прямой y = a2*x + b2. 5.Проверка области в первой четверти: •Программа проверяет, что замкнутая область не выходит за пределы первой четверти. Это делается сравнением коэффициентов b1 и b2 с нулем. 6.Проверка существования замкнутой области: •Программа проверяет, что уравнения прямых не совпадают (a1 ≠ a2), чтобы область была замкнутой.

7.Ввод координат точки для проверки: •Пользователю предлагается ввести координаты точки (x, y), которую программа будет проверять на принадлежность замкнутой области. 8.Проверка принадлежности точки области: •Программа использует уравнения прямых, чтобы определить, принадлежит ли точка замкнутой области. 9.Вывод результата: •Программа выводит сообщение о том, принадлежит ли введенная точка замкнутой области или нет. Пример работы: Код программы: program program1; var x, y: real; x1, y1, x2, y2: real; // координаты точек для задания прямой a1, b1, a2, b2: real; // коэффициенты для уравнения прямой y = a1*x + b1 и y = a2*x + b2 begin // Ввод координат точек для первой прямой writeln(\'Vvod koordinat tochek dlya pervoy pryamoy\'); write(\'Vvedite x1: \'); readln(x1); write(\'Vvedite y1: \'); readln(y1); write(\'Vvedite x2: \'); readln(x2); write(\'Vvedite y2: \'); readln(y2); // Вычисление коэффициентов для первой прямой a1 := (y2 - y1) / (x2 - x1); b1 := y1 - a1 * x1; // Ввод координат точек для второй прямой writeln(\'Vvod koordinat tochek dlya vtoroy pryamoy\'); write(\'Vvedite x1: \'); readln(x1); write(\'Vvedite y1: \'); readln(y1); write(\'Vvedite x2: \'); readln(x2); write(\'Vvedite y2: \'); readln(y2); // Вычисление коэффициентов для второй прямой a2 := (y2 - y1) / (x2 - x1); b2 := y1 - a2 * x1; // Проверка, что замкнутая область не выходит за пределы первой четверти if ((b1 >= 0) or (b2 >= 0)) then writeln(\'Oblast nahoditsya v pervoy chetverti\') else writeln(\'Vnimanie!!! Oblast vykhodit za predely pervoy chetverti\'); writeln; // пустая строка // Проверка существования замкнутой области if (a1 = a2) then //проверка на то, что прямые не параллельны writeln(\'Vnimanie!!! Pryamaya analogiya, oblast ne sushchestvuyet\'); // Ввод координат точки writeln(\'Vvedite koordinati tochki dlya proverki\'); write(\'Vvedite koordinatu x: \'); readln(x); write(\'Vvedite koordinatu y: \'); readln(y); // Проверка принадлежности точки замкнутой области if ((x >= 0) and (y >= 0) and (y <= a1 * x + b1) and (y <= a2 * x + b2)) then writeln(\'Tochka prinadlezhit zamknutoy oblasti\') else writeln(\'Tochka ne prinadlezhit zamknutoy oblasti\'); readln; end..