Текущий архив: 2003.05.29;
Скачать: CL | DM;
Вниз
Как работать с двоичными числами? Найти похожие ветки
← →
han_malign © (2003-05-12 11:57) [40]> hex это то, что ты написал - $080000000;
- я так же мог написать 2147483648(10000000000000000000000000000000b) - от этого машинное представление менее бинарным не станет.
З.Ы. Что бы пресечь дальнейшие препирательства, добавлю
((1 shl 3)or(1 shl 10))- это константа, вычисляемая на этапе компиляции
DIXI
← →
Palladin © (2003-05-12 11:57) [41]нильзя в поскале запесать как канстанту чесло в дваичном вите
← →
Sha © (2003-05-12 12:12) [42]зя, тока он ни паймет
← →
Palladin © (2003-05-12 12:22) [43]в рамках синтаксеса поскаля низя
← →
Nikolay M. © (2003-05-12 12:29) [44]Удалено модератором
Примечание: Личная переписка
← →
Nikolay M. © (2003-05-12 12:44) [45]Удалено модератором
Примечание: Или читай внимательно правила, или организуй свой сайт и не надо обсуждать политику модерирования
← →
Sha © (2003-05-12 12:51) [46]нипанимает поскаль арфаграфию
← →
circul © (2003-05-12 13:04) [47]>BillyJeans
Умерь свои амбиции.
Напиши подобные функции, если с HEX-форматом не умеешь работать:
//Перевод из двоичной в десятичную систему
function BI(const aSrc: String): Int64;
var
tPower: Int64;
i: Integer;
begin
Result := 0;
tPower := 1;
for i := Length(aSrc) downto 1 do
begin
if (aSrc[i]="b") or (aSrc[i]="B") then continue;
if aSrc[i]="1" then Result := Result + tPower;
tPower := tPower*2;
end;
end;
//Перевод из десятичной в двоичную систему
function IB(const aSrc: Int64): String;
var
tDiv,tInt: Int64;
begin
tDiv := aSrc;
Result := "";
while tDiv>0 do
begin
tInt := tDiv shr 1;
if (tInt shl 1) = tDiv then
begin
Result := "0" + Result;
end
else
begin
Result := "1" + Result;
end;
tDiv := tInt;
end;
if Result = "" then Result := "0";
end;
← →
BillyJeans © (2003-05-12 14:51) [48]2 circul
IntToBin чем не устроил?
← →
BillyJeans © (2003-05-12 15:01) [49]2 circul
А ЗАЧЕМ МНЕ HEX???
← →
uw © (2003-05-12 15:07) [50]>BillyJeans © (07.05.03 09:22)
Посмотри, может быть, тебе это понравится:
procedure x;
var
s: set of 0..7;
i: Integer;
begin
i := SizeOf(s); // i = 1
s := [3];
s := s + [4, 7]; // s = [3, 4, 7]
s := s - [4]; // s = [3, 7]
end;
← →
BillyJeans © (2003-05-12 15:29) [51]2 uw
функцию я и сам напишу, только НЕ НУЖНА ОНА МНЕ!!!
← →
Anatoly Podgoretsky © (2003-05-12 15:51) [52]По моему мы возможности форума уже исчерпали, тебе осталось только обратиться к Борланду с претензией.
← →
uw © (2003-05-12 15:54) [53]>Anatoly Podgoretsky © (12.05.03 15:51)
А зачем ему Борланд? НЕ НУЖНА ОНА ЕМУ!!!
← →
Anatoly Podgoretsky © (2003-05-12 16:24) [54]А зачем нам кузнец, нам и без кузнеца хорошо.
← →
Домарощинер © (2003-05-12 17:49) [55]Человек сам кузнец своего несчастья.
Страницы: 1 2 вся ветка
Текущий архив: 2003.05.29;
Скачать: CL | DM;
Память: 0.56 MB
Время: 0.021 c
