Просмотр вопроса
немагу найти ошибку
3 сентября 2011
zheka-ki # 13 сентября 2011 в 16:29 0
А что он должен делать?
anton-sh # 25 октября 2011 в 10:11 0
Непонятно, что тут происходит, но почти уверен, что попутка с конструкциями if then else begin end

2Ромка. Пару советов для значительного улучшения читаемости кода
1) никогда не называй переменные буквами o и l
2) никогда не пиши на одной строке больше одного оператора
3) после begin всегда делай конец строки
4) перед end не должно идти ничего кроме пробелов
5) специально для VKontakte - заменяй начальные пробелы непробельными символами ("_" или ".")
aleksej- # 25 октября 2011 в 22:01 0
А разве это имеет значение? Спросили про ошибку, наверно синтаксическую, раз без уточнений (видимо компилятор не показывает номер строки с ошибкой).
Вызывает подозрение if o='1' then be[length(be)+1]:='1';
Тут у нас по идее, выход индекса за границы, ибо и так берём длину, да ещё +1. Просто к данной строке надо прибавить эту единицу be := be+'1';
Ну а если речь именно про неверностьсложения двух бинарных чисел, то for i:=length(bmin)+1 to length(bmax)
тут ты вроде обрабатываешь старшие байты большего числа, так как им нет пары, ноони то у тебя в начале строки, а ты индексы с конца берёшь.
zheka-ki # 15 ноября 2011 в 12:56 0
А, понял - он должен складывать двоичные числа.
Первый совет: Опиши его алгоритм русским языком и примени вручную к какому-нибудь примеру.
Второй совет: Назови переменные как следует - "i","o","be" - плохие названия, они мешают и тебе, и тем кого ты просишь помочь, понять, что этот код и как делает.
Третий совет: Воспользуйся пошаговым отладчиком или хотя бы отладочной печатью - на каждом шаге алгоритма печатай "Делаю то-то, значения переменных такие-то" - так будет легче обнаружить, в какой момент программа начинает работать неправильно.
andrej-g # 17 ноября 2011 в 14:16 0
сходите к логопеду
aleksand # 4 декабря 2011 в 13:04 0
Для начала объявления функции binsum в interface и в implementation должны быть одинаковы. А сейчас в интерфейсе у неё два параметра, а в имплементации ни одного.
aleksej- # 11 января 2012 в 04:06 0
Нда, а я в этой каше даже не глянул на заголовок.
anton-sh # 16 января 2012 в 02:30 0
> функции binsum в interface и в implementation должны быть одинаковы
Это не обязательное условие. Либо одинаковое, либо в implementation параметры должны отсутствовать вообще
aleksand # 5 февраля 2012 в 21:03 0
Надо же. Век живи, век учись. Я и не знал. :D