MK
Maks Kudinov
Знатоки Delphi, помогите пожалуйста расписать код этой функции (она маленькая)
ВОТ Я УЖЕ НАЧАЛ, А ТО ЧТО ДАЛЬШЕ, НЕ ЗНАЮ КАК
function f(x,a:real):real;
begin
if x<=0 then
1) if x <= 0 then a:= exp(ln(Abs(x - 1)) / z);
2) if (x > 0) and (x <=a) then b:=exp( 4 * ln(x)) / 7;
3) if x > 0 then c:=exp(3* sin((2 * a * x) + PI));
Примерно так.
...
begin
if x > a then begin x := sin(2*a*x+Pi); f := x*x*x; end
else if x > 0 then f := x*x*x*x/7
else f := sqrt(abs(x-1))-a;
end;
Предыдущий отвечающий не учёл, что значения под логарифмом могут быть отрицательными!