помогите пожалуйсто=) я в Паскале ничего не понимаю. а завтра уже надо сдавать 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;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.