Вычислить значение выражения

@scarfaces · Регистрация: 26.09.2013

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

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

@Jener · 18.10.2013, 12:58

Pascal

uses
  crt;
const
  z = sqrt(abs(2 - Pi));
  x = 0.0000000671;
  y = -0.6023;
function Tg(x : real) : real;
begin
  Tg := Sin(x)/Cos(x);
end;
function Lg(x : real) : real;
begin
  Lg := Ln(x)/Ln(10);
end;
function ArcSin(x : real) : real;
begin
  ArcSin := ArcTan(x/(1-sqr(x)));
end; 
function St(x, y : real) : real;
begin
  if X>0 then St := exp(y*ln(abs(x)))
  else St := -exp(y*ln(abs(x)));
end;
var
  a, b : real;
begin
  clrscr;
  a := Lg(ArcSin(-z/x));
  b := 1/(a + z) + x*y/100;
  writeln('Результат : ',Tg(St(a,1/3) + St(2,b)):0:9);
  readln;
end.

@scarfaces 0 / 0 / 0 Регистрация: 26.09.2013 Сообщений: 17
		1
	Вычислить значение выражения 18.10.2013, 09:08. Показов 1123. Ответов 1 Метки нет (Все метки) Вычислить значение выражения на Паскале,буду очень благодарен Миниатюры 0

Опции темы

Вычислить значение выражения

Решение