![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 25.06.2015
Сообщений: 5
|
![]()
Для данных областей составить линейную программу,которая печатает true,если точка с координатами (x,y) принадлежит закрашенной области,и false- в противном случае
|
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,504
|
![]()
Я так скажу - чукча не математик, чукча программист..
Поэтому, если опишите все это математически, то я обещаю, переведу все это на Паскаль в виде функции. Фактически надо решить задачу, где даны координаты всех вершин 4-угольника. Ответом будут 4 неравенства . Кстати, что значит линейную программу , в Паскале вроде нет такого понятия. И еще - такие типы можно использовать? Записи (record) вы уже проходили? PS Хотя в таком общем виде слишком сложно. Можно наверное считать, что две стороны обязательно лежат на осях координат. Тогда входными данными будут 4 числа - x1, x2, y1, y2 Последний раз редактировалось type_Oleg; 25.06.2015 в 22:18. |
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 25.06.2015
Сообщений: 5
|
![]()
Record не проходили.
Есть небольшой набросок только: var x,y:real; begin readln(x,y); writeln((x/6+y/6<=1) and (x/2+y/4>=1) and (x>0) and (y>0)); readln end. |
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,504
|
![]()
Ну, так все же решено. Что еще нужно?
Правда, только частный случай, именно для этих координат. Можете заменить 2,6,4,6 на x1, x2, y1, y2 соответственно. Можно в виде функции сделать Код:
|
![]() |
![]() |
![]() |
#5 |
Новичок
Джуниор
Регистрация: 25.06.2015
Сообщений: 5
|
![]()
writeln который печатает true,можете к программе дописать?
|
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,504
|
![]()
Не понял. А этот что печатает?
Вы запускали ? Может быть у вас Паскаль какой-то своеобразный. У меня и FPC и Delphi нормально WriteLn логические типы понимает. Ну, если что, сделайте так Код:
Последний раз редактировалось type_Oleg; 25.06.2015 в 23:10. |
![]() |
![]() |
![]() |
#7 |
Новичок
Джуниор
Регистрация: 25.06.2015
Сообщений: 5
|
![]()
спасибо большое
|
![]() |
![]() |
![]() |
#8 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,504
|
![]() |
![]() |
![]() |
![]() |
#9 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]() Цитата:
"Линейная" программа - это программа, которая выполняется последовательно, т.е. не имеет ВЕТЛЕНИЙ. If - это условный оператор, после него две ветки выполнения образуются. не надо идти на поводу у паники. Код:
Да и исходя из условия задания, именно его и нужно использовать. извините за ремарку.. |
|
![]() |
![]() |
![]() |
#10 |
Форумчанин
Регистрация: 22.07.2015
Сообщений: 138
|
![]()
А еще можно нарисовать область и через getpixel читать.
)))
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
определить принадлежность точки закрашенной области | Hikerr | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 25.05.2013 09:20 |
определить принадлежность точки заштрихованной области | Fatal Error | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 02.07.2012 08:42 |
Определить принадлежность точки к области | Fuckkiller | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 21.12.2011 23:28 |
Определить принадлежность точки к области | xrumas | Общие вопросы Delphi | 1 | 02.12.2011 02:20 |
Определить принадлежность точки к области. | Водонька | Помощь студентам | 2 | 02.10.2011 16:47 |