Составить программу табулирования функции

@houg · Регистрация: 04.03.2019

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

Вычислите таблицу значений функции

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=\begin{cases}\frac{\operatorname{tg}^2(a+x)-a}{e^^{a-x}} & \text{ if } x\leq a \\\\\frac{\operatorname{arctg}(ax)}{1+\sqrt[5\,]{ax^^{\,}}} & \text{ if } x\,>\,a \end{cases}<br />$

для аргумента от X_н до X_к с шагом ΔX.

a	X_н	X_к	ΔX
10.3	9	12	0.3

@ValentinNemo · 24.03.2019, 18:17

Pascal

program zadanie6;
uses
   math;
const
  A = 10.3;
  xbeg = 9;
  xend = 12;
  delX = 0.3;
var
  Y: real; // Переменная для хранения значения результата.
  x: real; // Переменная для хранения значения аргумента.
begin
  x:= xbeg - delx;
  repeat
     x:=X+delX;
     if x <= A then
       y:=(sqr(tan(a+x))-a)/exp(a-x)
     else
       y:= arctan(a*x)/(1 - power(a*x, 1/5));
 
     WriteLn('X = ',x:0:2,'  Y = ',y:0:2);
  until x > xend ;
readln;
end.

	24.03.2019, 18:17

Составить программу табулирования функции

Решение