Разработать алгоритм для вычисления выражения, с указанными параметрами

@naru2vlad · Регистрация: 29.10.2017

Разработать алгоритм для вычисления выражения, с указанными параметрами:

Расчётные формулы	Значения исходных данных
$https://www.cyberforum.ru/cgi-bin/latex.cgi?s=x^3\operatorname{tg}^2(x+b)^2+\frac{a}{\sqrt{x+b}};\qquad \qquad Q=\frac{bx^2-a}{e^{ax}-1}\qquad$	$https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{array}{lll}a&=&16.5\\\\ b&=&3.4\\\\ x&=&0.61\end{array}$

@Puporev · 29.10.2017, 17:40

Pascal

const a=16.5;
      b=3.4;
      x=0.61;
var s,q:real;
begin
s:=x*x*x*sqr(sin(sqr(x+b))/cos(sqr(x+b)))+a/sqrt(x+b);
q:=(b*x*x-a)/(exp(a*x)-1);
write('s=',s:0:5,'  q=',q:0:5);
end.

Опции темы

Разработать алгоритм для вычисления выражения, с указанными параметрами

Решение