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

[user119]

Задание:составить программу вычисления значений функций. Предусмотреть вывод сообщения, если выражение не имеет смысла.№13 IMG_20200305_114649.jpg
Объясните как предусмотреть вывод сообщения.

[evg_m]

if x<3 then writeln('x<3. корень отрицательного числа не существует');

[user119]

Сообщение от evg_m

if x<3 then

а может x>3? ведь там 3-х а не х-3.

[user119]

ещё вопрос как записать cos^2(y) в паскале.

[BDA]

Не забудьте, что делить на ноль нельзя (для левой дроби) и логарифм от нуля не существует. Можно cos(y) * cos(y) или sqr(cos(y)).

[user119]

как правильно записать первую дробь? У меня на ноль почему-то делится.

[user119]

program mm;
var x,y,z :real;
begin 
write('х: ');
readln(x);
y:=(x/(1+(2/x)))-ln(sqrt(3-x));
z:=2*(y*y)+sqr(cos(y));
if (x>=3) and (x=0) then writeln('корень отрицательного числа не существует') else writeln('y=',y:2:2,'z=',z:2:2);
readln
end.

что тут не так, когда я ввожу 0, 3, 4 то не пишет корень отрицательного числа не существует а сразу сколько y и z.

[BDA]

1) Нужно еще проверять, что весь знаменатель не равен нулю у левой дроби (то есть x не должен быть равен -2).
2) Условие нужно сформулировать более правильно. х не может одновременно быть равен нулю и не меньше чем 3.
3) Стоит предусмотреть вывод разных сообщений для разных ситуаций.

[user119]

BDA, Так у меня в коде так и написано

[digitalis]

y:=(x/(1+(2/x)))-ln(sqrt(3-x));

Где проверка подкоренного выражения, чтобы не извлекать корень из отрицательного числа ?

if (x>=3) and (x=0) then...

Это выражение = всегда false, т.к. не бывает одновременно и x>=3 и x=0

у меня в коде так и написано

нет.