помогите пожалуйсто=) я в Паскале ничего не понимаю. а завтра уже надо сдавать 1. . Используя стандартные функции, Найти значение функции Y(X) при заданном X вычислить Y11=[Y], где [ ] означают целую часть от числа Y22. 2. Записать выражение, зависящее от координат точки X1 и Y2 и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит. Для заданной точки вычислить это выражение и результат выдать на печать.
Замарочка
24.01.2006 0:05
Цитата(Wolf_ @ 23.01.2006 23:28)
помогите пожалуйсто=) я в Паскале ничего не понимаю. а завтра уже надо сдавать 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.
Давай соображай извилинами...
Wolf_
24.01.2006 0:12
Понимаешь там У задан формулой. (на картинке) а как ее перевести на язык Паскаля я незнаю=(
Altair
24.01.2006 1:41
не вижу какие степени на картинке... но вообще не важно, представь свой корень в виде степени, а дальше смотри классический способ возведения в степень вот здесь
function y(x:double):double; var tx:double; begin tx:=x+ Exp((1/4)*Ln(abs(x))); y:=Exp((1/x)*Ln(tx)) end;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.