![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
samec |
![]()
Сообщение
#1
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 180 Пол: Мужской Реальное имя: Юра Репутация: ![]() ![]() ![]() |
Добрый день всем! Задачка следующая: Составить программу, определяющую, принадлежит ли точка с координатами (x,y) заданной фигуре. Заданная фигура в прикрепленном файле. Использовать в программе можно только операторы присваивания, ввода и вывода, сравнения, условные операторы.
Натолкните на мысль - как это сделать? Эскизы прикрепленных изображений ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Принцип решения - тот же, что и вот тут: проверка вхождения точки в заданную область
|
samec |
![]()
Сообщение
#3
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 180 Пол: Мужской Реальное имя: Юра Репутация: ![]() ![]() ![]() |
спасибо большое. Вопрос решен
![]()
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var
x,y:real;
Begin
write('Введите координату x: ');
readln(x);
write('Введите координату y: ');
readln(y);
if (x*x+y*y >= 25) and (y>=0) and (x>=0) and (y+0.85*x<=17) then
writeln('Заданная точка принадлежит многоугольнику')
else
writeln('Заданная точка не принадлежит многоугольнику');
readln;
End.
Сообщение отредактировано: samec - 1.07.2008 15:31 |
![]() ![]() |
![]() |
Текстовая версия | 27.07.2025 21:24 |