Лидеры рейтинга

ID: 405049

vsetin

Студент

2825


ID: 401284

Михаил Александров

Советник

905

Россия, Санкт-Петербург


ID: 226425

Konstantin Shvetski

Модератор

662

Россия, Северодвинск


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

380

Россия, пос. Теплоозёрск, ЕАО


ID: 400669

epimkin

Профессионал

350


ID: 325460

CradleA

Мастер-Эксперт

297

Беларусь, Минск


ID: 137394

Megaloman

Мастер-Эксперт

260

Беларусь, Гомель


8.9.0

20.06.2021

JS: 2.9.2
CSS: 4.5.10
jQuery: 3.6.0
DataForLocalStorage: 2021-06-22 16:46:03-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 160065

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Сиваков Александр
Дата: 10.02.2009, 02:18 Консультация закрыта
Поступило ответов: 1

Помогите пожалуйста найти ошибку. Сложение двоичных чисел на Паскале. Результат получается ноль либо строка из 32 цифр. Спасибо.

Приложение:

Здравствуйте, Сиваков Александр!

Программа в приложении.
Выполняет суммирование трех двоичных чисел, второе число переводится ещё в дополнительный код.
По подпрограммах:
inputBin - вводит число в двоичной системе;
rangeBin - все введенные числа выравниваются к одному размеру, определенному в разделе констант;
convertBin - преводит число в дополнительный код;
doSummaBin - суммирование двух двоичных чисел;
outputBin вывод результата на экран.
Вопросы задавайте в минифорум.
Удачи!

Приложение:


Зенченко Константин Николаевич

Старший модератор
10.02.2009, 11:44
Мини-форум консультации # 160065

q_id

Зенченко Константин Николаевич

Старший модератор

ID: 31795

1

= общий =    10.02.2009, 11:51

Сиваков Александр:

Уж больно мудренный код у Вас получился:
IntToBin - почему бы не использовать стандартную процедуру:

Str (процедура)Преобразовывает число в строку.
Объявление: Procedure Str(X [: Width [: Decimals ]]; Var S : String);
Режим:Windows, Real, Protected
Замечания:Преобразовывает числовое значение X в строковое представление этого числа, которое можно выводить операторами типа Write и OutText.

из хелпа

Простите разбиратся не стал, просто переписал задание по новому:

IntToBin(BinToInt(Dec2Bin(BO))-BinToInt(Dec2Bin(BT))+BinToInt(Dec2Bin(BM))


Удачи!

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

puporev

Профессор

Рейтинг: 132

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 98

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0

lamed

Академик

Рейтинг: 0