вычисление выражений, Найти значение функции Y(X) при заданном X Опции

[Wolf_]

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

[Замарочка]

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

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

Тело проги:

uses  crt;
var
          x,x1,y,y1:real;
begin
      clrscr;
      writeln('Введите x:');
      readln(x);
      y:=sin(x)/cos(x)+abs(x);
      writeln('при х=',x:8:3,'  y=',y:8:4);
      writeln('y11=',trunc(y):4,'  y22=',round(y):4);
      writeln('Введите координату исследуемой точки по оси х');
      readln(x1);
      writeln(''Введите координату исследуемой точки по оси y ');
      readln(y1);
  if (x1>=0) and (y1>=-1) and (y1<=1) and (sqr(x1)+sqr(y1)<=1)
 then
      writeln ('принадлежит заштрихованной области')
else
      writeln (''не принадлежит заштрихованной области'');
      readln;
end.

Давай соображай извилинами...

Сообщение отредактировано: volvo - 7.11.2006 22:20

[Wolf_]

Понимаешь там У задан формулой. (на картинке) а как ее перевести на язык Паскаля я незнаю=(

[Altair]

не вижу какие степени на картинке...
но вообще не важно, представь свой корень в виде степени, а дальше смотри классический способ возведения в степень вот здесь

function y(x:double):double;
var
 tx:double;
begin
 tx:=x+ Exp((1/4)*Ln(abs(x)));
 y:=Exp((1/x)*Ln(tx))
end;