Составить блок-схему алгоритма и программу для вычисления

@Aleksey34564 · Регистрация: 18.01.2019

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

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

@ZX Spectrum-128 · 20.01.2019, 11:28

Pascal

var
  x, a, b, s: double;
 
begin
  readln(a, b, x);
  s := (b * sqr(cos(x))) / (power(tan(x * x * x * 2 * pi * b), 1 / 3)) + ln(abs(exp(a + 2 * x) / power(0.753, b))) / exp(sqrt(abs(2 * pi * x * x - b * b * b))) + power(1.23, 33);
  writeln(s);
end.

Добавлено через 3 минуты

Pascal

function power(x, n: double): double;
begin
  Power := Exp(n * Ln(Abs(x))) * (1 - 2 * Ord(x < 0));
end;
 
function tan(x: double): double;
begin
  tan := sin(x) / cos(x);
end;

@Aleksey34564 0 / 0 / 0 Регистрация: 18.01.2019 Сообщений: 2
		1
	Составить блок-схему алгоритма и программу для вычисления 20.01.2019, 11:12. Показов 1103. Ответов 1 Метки нет (Все метки) Составить блок схему алгоритма и программу для вычисления функции по формуле для произвольных исходных данных, с двойной точностью: 0

	20.01.2019, 11:28