|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.03.2012, 20:51 | #1 |
Новичок
Джуниор
Регистрация: 01.03.2012
Сообщений: 2
|
где ошибка?
При вводе этой программы выдаёт ошибку 207.Подскажите,что сделано не так.Заранее спасибо
program zadanie1; var a,b,x,t,u:real; begin writeln('vvedite a,b,x'); read(a,b,x); t:=sqrt((exp(ln(x)*5)+b)-exp(ln(b)*5)*exp(ln(cos(x+a))*6)/x); u:=exp(ln(sin(exp(ln(x)*5)))*4)-x/(sqrt(exp(ln(a)*4)+exp(ln(b)*4))); writeln('t=',t:8:4,'u=',u:8:4); end. формула Т=Корень квадратный из (х^5+b)-b^5cos^6(х+a)/х u=sin^4х^5-х/ на корень квадратный из (a^4+b^4) a=0,95 b=17,25 х=-6.9 |
02.03.2012, 07:44 | #2 | |
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
Цитата:
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype |
|
02.03.2012, 08:16 | #3 |
Новичок
Джуниор
Регистрация: 28.02.2012
Сообщений: 2
|
Все элементарно, тип real принимает значение от -39 до 39, у тебя при вычислении функции t, значение превышает этот диапазон
DEBUG тебе на язык!
|
02.03.2012, 15:51 | #4 |
Новичок
Джуниор
Регистрация: 01.03.2012
Сообщений: 2
|
|
02.03.2012, 16:47 | #5 |
Участник клуба
Регистрация: 03.12.2009
Сообщений: 1,013
|
При возведении в степень, не стоит забывать про логарифм отрицательного числа....
И также в вашем примере, про корень отрицательного числа. Превышением диапазона здесь даже и не пахнет... Последний раз редактировалось Базиля; 02.03.2012 в 16:54. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
написал программу, где то ошибка, не пойму где... | Kelevra91 | Общие вопросы C/C++ | 5 | 17.01.2011 16:38 |
Где ошибка? | Vaigard | Общие вопросы Delphi | 4 | 03.01.2011 16:12 |
Где ошибка? | Nilar | Общие вопросы C/C++ | 1 | 21.11.2010 23:34 |
где ошибка? | Prophet23 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 20.05.2009 23:20 |