Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Вычислить значение выражения по формуле. Как сделать проверку?

94K
14 октября 2014 года
Екатерина Вершинина
1 / / 14.10.2014
Задание: Написать программу, которая бы рассчитывала значение выражения по формуле: (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.
не могу сделать так, чтобы выполнялась проверка. Чтобы знаменатель не был равен нулю, область значений косинуса. Как прописать? спасибо заранее.
20K
14 октября 2014 года
ellor!
198 / / 24.05.2012
Так и написать проверку, что знаменатель не равен нулю. И тогда уж нужны проверки на допустимость прочих аргументов.

Код:
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.
94K
14 октября 2014 года
BeatBeatBeatBeat
1 / / 14.10.2014
Нужно выполнить проверку на то, чтобы знаменатель не был равен нулю?
  1. Отдельно вычислить знаменатель
  2. Сравнить его с нулем
  3. Если все ОК, то считаем y.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог