Вычислить значение выражения (гиперболический тангенс и гиперболический котангенс)

@tomash111 · Регистрация: 06.03.2013

Author24 — интернет-сервис помощи студентам

1. Найти область допустимых значений аргумента x.
2. Написать процедуру или функцию, которая вычисляет область допустимых
значений аргумента x.
3. Написать процедуру или функцию, которая вычисляет значение выражения
f x .
4. Ввести аргумент x с помощью клавиатуры и определить, попадает ли он в
область допустимых значений. В случае попадания аргумента x в область допустимых
значений вычислить значение выражения f x и вывести его на экран монитора, в
случае непопадания аргумента x в область допустимых значений вывести об этом
информационное сообщение.
f(x)=(th(0.25x)/x)*cth(x^2+x-20)

@ermolay · 06.03.2013, 21:47

если правильно понял задание и не ошибся в расчетах..
вторая функция obl - второй вариант вычисления области допустимых значений аргумента, прикинул логически, первый вариант больше подходит по заданию.

Pascal

function obl(x: real): boolean;
begin
  if (x=0)
    or(exp(2*0.25*x)+1=0)
      or(exp(2*(x*x+x-20))-1=0)
        or(exp(2*(x*x+x-20))-1=0)
  then obl:=false
    else obl:=true;
end;
 
{function obl(x: real): boolean;
begin
  if (x=0)or(x*x+x=20) then
    obl:=false else obl:=true;
end;}
 
function f(x: real): real;
var t: real;
begin
  t:=((exp(2*0.25*x)-1)/(exp(2*0.25*x)+1))/x;
  f:=t*(1/((exp(2*(x*x+x-20))-1)/(exp(2*(x*x+x-20))+1)))
end;
 
var
  x: real;
begin
  write('Введите X: ');
  readln(x);
  if obl(x) then writeln('f = ',f(x):0:5)
    else writeln('Значение функции не определено');
  readln;
end.

@tomash111 0 / 0 / 0 Регистрация: 06.03.2013 Сообщений: 6
		1
	Вычислить значение выражения (гиперболический тангенс и гиперболический котангенс) 06.03.2013, 12:27. Показов 3150. Ответов 1 Метки нет (Все метки) 1. Найти область допустимых значений аргумента x. 2. Написать процедуру или функцию, которая вычисляет область допустимых значений аргумента x. 3. Написать процедуру или функцию, которая вычисляет значение выражения f x . 4. Ввести аргумент x с помощью клавиатуры и определить, попадает ли он в область допустимых значений. В случае попадания аргумента x в область допустимых значений вычислить значение выражения f x и вывести его на экран монитора, в случае непопадания аргумента x в область допустимых значений вывести об этом информационное сообщение. f(x)=(th(0.25x)/x)*cth(x^2+x-20) Миниатюры 0

	06.03.2013, 21:47

Вычислить значение выражения (гиперболический тангенс и гиперболический котангенс)

Решение