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

ID: 401284

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

Советник

381

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


ID: 259041

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

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

376

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


ID: 401888

puporev

Профессор

216

Россия, Пермский край


ID: 400669

epimkin

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

112


ID: 405338

vovaromanov.jr

1-й класс

105


ID: 242862

Hunter7007

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

30

Россия, Омск


ID: 137394

Megaloman

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

26

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


8.10.2

13.10.2021

JS: 2.10.2
CSS: 4.6.0
jQuery: 3.6.0
DataForLocalStorage: 2021-10-27 13:46:02-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

Профессор

Рейтинг: 216

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

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

Рейтинг: 163

Gluck

9-й класс

Рейтинг: 82

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

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

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

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

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

Рейтинг: 0