pascalabc.net
#1
y : = (a * x + 2 * b * x * x) * abs(cos(x * x)) / (pi * exp(x));
y : = (a * ln(b * x)) ** (1 / 3) / (1 + sqr(sin(a * ;
y : = (abs(sin(x ** 3)) + a) * exp(a) / (b * b + c * c) ** (1 / 3);
#2
begin
var (a, x) : = readreal2('введите a и x: ');
var t : = x ** 3 - a;
t : = sign(t) * abs(t) ** (1 / 3);
var y : = t + sin(x * x) / a;
print('y =', y)
end.
операция возведения в степень ** в pascalabc.net определена только для неотрицательного аргумента, поскольку она выполняется с использованием логарифма. в то же время, в операция извлечения корней нечетной степени для отрицательного аргумента опеределена и допустима. в соответствии с этим, извлечение кубического корня в программе производится из абсолютной величины аргумента и последующим присваиванием знака этого аргумента результату. если имеется потребность вычислять подобные корни в нескольких местах программы, имеет смысл ввести для этого собственную функцию.
Поделитесь своими знаниями, ответьте на вопрос:
Возере обитает 12500 окуней, 25000 пескарей, а карасей и щук по 6250. какое количество информации несет сообщение о ловле рыбы каждого вида. сколько информации мы получим, когда поймаем какую-нибудь рыбу?