Работа с Pascal, помощь школьнику

[Jarebeck]

Перешел в новую школу, а там уклон на икт, не все догоняю...
С первой частью разобрался, а вот что делать с U и как его считать я без понятия.
_______________
Даны три целых числа A, B, C (1,2,3). Определить значения переменных X, Y, Z. Вывести их на экран дисплея. Пусть D1 и D2 - заштрихованные части плоскости (см. рисунок ниже), и пусть U определяется как функция X и Y.
Вывести U на экран дисплея.


______________________________
Пока встал на этом:


Заранее благодарю Вас за любую помощь.

[Legioner93]

Я вам называю пары $(X,Y)$:
1) (1,0)
2) (1,1)
3) (0.7, 0.7)
4) (-1, -1.1)
5) (0, -3)
6) (-0.9, -0.9)
и так далее

Можете для каждой пары определить вхождение в $D_1$ или $D_2$ или ни в одно из них? Каким образом это делать, что проверить нужно?

[rockclimber]

А проблема-то в чем? Что именно не получается?
В код не вчитывался буквально, но в глаза явно бросается ошибка в третьей строке снизу - после else идет три оператора, которые надо включить внутрь операторных скобок:

else
Begin
  x:= a;
  y:= b;
  z:= c;
End;

Если оставить как у вас, то в ветви else будет выполняться только первое присвоение, остальные будут срабатывать всегда независимо от условий.

И зачем вы делаете такие конские отступы? Читать неудобно же.

[Jarebeck]

Всем спасибо, замутил таки...

Закончил программу этим кодом:

.....else begin x := a; y := b; z := c;
if (x*x+y*y <= 1) and not ((x>0) and (y < 0)) then u := cos(x*y)
else if (x < 0) and (y < 0) and (y <= -x-2) then u := sin(x*y)
else u := z+5
end;
writeln......

Тему можно закрыть

[Toucan]

Jarebeck, замечание за неиспользование тегов [syntаx]/[cоde] при включении в сообщение текста программы.