Помогите с программой

[podosi]

Помогите с программой

Постановка задачи.
Найти значение функции Y(X) при заданном X. Используя стандартные функции, вычислить Y11=[Y], где [ ] означают целую часть от числа Y22.
===============
Записать выражение, зависящее от координат точки X1 и Y2 и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит. Для заданной точки вычислить это выражение и результат выдать на печать.
===============
1) при Х=-4.4172
2) координаты исследуемой точки: (1.5;0.0)

график:

 

[podosi]

программу вроде написал проверьте правильность:

var x,x1,y,y1 :real;
begin
writeln ('vvedite x:');
read (x);
Y:=5*arctan(x);
WRITELN (' При Х=', X: 8:3, 'Y=', Y: 8:4);
WRITELN (' Y11=', TRUNC (Y): 4, 'Y22=', ROUND (Y): 4);
WRITELN ('ВВЕДИ КООРДИНАТЫ: Х1, Y1');
READLN (X1, Y1);
WRITELN ((y1>=0) and (X1+Y1<=2));
WRITELN ('Программу составил Толокнов')
END.

 

[Vladimir_S]

Извините - ничего не понял.
1.

вычислить Y11=[Y], где [ ] означают целую часть от числа Y22.

Какой-то бессвязный набор слов. Что такое Y22?
2. С чего Вы решили, что перед Вами - график упятеренного арктангенса? Для сведения: арктангенс 2 есть 1.1 (приблизительно), каковое число, будучи умножено на 5, дает 5.5, а вовсе не 1. Я бы сказал, что, если пренебречь изломом посередине, то это график функции Y=X/2.
3. Как-то странно сформулировано условие принадлежности точки к заштрихованной области. Я бы сформулировал так:
(X1>0) and (X1<2) and (Y1>0) and (Y1<X1/2)

 

[podosi]

извиняюсь график не тот.....
офф
можно ли на форуме редактировать сообщения?

 

[Vladimir_S]

извиняюсь график не тот.....

Так приведите "тот", предварительно заглянув сюда: http://www.tehnari.ru/f8/t32642/
Использование сторонних хостингов у нас не одобряется.

офф можно ли на форуме редактировать сообщения?

В течение ограниченного промежутка времени.

 

[podosi]

из графика требуется только описать условие принадлежности точки к заштрихованной области
график:

 

[Vladimir_S]

из графика требуется только описать условие принадлежности точки к заштрихованной области

Тут так:
(Y1>0) and (((X1>0) and (X1<1) and (Y1<1-X1)) or ((X1<0) and (X1>-1) and (Y1<1+X1)))
Неравенства, конечно, можно заменить нестрогими - это уж как понимать принадлежность граничных точек.

 

[podosi]

Тут так:
(Y1>0) and (((X1>0) and (X1<1) and (Y1<1-X1)) or ((X1<0) and (X1>-1) and (Y1<1+X1)))
Неравенства, конечно, можно заменить нестрогими - это уж как понимать принадлежность граничных точек.

а если неравенство несрогое,то как будет выглядеть?

 

[Vladimir_S]

а если неравенство несрогое,то как будет выглядеть?

Да просто вместо ">" поставить ">=", а вместо "<" поставить "<=". Тогда граничные точки тоже попадут в выделенную область.