Как сделать на языке паскаль
y=lg|arctg(x)-sin(ax)| где x=10^a+cos(a+1)
Очень важно помогите

В Pascal десятичный логарифм можно найти по формуле \(\lg z=\frac{\ln z}{\ln 10}\). Запись \(ax\) в формуле означает \(a\cdot x\).

Программа:

program Formula;
uses Math;
var
  a, x, y: Real;
begin
  Write('Введите a: ');
  ReadLn(a);
  x := Power(10, a) + Cos(a + 1);
  y := Ln(Abs(ArcTan(x) - Sin(a * x))) / Ln(10);
  WriteLn('x = ', x:0:6);
  WriteLn('y = ', y:0:6);
end.

Логарифм определён, только если выражение внутри модуля не равно \(0\).

0 0 Пожаловаться