Помощь - Поиск - Пользователи - Календарь
Полная версия: Разветвляющийся вычислительный процесс
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Wolfbert74
А здравствуйте, а проверьте пожалуйста решение задания:
Пусть 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.


Заранее большое спасибо!
APAL
Да вроде как все правильно.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.