Помощь - Поиск - Пользователи - Календарь
Полная версия: вычисление выражений
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Wolf_
помогите пожалуйсто=) я в Паскале ничего не понимаю. а завтра уже надо сдавать
1. . Используя стандартные функции, Найти значение функции Y(X) при заданном X вычислить Y11=[Y], где [ ] означают целую часть от числа Y22.
2. Записать выражение, зависящее от координат точки X1 и Y2 и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит. Для заданной точки вычислить это выражение и результат выдать на печать.
Замарочка
Цитата(Wolf_ @ 23.01.2006 23:28) *

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

Наверное что то типа этойsmile.gif
Задание:
Найти значение функции 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_
Понимаешь там У задан формулой. (на картинке) а как ее перевести на язык Паскаля я незнаю=(
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;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.