Преобразования данных

← →
Key (2003-10-02 07:13) [0]

Помогите, плз, функцией, преобразующей число из десятичной в шестнадцатиричную и наоборот, при этом число в шестнадцатиричной системе шестнадцатиразрядное.

← →
HolACost! (2003-10-02 07:18) [1]

IntToHex(Chislo, 4);
StrToInt("$"+ IntToHex(Chislo, 4));
:)))

← →
Anatoly Podgoretsky (2003-10-02 07:24) [2]

Очень красиво сказал "при этом число в шестнадцатиричной системе шестнадцатиразрядное"

← →
Key (2003-10-02 15:02) [3]

а обратно?

← →
ZEE (2003-10-02 15:10) [4]

> Key (02.10.03 15:02) [3]
> а обратно?
HexToBin()

← →
Anatoly Podgoretsky (2003-10-02 20:34) [5]

Если ты не понял, то HolACost! © (02.10.03 07:18) [1]
это туда и обратно.

← →
HolACost! (2003-10-02 20:48) [6]

>> Если ты не понял, то HolACost! © (02.10.03 07:18) [1]
Я польщён, но простите, туда и обратно - это почему это со мной ассоциируется! Гым!!!!!!
:)))

← →
777 (2003-10-02 20:49) [7]

Не мое, хотя могу и мое :)
- Group A (2:469/138.1) ----------------------------------------- NICE.SOURCES -
Msg : 505 из 2515 -498 *520
From : Kostya Rybalkin 2:5084/38.6 Вск 04 Июн 00 01:18
To : Mike Tishetsky Вск 04 Июн 00 08:11
Subj : Сконвеpтиpовать десятичное число в хекс, окт и бин
--------------------------------------------------------------------------------
Hello, _Mike!_

Saturday June 03 2000, Alexander Gershkovitch writes to Mike Tishetsky at 11:00:

MT>> Hyжен yнивеpсальный метод конвеpчинья десятичного числа в однy из
MT>> пеpечисленных систем исчисления. То есть так, чтобы можно было
MT>> задавать основание.

AG> Под Си пpосто использовать в фyнкции:

[... skipped ...]

А под pas можно вот так:

const
{ "Цифpы" числа в дpyгой системе счисления }
Hexes: Array[0..35] of char = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";

{ Пеpевод числа D в системy счисления с основание Sys }
{ методом деления на основание }
function ToAnySys(D: LongInt; Sys: Byte): String;
var
i: byte;
Answer: string;
begin
{ToAnySys := "";}
if not(Sys in [2..36]) then Exit;
Answer := "";
repeat
i := D mod Sys;
D := D div Sys;
Answer := Hexes[i] + Answer;
until D = 0;
ToAnySys := Answer;
end;

{ Пеpевод числа D из системы счисления с основанием Sys }
{ методом yмножения на основание }
function FromAnySys(D: String; Sys: Byte): LongInt;
var
i: byte;
Answer: LongInt;
begin
{ToAnySys := 0;}
if not(Sys in [2..36]) then Exit;
Answer := 0;
for i := 1 to Byte(D[0]) do
Answer := Answer * Sys + (Pos(Copy(D, i, 1), Hexes) - 1);
FromAnySys := Answer;
end;

SiNcerelly yours, K.R.

... Rest In Peace
--- GoldED 3.00.Beta2+ --------------------------------------------------------
* Origin: Grave BBS L----------------------------------------- (2:5084/38.6)

← →
HolACost! (2003-10-02 20:56) [8]

Доздравствуют пушки и воробьи!!!
Fire!!!!!

← →
Anatoly Podgoretsky (2003-10-02 21:15) [9]

HolACost! © (02.10.03 20:48) [6]
Потому что это ты привел функци StrToInt и IntToHex, ну добавим еще IntToStr до полного счастья

← →
Anatoly Podgoretsky (2003-10-02 21:20) [10]

А полностью это будет выглфдеть так
Туда IntToHex(StrToInt(S),4); Обратно IntToStr(StrToInt("$"+ S));

← →
Alexious (2003-10-02 23:08) [11]

А кто может написать функцию перевода не десятичного числа?

← →
Anatoly Podgoretsky (2003-10-02 23:43) [12]

Многие могут

← →
Endi (2003-10-02 23:52) [13]

Ага, недесятичное, в недвоичную, с невосьмеричным основанием, в нешестандцатиричной степени.

← →
Palladin (2003-10-02 23:56) [14]

:) Сплошной сюрреализьм...

← →
имя (2003-10-03 00:03) [15]

Удалено модератором

← →
Alexious (2003-10-03 00:03) [16]

2 Anatoly Podgoretsky
Может у тебя есть функции ?
10 в 2
10 в 8
10 в 16
для нецелых чисел

← →
Германн (2003-10-03 03:52) [17]

>Alexious (03.10.03 00:03) [16]
>2 Anatoly Podgoretsky
>Может у тебя есть функции ?
>10 в 2
>10 в 8
>10 в 16
>для нецелых чисел

Даааа! Не знаю работает ли сейчас уроки Юрия Зотова, но автору сего вопроса именно туда.

Двоичная, десятичная, восмиричная, семиричная, шестнадцатиричная и т.д. и т.п. - это все системы счистления, т.е. системы отображения подсчета количества чего-то(количества галош в семье, например). И как данное количество может быть нецелым?

← →
Alexious (2003-10-03 09:20) [18]

← →
Германн (2003-10-04 03:38) [19]

>Alexious (03.10.03 09:20) [18]
>>Германн © вот так
>>десятичное - 0,5
>>двоичное - 0,00101101
>>восьмеричное - 0,25
>>шестнадцатиричное - 0,2E

Я, конечно, не Мастер Дельфи. И значка соответсвующего у меня нет и не будет. Может я что-то не знаю. Может что-то еще. Но извини совершенно не могу понять, что означают твои записи формата 0,Х...Х! Кроме десятичное - 0,5!

← →
default (2003-10-04 04:46) [20]

пусть o - натуральное число(основание с/c), тогда
1) при o = 10 (десят-ая с/c):
12,37 = 1*10^1 + 2*10^0 + 3*10^(-1) + 7*10^(-2)
2) при o = 8 (восм-ая система с/c):
12,37 = 1*8^1 + 2*8^0 + 3*8^(-1) + 7*8^(-2)

и подобное

← →
zmei (2003-10-04 19:51) [21]

2 Германн
Это я записал нецелые числа в разных системах исчисления!
http://thl.narod.ru/tehnologia/informatika/lecture2.htm

Преобразования данных Найти похожие ветки