Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 24.02.2014
Сообщений: 29
1

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

18.03.2014, 22:02. Просмотров 1099. Ответов 5
Метки нет (Все метки)


Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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) тоже самое.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2014, 22:02
Ответы с готовыми решениями:

Не закрывается полностью программа
Помогите у меня есть несколько форм и половина из них находится в hide. Как сделать так чтобы при...

Программа закрывается, не выводя результат
program Project2; TYPE tip1=record avtor,nazvanie:string; ...

Быстро закрывается приложение при отладке в VS2015
Здравствуйте! Суть проблемы: Буквально в пятницу все работало как надо, никаких нареканий не было,...

Быстро закрывается окно, не понимаю в чем ошибка
#include <iostream> using namespace std; int main(int argc, char *argv) { int a, b, k, k1;...

5
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
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
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
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
Модератор
3475 / 2599 / 740
Регистрация: 19.09.2012
Сообщений: 7,965
18.03.2014, 22:36 6
Цитата Сообщение от Михаил Пин Посмотреть сообщение
что делать?
Формулу напиши, которую ты пытаешься закодить.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.03.2014, 22:36

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Не показывает результат при запуске(быстро закрывается консоль)
Здравствуйте! Есть код быстрой сортировки. Я её собираю при помощи команд ml /c /coff sort3.asm,...

Настройка конфигурации 8.3. Быстро закрывается служебное сообщение об ошибках
Здравствуйте. При отладке, выскакивает внизу служебное сообщение об ошибках и через 2 сек....

Окно в программе открывается и закрывается очень быстро. Что делать?
при выполнении вот этого кода: ... class An_class(QtWidgets.QWidget): def __init__(self,...

Закрывается программа
Учу cpp. Переписал код с учебного задания, скомпилировал, нажал Build>Build solution, запустил....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.