p := sign(y + 13 * a) * power(abs(y + 13 * a), 1/3);
Объяснение:
Единственная проблема тут - как записать кубический корень. В паскале есть функция power(a, p), которая возводит a в степень p, но если p не целое, оно работает только для положительных (для p > 0 неотрицательных) a. Кубический корень же определён для всех a.
Решение такое: посчитать кубический корень для модуля ![\sqrt[3]{|a|}=|a|^{1/3}](/tpl/images/1497/4036/6aba0.png)
, а потом поставить такой же знак, что и под корнем.
Полностью программа может выглядеть, например, так:
var p, y, a: real;
begin
read(y, a);
p := sign(y + 13 * a) * power(abs(y + 13 * a), 1/3);
write(p)
end.
Задача
Из двух чисел с разной четностью вывести на экран нечетное число.
Решение
Описание переменных:
a, b - данные числа
Алгоритм решения задачи:
Пользователь вводит четное и нечетное число. Последовательность их ввода может быть любой. Таким образом, неизвестно какая из двух переменных (a или b) содержит нечетное число. Чтобы выяснить это, используется конструкция условного ветвления (if-else), а также операция нахождения остатка от целочисленного деления (mod).
Если результат нахождения остатка от деления значения переменной a на 2 равен нулю, значит, эта переменная содержит четное число. Тогда нечетное число находится в переменной b и его следует вывести на экран. Если же результат нахождения остатка не равен нулю, значит, a содержит нечетное число. Оно выводится в ветке else.
Программа на языке Паскаль:
var a, b: integer;
begin
writeln('Введите одно четное и одно нечетное числа');
readln(a, b);
if a mod 2 = 0 then
writeln(b,' - нечетное число')
else
writeln(a,' - нечетное число');
end.
Примеры работы программы:
Введите одно четное и одно нечетное числа
4 5
5 - нечетное число
Введите одно четное и одно нечетное числа
5 4
5 - нечетное число
Примечания:
В данном случае предполагается, что пользователь осуществляет ввод правильно, т. е. всегда вводит одно четное и одно нечетное число. Если же ввод был некорректный (два четных или два нечетных числа), то программа будет работать неправильно. В случае двух четных чисел программа выведет второе. В случае двух нечетных - первое введенное. Чтобы избежать подобных недоразумений, программу можно усовершенствовать следующим образом:
var a, b: integer;
begin
writeln('Введите одно четное и одно нечетное числа');
readln(a, b);
if (a mod 2 = 0) and (b mod 2 <> 0) then
writeln(b,' - нечетное число')
else
if (a mod 2 <> 0) and (b mod 2 = 0) then
writeln(a,' - нечетное число')
else
writeln('Некорректный ввод');
end.
В данном случае в заголовках условного оператора проверяются оба числа: одно - на четность, другое - на нечетность. Если оба будут четные, или оба будут нечетные, то сработает тело вложенного оператора else.
F=(¬A*B+¬A*B*C)*(A+B*C)
F=¬A*B*C+¬A*B*C
F=¬A*B*C