|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.12.2007, 22:29 | #1 |
Пользователь
Регистрация: 25.09.2007
Сообщений: 28
|
Паскаль. Не могу найти ошибку. Нужна помощь!
Задание такое:
Вычислить значение функции F(X)=P1(x)+P2(x)+P3(x), где: P1(x)=A1*x^5+A2*X^4+A3*X^3+A4*X^2+A 5*X+A6; P2(x)=B1*(x+0.5)^7+B2*(x+0.5)^6+... +B7*(x+0.5)+B8; P3(x)=E1*(x-0.1)^4+E2*(x-0.1)^3+E3*(x-0.1)^2+E4*(x-0.1)+E5, а так же ее первую производную в точке Xc, если Xc=0.3. Решить с помощью процедур+запихнуть в Unit. |
05.12.2007, 22:31 | #2 |
Пользователь
Регистрация: 25.09.2007
Сообщений: 28
|
Код:
Последний раз редактировалось Nexx; 06.12.2007 в 09:00. |
05.12.2007, 22:32 | #3 |
Пользователь
Регистрация: 25.09.2007
Сообщений: 28
|
Ошибка в районе 31 строки, как это дело исправить?
|
05.12.2007, 22:51 | #4 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
Пишите сразу c:=(c-k2)/0,3; |
|
06.12.2007, 08:46 | #5 |
Пользователь
Регистрация: 25.09.2007
Сообщений: 28
|
я здесь не всю прогу написал, там еще Xc задается как корень уравнения x-l*sin(x+1)=0, l принимает значения 1,3,6,9,12,15, поэтому там c:=(c-k2)/xc. Но это не суть, она мне в этой строке выдает деление на ноль. Ставим строку в скобочки, и все идет, но блин произв неправильно считается.
|
06.12.2007, 09:15 | #6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Трудно так с ходу разобраться, надо программу гонять и пошагово искать ошибку. хС явно не равна 0, т.к. 0 не является корнем приведенного уравнения. Если не разберешься, скинь сюда программу, только не код, никакого желания переписывать нет.
|
06.12.2007, 09:16 | #7 |
Тот ещё
Старожил
Регистрация: 14.11.2007
Сообщений: 2,242
|
Не, код тоже скинь. Если очень надо, я погоняю.
|
06.12.2007, 09:24 | #8 |
Пользователь
Регистрация: 25.09.2007
Сообщений: 28
|
Я пока не трогал ур-е x-l*sin(x+1)=0, а принял Xc =0,3.
|
06.12.2007, 10:00 | #9 |
Тот ещё
Старожил
Регистрация: 14.11.2007
Сообщений: 2,242
|
The loading file is begun
... 21 % ... 54 % ... 87 % The loading file is successfully completed Скачал. Смотрю. |
06.12.2007, 10:35 | #10 |
Тот ещё
Старожил
Регистрация: 14.11.2007
Сообщений: 2,242
|
Все оказалось на много проще:
Даже не вдоваясь в суть задачи, можно увидеть такую вещь. В приведенном вами коде в сообщении #2, да и во вложенном исходнике, в строке 89 {pr(xc1,xc2,a,b,e,pr1,pr2);} вы обращаетесь к переменной xc2, в которую не соизволили хоть что-то записать. Таким образом, проследив нехитрый путь программы, мы увидем, что дойдя в определенный момент до упомянутой строчки 31 {c:=(c-k2)/xc;}, будем иметь в переменной xc не определенное значение, которое Pascal по умолчанию поставил равным 0; ::: Надо перед выполнением проседуры pr присвоить переменной xc2 какое-нибудь значение отличное от 0. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу найти ошибку! | Эдуард | Общие вопросы C/C++ | 7 | 27.02.2008 16:34 |
формирование матрицы (задание выполненно не могу найти сваю ошибку) | КиношкА | Помощь студентам | 7 | 11.01.2008 03:50 |
помогите плиз...(помощь могу оплатить) паскаль | номак | Фриланс | 5 | 04.01.2008 18:57 |
Нужна помощь с задачей...никак не могу разобраться( | Gekata | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 13.12.2006 14:02 |