Question

Запишите на языке Pascal следующие формулы: а). х^5 б). корень(2+7^х)/(1-х^7) в). |х+y|/|x-y|+|x-y|/|x+y| г). (а+b) /(a+b+c) д). 1/sina + 1/sin2a + 1/sin3a + 1/sin4a +1/sin5a

Answer 1

Ответ:

а) x*x*x*x*x

б) (sqrt(2+power(7,x)))/(1-power(x,7))

в) (abs(x+y))/(abs(x-y)) + (abs(x-y))/(abs(x+y))

г) (a+b)/(a+b+c)

д) (1/sin(a)) + (1/sin(2*a)) +(1/sin(3*a)) +(1/sin(4*a)) +(1/sin(5*a))

Примечание:

В пункте a можно было бы записать power(x,5), но все же для небольших целых степеней вызов функции power будет менее предпочтителен (по причине быстродействия).

Answer 2

Конечно, вот данные формулы на языке Pascal:

а) x^5

pascalCopy code
function Power5(x: Real): Real;
begin
  Power5 := x * x * x * x * x;
end;

б) sqrt((2 + 7^x) / (1 - x^7))

pascalCopy code
function FormulaB(x: Real): Real;
begin
  FormulaB := sqrt((2 + Power(7, x)) / (1 - Power(x, 7)));
end;

в) (|x + y| / |x - y|) + (|x - y| / |x + y|)

pascalCopy code
function FormulaC(x, y: Real): Real;
begin
  FormulaC := (abs(x + y) / abs(x - y)) + (abs(x - y) / abs(x + y));
end;

г) (a + b) / (a + b + c)

pascalCopy code
function FormulaD(a, b, c: Real): Real;
begin
  FormulaD := (a + b) / (a + b + c);
end;

д) 1/sin(a) + 1/sin(2a) + 1/sin(3a) + 1/sin(4a) + 1/sin(5a)

pascalCopy code
function TrigonometricSum(a: Real): Real;
begin
  TrigonometricSum := 1/sin(a) + 1/sin(2*a) + 1/sin(3*a) + 1/sin(4*a) + 1/sin(5*a);
end;

Обратите внимание, что в Pascal функция Power(x, y) используется для возведения числа x в степень y. Также, для вычисления абсолютного значения можно использовать функцию abs(x).