Арифметические выражения и условные операторы

[Kolyanich]

С помощью условного оператора определить, находится ли точка на плоскости в замкнутой области. Если находится, то вычислить значение функции f1 (x, y), если нет – то значение функции f2 (x, y). Результаты выдать на экран монитора. Значения x и y ввести с клавиатуры.

[Kolyanich]

uses crt;
var x,y,z:real;
begin
clrscr;
writeln('Введите x,y');
readln(x,y);
if ((x>=-2)and(x<=0)and(y>=0)and(y<=1))
or ((x>0)and(x<=1)and(y>=0)and(y<=-x+1))
or ((x>=-2)and(x<=0)and(y<0)and(4*y*y+x*x<=4 ))then
*begin
* writeln('Точка попадает в область');
* write('f=',sqr(sin(x)+sin(y)/cos(y))*(sin(x)+sin(y)/cos(y)):0:3)
*end
else
*begin
* writeln('Точка не попадает в область');
* if (x=0)or(y=0) then write('Функция не определена')
* else
* *begin
* * z:=exp(1/(x*x)+1/(y*y));
* * if z<0 then write('Функция не определена')
* * else write('f=',sqrt(z):0:3)
* *end
*end;
readln
end.

[BDA]

1) Используйте кнопочку Решетка # для оформления кода
2) Условие можно упростить
3) Проверка z, по-моему, не имеет смысла (всегда положительна)
4) Используйте кнопочку Редактировать, чтобы дописывать свой пост, а не пишите несколько постов подряд

uses crt;

var
  x, y: real;

begin
  clrscr;
  writeln('Введите x, y');
  readln(x, y);
  if ((x >= -2) and (x <= 0) and (y >= -sqrt(1 - x * x / 4)) and (y <= 1)) or
    ((x > 0) and (y >= 0) and (y <= -x + 1)) then
  begin
    writeln('Точка попадает в область');
    write('f = ', sqr(sin(x) + sin(y) / cos(y)) * (sin(x) + sin(y) / cos(y)):0:3);
  end
  else
  begin
    writeln('Точка не попадает в область');
    if (x = 0) or (y = 0) then
      write('Функция не определена')
    else
      write('f = ', sqrt(exp(1 / (x * x) + 1 / (y * y))):0:3);
  end;
  readln;
end.

Численные примеры Вам придется попридумывать самому