Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.10.2010, 20:55   #1
Павел Тихомиров
Пользователь
 
Аватар для Павел Тихомиров
 
Регистрация: 31.10.2010
Сообщений: 16
По умолчанию Borland Pascal лаб.

Составить программу, которая определяет, принадлежит ли точка с ко-ординатами (х , у) заштрихованной области.
Не могу понять как составить оператор if then else.
Изображения
Тип файла: jpg Безымянный.JPG (7.2 Кб, 98 просмотров)
Павел Тихомиров вне форума Ответить с цитированием
Старый 02.11.2010, 15:10   #2
D@rkD@iver
Форумчанин
 
Регистрация: 28.07.2009
Сообщений: 189
По умолчанию

сделаю за умеренную плату
пишу программы для студентов и школьников на Pascal, Delphi, C++, WINAPI, assembler
обучаю программированию на паскале(дистанционно);mail: hruslow@gmail.com
D@rkD@iver вне форума Ответить с цитированием
Старый 02.11.2010, 15:34   #3
Niro
Форумчанин
 
Аватар для Niro
 
Регистрация: 23.09.2010
Сообщений: 682
По умолчанию

if (abs(x)+abs(y))<1 then writeln('принадлежит');
Проще всего признать свою ошибку.
Гораздо труднее еЁ осознать и исправить.
Niro вне форума Ответить с цитированием
Старый 09.11.2010, 15:26   #4
Павел Тихомиров
Пользователь
 
Аватар для Павел Тихомиров
 
Регистрация: 31.10.2010
Сообщений: 16
По умолчанию

А как составить оператор если картинка вот такая
Изображения
Тип файла: bmp Безымянный.bmp (186.1 Кб, 153 просмотров)
Павел Тихомиров вне форума Ответить с цитированием
Старый 09.11.2010, 15:35   #5
Риндера
Delphi, учу С
Форумчанин
 
Аватар для Риндера
 
Регистрация: 20.10.2010
Сообщений: 178
По умолчанию

if ((x*y) <= 0) and ((x*y) >= -1) then writeln('принадлежит');
Риндера вне форума Ответить с цитированием
Старый 09.11.2010, 15:53   #6
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

Написал ерунду, потом одумался и удалил...
У Риндеры верно!
Перемешивай дело с бездельем и не сойдешь с ума...

Последний раз редактировалось Grag; 09.11.2010 в 16:11.
Grag вне форума Ответить с цитированием
Старый 13.11.2010, 17:53   #7
Павел Тихомиров
Пользователь
 
Аватар для Павел Тихомиров
 
Регистрация: 31.10.2010
Сообщений: 16
По умолчанию

Цитата:
Сообщение от Niro Посмотреть сообщение
if (abs(x)+abs(y))<1 then writeln('принадлежит');
это не подходит под мой рисунок, то что ты предложил будет правильным если заштрихованой областью будет ромб.
Помогите составить оператор If then else для певрой картинки.
Павел Тихомиров вне форума Ответить с цитированием
Старый 13.11.2010, 19:07   #8
Риндера
Delphi, учу С
Форумчанин
 
Аватар для Риндера
 
Регистрация: 20.10.2010
Сообщений: 178
По умолчанию

Судя по нескольким тестам с различными координатами, произведение x*y не может быть больше 0,25 для первой картинки, тогда:
Код:
if (x*y >= 0) and (x*y <= 0,25) then writeln('принадлежит');
Риндера вне форума Ответить с цитированием
Старый 15.11.2010, 17:16   #9
Павел Тихомиров
Пользователь
 
Аватар для Павел Тихомиров
 
Регистрация: 31.10.2010
Сообщений: 16
По умолчанию

вот такая штука, если взять x=0.00000000005, а y=0.2, то пишет что не принадлежит

а, сори, я ошибся, все хорошо, огромное спасибо

Последний раз редактировалось Павел Тихомиров; 15.11.2010 в 17:19.
Павел Тихомиров вне форума Ответить с цитированием
Старый 15.11.2010, 17:19   #10
DRAgon™
Форумчанин
 
Аватар для DRAgon™
 
Регистрация: 14.03.2010
Сообщений: 362
По умолчанию

Вам надо график как в информатике или такой как на рисунке в математике?
Если в информатике ,то вам не подойдёт,потому что там ОсьY направлена вниз,а ОсьX вправо.
Вот программка ,которая преобразует график в математический:
Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)

Последний раз редактировалось DRAgon™; 15.11.2010 в 17:25.
DRAgon™ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачи на Borland Pascal Lerik09 Помощь студентам 6 20.10.2009 19:43
Borland Pascal 8. Ошибочка...:( spein Помощь студентам 5 27.02.2009 17:19
Средства графики Borland Pascal Morrigan13 Помощь студентам 3 26.04.2008 20:07
Нужен Borland Pascal 7.0? kuzmich Паскаль, Turbo Pascal, PascalABC.NET 6 08.12.2007 11:21
BP: Borland Pascal DruidD Помощь студентам 6 29.05.2007 20:06