Быстро закрывается программа

@Михаил Пин · Регистрация: 24.02.2014

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Math;
 
const x=9.5;
var Otv: Real;
 
begin
  Otv:=(Sqr(x)+exp(1/3*Ln(Cos(Abs(x)))))/(log10(Abs(Sqrt(Abs(x)))-arctan(Power(x,3))));
 writeln('Otv = ', otv:5:1);
 Readln;
 end.

Фишка в том, что не могу посчитать exp(1/3*Ln(Cos(Abs(x))), если вместо 1/3 поставить 1, то считает нормально, если с дробным числом, программа запускается и сразу закрывается. Через Power(x,n) тоже самое.

@volvo · 18.03.2014, 22:24

Cos(9.5) меньше 0, поэтому попытка вычислить Ln отрицательного числа проваливается, и программа завершается аварийно.

Сообщение от Михаил Пин

если вместо 1/3 поставить 1

- будет то же самое. Аварийный вылет программы, только что проверено. Логарифм от неположительного числа не определен...

@Михаил Пин · 18.03.2014, 22:27 **[ТС]**

Но если в xp(1/3*Ln(Cos(Abs(x))) поменять дробную степень на 1, то все считается отлично.

@volvo · 18.03.2014, 22:27

Еще раз: ничего не считается, тебе скриншот показать? Смотри:

@Михаил Пин · 18.03.2014, 22:30 **[ТС]**

В данном случае что делать? У меня по условию дан х=9.5(

@FIL · 18.03.2014, 22:36

Сообщение от Михаил Пин

что делать?

Формулу напиши, которую ты пытаешься закодить.

@volvo Супер-модератор 30869 / 20190 / 7875 Регистрация: 22.10.2011 Сообщений: 35,051 Записей в блоге: 6
	18.03.2014, 22:24	2
	Cos(9.5) меньше 0, поэтому попытка вычислить Ln отрицательного числа проваливается, и программа завершается аварийно. Сообщение от Михаил Пин если вместо 1/3 поставить 1 - будет то же самое. Аварийный вылет программы, только что проверено. Логарифм от неположительного числа не определен... 1

@Михаил Пин 0 / 0 / 0 Регистрация: 24.02.2014 Сообщений: 29
	18.03.2014, 22:27 [ТС]	3
	Но если в xp(1/3*Ln(Cos(Abs(x))) поменять дробную степень на 1, то все считается отлично. 0

@volvo Супер-модератор 30869 / 20190 / 7875 Регистрация: 22.10.2011 Сообщений: 35,051 Записей в блоге: 6
	18.03.2014, 22:27	4
	Еще раз: ничего не считается, тебе скриншот показать? Смотри: 0 Миниатюры

@Михаил Пин 0 / 0 / 0 Регистрация: 24.02.2014 Сообщений: 29
	18.03.2014, 22:30 [ТС]	5
	В данном случае что делать? У меня по условию дан х=9.5( 0

@FIL Модератор 3475 / 2599 / 740 Регистрация: 19.09.2012 Сообщений: 7,965
	18.03.2014, 22:36	6
	Сообщение от Михаил Пин что делать? Формулу напиши, которую ты пытаешься закодить. 0

Опции темы