function IntToBin (val:integer): string;
var
i:integer;
begin
result:='';
i:=128;
repeat
If (val-i)>=0 then
begin
result:=result+'1';
val:=val-i;
end
else
result:=result+'0';
i:=Round(i/2);
Until i<=0
end;
ИнтТуБин
Страница: 1
Сообщений 1 страница 2 из 2
Поделиться12006-10-20 13:41:29
- Глубина, я не твой...
- Зарегистрирован: 2006-10-18
- Приглашений: 0
- Сообщений: 508
- Пол: Мужской
- Провел на форуме:
1 день 10 часов - Последний визит:
2008-03-18 17:30:36
Поделиться22006-10-20 13:52:21
- Доблестный Воин Света, Властелин Мира
- Зарегистрирован: 2006-10-19
- Приглашений: 0
- Сообщений: 369
- Провел на форуме:
1 день 1 час - Последний визит:
2008-08-22 09:51:26
function IntToBin (val:integer): string;
var
i:integer;
begin
i:=val;
repeat
Result:=Result+IntToStr(i mod 2);
i:=i div 2;
until i<2;
Result:=Result+IntToStr(i);
end;
Вроде правильно, ток биты в обтратном порядке.
Отредактировано Necros (2006-10-20 13:56:56)
Страница: 1