Составить программу для вычисления составной (сложной) функции

@shemshur2014 · Регистрация: 13.05.2014

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

Задание: используя оператор условия (if … then), составить программу для вычисления составной (сложной) функции, имеющей различный вид на разных участках аргумента
Все исходные данные, необходимые для проведения вычислений, вводить с клавиатуры.

Функция

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=\begin{cases}\cos x+\operatorname{tg}x & \text{, } -1\leq x< -0.5\\ 2\,\arcsin x+1.4 & \text{, } -0.5\leq x<0.5\\ -x^6\,\ln(1+x)+2.45 & \text{, } 0.5\leq x<1\\ -3(x-1.6)^2+2.8 & \text{, }1\leq x\leq 2\end{cases}<br />$

Добавлено через 14 часов 42 минуты
Помогите сделать.

@APALoff · 10.03.2015, 14:18

Вам не пролестнуть страницу ниже до раздела "Похожие темы" ?

Используя оператор условия (if … then), составить программу для вычисления составной (сложной) функции
Составить программу для вычисления составной функции, имеющей различный вид на разных участках аргумента
Вычисление составной (сложной) функции
Используя оператор условия (if … then), составить программу для вычисления составной (сложной) функции
Оператор условия. Составить программу для вычисления составной (сложной) функции
Составить программу вычисления составной функции

@shemshur2014 · 10.03.2015, 14:25 **[ТС]**

Я составил, но увы, не уверен, что правильно:

Pascal

uses crt;
var
   x,y:real;
   
function tg(n:real):real;
begin
tg:=sin(n)/cos(n);
writeln(sin(n),' || ', cos(n));
end;
 
function arcsin (x : real) : real;
begin
Arcsin := arctan(x/Sqrt(1-sqr(x)));
end;
   
begin
write('Input x: ');
readln(x);
if (x>=1)and(x<-0.5) then
y:=cos(x)+tg(x);
if (x>=-0.5)and(x<0.5) then
y:=2*arcsin(x)+1.4;
if (x>=0.5)and(x<1) then
y:=exp(ln(-x)*(1/6))*ln(1+x)+2.45;
if (x>=1)and(x<=2) then
y:=-3*sqrt(x-1.6)+2.8;
writeln('y=',y:0:2);
end.

@Cyborg Drone · 10.03.2015, 14:33

Сообщение от shemshur2014

Pascal

24	y:=exp(ln(-x)(1/6))ln(1+x)+2.45;

Не понял, что Вам нужно вычислить:

1) (-x)⁶
2) -x⁶
3) $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt[6]{\begin{matrix}\\\\ -x\end{matrix}}$

@shemshur2014 · 10.03.2015, 18:13 **[ТС]**

Второй вариант

@Cyborg Drone · 10.03.2015, 19:15

Тогда должно быть

Pascal

24	y:=-exp(ln(x)6)ln(1+x)+2.45;

Однако, при целочисленных показателях степени n не следует увлекаться exp(n∙ln(x)), тем более, что ln(x) при x ≤ 0 не определён, что частенько вызывает ошибку при работе программы. Вот, одна из дискуссий насчёт возведения в степень с помощью логарифмирования/потенцирования: Напишите программу, которая вводит два вещественных числа (x и y) и вычисляет значение x^y. Возведение в целую степень, тем более, в небольшую, лучше делать с помощью умножения, в крайнем случае, умножения в цикле. Ну да, с логарифмом вроде как красивше, но и всего лишь.

Ещё. Пользуйтесь редактором формул.

При исправлении сообщения #1, кстати, я исправил несуразное условие 1<=x<-0.5 (никогда не выполнится) на очевидное -1<=x<-0.5.

Преступим. Вы написали (за исключением неточности с логарифмом) вполне рабочий код. Условный оператор проще составной применить. Незачем писать в программе uses crt; если ничего из модуля crt в программе не используется. У Вас неправильная реакция программы в случае ввода аргумента, не входящего в область определения функции. Вот, подправил:

Pascal

var x, y: real;
 
function tg(n: real): real;
begin
  tg := sin(n) / cos(n)
end;
 
function arcsin(x: real): real;
begin
  arcsin := arctan(x / sqrt(1 - x * x))
end;
 
begin
  write('x = ');
  readln(x);
  if (x < -1) or (x > 2)
  then writeln('Function is undefined')
  else
    begin
      if (-1 <= x) and (x < -0.5)
        then y := cos(x) + tg(x)
        else if x < 0.5
          then y := 2 * arcsin(x) + 1.4
          else if x < 1
            then y := -x * x * x * x * x * x * ln(1 + x) + 2.45
            else if x <= 2
              then y := -3 * sqrt(x - 1.6) + 2.8;
      writeln('y = ', y:0:5)
    end
end.

Ещё на будущее. В данном случае этого не требуется, но для функций, определённых не на всей числовой оси, нужно делать проверку на допустимость аргумента. И при недопустимом аргументе не передавать его функции, а производить адекватные действия в программе, например, вывести сообщение об ошибке. У Вас из таких функций применяются тангенс, арксинус, натуральный логарифм и квадратный корень.

@shemshur2014 0 / 0 / 0 Регистрация: 13.05.2014 Сообщений: 20
		1
	Составить программу для вычисления составной (сложной) функции 10.03.2015, 13:38. Показов 2824. Ответов 5 Метки нет (Все метки) Задание: используя оператор условия (if … then), составить программу для вычисления составной (сложной) функции, имеющей различный вид на разных участках аргумента Все исходные данные, необходимые для проведения вычислений, вводить с клавиатуры. Функция $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=\begin{cases}\cos x+\operatorname{tg}x & \text{, } -1\leq x< -0.5\\ 2\,\arcsin x+1.4 & \text{, } -0.5\leq x<0.5\\ -x^6\,\ln(1+x)+2.45 & \text{, } 0.5\leq x<1\\ -3(x-1.6)^2+2.8 & \text{, }1\leq x\leq 2\end{cases}<br />$ Добавлено через 14 часов 42 минуты Помогите сделать. 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	10.03.2015, 14:18	2
	Вам не пролестнуть страницу ниже до раздела "Похожие темы" ? Используя оператор условия (if … then), составить программу для вычисления составной (сложной) функции Составить программу для вычисления составной функции, имеющей различный вид на разных участках аргумента Вычисление составной (сложной) функции Используя оператор условия (if … then), составить программу для вычисления составной (сложной) функции Оператор условия. Составить программу для вычисления составной (сложной) функции Составить программу вычисления составной функции 0

@shemshur2014 0 / 0 / 0 Регистрация: 13.05.2014 Сообщений: 20
	10.03.2015, 18:13 [ТС]	5
	Второй вариант 0

	10.03.2015, 19:15

Опции темы