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

Question

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

=@kul@= 1 Знаток (451), закрыт 1 год назад

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

Паскаль, используя условный оператор

Answer 1

unction f(b, x:real):real;
var a: real;
begin
a:=b*x;
if (a=1) then
f:=1
else
f:=a+sign(a-1)*ln(a)/ln(10); (*sign or sgn - depends on your compiler*)
end;

Answer 2

function f(b, x:real):real;
var a: real;
begin
a:=b*x;
if (a=1) then
f:=1
else
f:=a+sign(a-1)*ln(a)/ln(10); (*sign or sgn - depends on your compiler*)
end;

Answer 3

Анти Советчик Искусственный Интеллект (125736) 1 год назад

Вот, почитай на досуге: http://www.barius.ru/biblioteka/book/6717

Answer 4

function f(b, x:real):real;
var a: real;
begin
a:=b*x;
if (a=1) then
f:=1
else
f:=a+sign(a-1)*ln(a)/ln(10); (*sign or sgn - depends on your compiler*)
end;