|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.04.2008, 12:46 | #1 |
Новичок
Джуниор
Регистрация: 28.04.2008
Сообщений: 1
|
люди помогите) проблема с модулем
написал библиотечный модуль по сложению чисел в двоичной системе счисления
unit Sbin; interface function binsum(bin1,bin2:string):string; implementation function binsum; var i:byte; o:char; be,bmax,bmin:string; begin be:=''; if length(bin1)>length(bin2) then begin bmax:=bin1; bmin:=bin2; end else begin bmax:=bin2; bmin:=bin1; end; o:='0'; for i:=1 to length(bmin) do begin if o='0' then if (bmin[length(bmin)-i+1]='1')xor(bmax[length(bmax)-i+1]='1') then be[i]:='1' else if (bmin[length(bmin)-i+1]='0') then be[i]:='0' else begin be[i]:='0'; o:='1'; end else if (bmin[length(bmin)-i+1]='1')xor(bmax[length(bmax)-i+1]='1') then begin be[i]:='0'; o:='1'; end else if (bmin[length(bmin)-i+1]='0') then begin be[i]:='1'; o:='0'; end else begin be[i]:='1'; o:='1'; end end; for i:=length(bmin)+1 to length(bmax) do if (bmax[i]='1')xor(o='1') then begin be[i]:='1'; o:='0'; end else if (bmax[i]='0') then be[i]:='0' else begin be[i]:='1'; o:='1'; end; if o='1' then be[length(be)+1]:='1'; binsum:=be; end; end. а теперь надо программу написать каторая будет проверять работоспособность модуля, но у меня неполучается(( люди кто может помогите плз очень надо у меня зачет скоро=) надо создать программу на ввод двух чисел и чтобы она щитала сумму через модуль и выдавала ответ!!!помогите плз!! |
28.04.2008, 16:23 | #2 |
Участник клуба
Регистрация: 08.10.2007
Сообщений: 1,185
|
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Небольшие проблемы с модулем, помогите | Taisja | Помощь студентам | 3 | 27.10.2011 14:37 |
Помогите с модулем DCU | grenles | Общие вопросы Delphi | 4 | 12.08.2008 13:47 |