Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.54 MB
Время: 0.013 c