IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Разветвляющийся вычислительный процесс
Wolfbert74
сообщение 26.05.2013 10:30
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


А здравствуйте, а проверьте пожалуйста решение задания:
Пусть D – заштрихованная часть плоскости, и пусть задана точка своими координатами (X, Y). Запись (X, Y) принадлежит D означает, что точка с координатами X, Y лежит внутри заштрихованной области D. Определить значение функции U следующим образом:
U =X2-1, если (X,Y) принадлежит D,
| X-1 |, в противном случае.
Прикрепленное изображение

var
x,y,u:real;
begin
write('Введите x,y ');
readln(x,y);
if ((x>0) and (y>0) and (x*x+y*y<0.3*0.3)) or (y<0) or (x*x+y*y>1) then
U:=abs(x-1)
else
U:=sqr(x)-1;
writeln(u);
end.


Заранее большое спасибо!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
APAL
сообщение 28.05.2013 13:59
Сообщение #2


Смотрю...
*****

Группа: Модераторы
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


Да вроде как все правильно.


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.06.2025 13:58
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"