Вычислить значение выражения по формуле. Как сделать проверку?
Задание: Написать программу, которая бы рассчитывала значение выражения по формуле: (ln|cos(x)|)/(ln(1+x^2).
Мой код:
не могу сделать так, чтобы выполнялась проверка. Чтобы знаменатель не был равен нулю, область значений косинуса. Как прописать? спасибо заранее.
Мой код:
Код:
Program formula;
var
x:integer;
y:real;
begin
write('vvedute x ');
readln(x);
y:=(ln(abs(cos(x))))/ln(1+cos(x*x));
writeln('y=',y:5:2);
end.
var
x:integer;
y:real;
begin
write('vvedute x ');
readln(x);
y:=(ln(abs(cos(x))))/ln(1+cos(x*x));
writeln('y=',y:5:2);
end.
Так и написать проверку, что знаменатель не равен нулю. И тогда уж нужны проверки на допустимость прочих аргументов.
Код:
var
x : Integer;
a, b, y : Double;
begin
write('vvedute x ');
readln(x);
a := abs(cos(x));
b := 1 + cos(x * x);
if (a <= 0) then
<сообщение о недопустимом аргументе ln()>
else
if (b <= 0) then
<сообщение о недопустимом аргументе ln()>
else
if (ln(b) = 0) then
<сообщение о нулевом знаменателе>
else begin
y := ln(a) / ln(b);
writeln('y=', y:5:2);
end;
end.
x : Integer;
a, b, y : Double;
begin
write('vvedute x ');
readln(x);
a := abs(cos(x));
b := 1 + cos(x * x);
if (a <= 0) then
<сообщение о недопустимом аргументе ln()>
else
if (b <= 0) then
<сообщение о недопустимом аргументе ln()>
else
if (ln(b) = 0) then
<сообщение о нулевом знаменателе>
else begin
y := ln(a) / ln(b);
writeln('y=', y:5:2);
end;
end.
Нужно выполнить проверку на то, чтобы знаменатель не был равен нулю?
- Отдельно вычислить знаменатель
- Сравнить его с нулем
- Если все ОК, то считаем y.