|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.03.2013, 16:39 | #1 |
Регистрация: 01.06.2010
Сообщений: 8
|
Посмотрите где может быть ошибка в коде
Реализация метода золотого сечения на Делфи.
a=-10; b=3; e=0,001 Вот код: Код:
Ссылка на архив. Должно получится в конце около -0,2635 Спасибо. Последний раз редактировалось Stilet; 13.03.2013 в 17:43. |
13.03.2013, 19:03 | #2 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Что-то мне подсказывает, что в этом куске кода одного бегина-энда не хватает, не?
Код:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Последний раз редактировалось Sciv; 13.03.2013 в 19:07. |
13.03.2013, 20:29 | #3 |
Регистрация: 01.06.2010
Сообщений: 8
|
Я поставил после else бегина-энд, но программа все равно подсчитывает оптимум не верно. Видимо ошибка где-то в алгоритме, но где не могу найти...((((
|
13.03.2013, 20:41 | #4 |
Регистрация: 01.06.2010
Сообщений: 8
|
Вот блок схема по которой я создал программу:
Последний раз редактировалось student-99; 13.03.2013 в 20:44. |
13.03.2013, 21:53 | #5 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Ну во-первых, покажите, какой теперь код получился (после установки бегинэнда)
А во-вторых, где у Вас на блок-схеме вот это? Код:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
13.03.2013, 23:33 | #6 |
Регистрация: 01.06.2010
Сообщений: 8
|
opt:=Round(xm*10000)/10000; - это округление к 4 знаков после комы...
А бегин я поставил после else else begin a:=y; y:=z; fy:=fz; z:=0.382*a+0.618*b; fz:=f(z); end; Inc(count); end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
в чем может быть ошибка? | Imposters | Общие вопросы .NET | 4 | 23.11.2012 14:11 |
Почему не работает код, где может быть ошибка | sweyle | Microsoft Office Excel | 9 | 11.01.2012 21:11 |
В чём может быть ошибка? | Lindemann66 | Qt и кроссплатформенное программирование С/С++ | 1 | 18.08.2011 13:52 |
Где может быть ошибка? | Tricko | C# (си шарп) | 3 | 26.06.2011 12:42 |
где может быть ошибка? | maksim_serg | Microsoft Office Excel | 2 | 21.04.2010 10:42 |