VPF::Двоичная система исчисления - Форум программистов

_hunter

Дата 1.1.2005, 14:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

смешно

даже очень

--------------------

Tempora mutantur, et nos mutamur in illis...

Guest

Дата 12.10.2005, 17:28 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

решите кто-нибудь вот это ( тока сёдня надо!!!!!!):
D42(16) - 52(8) + 11011(2)
В скобках система исчисления..... smile

SoWa

Дата 12.10.2005, 18:29 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74

Код


function FromToAnySys(fromSys,ToSys: integer; chislo: string): string;
var
i,k,mo: integer;
d: int64;
buk: int64;
step: int64;
s,sl: string;
s1: int64;
m: string;

function revert(n: string): string;
var i: integer;
q: string;
begin
for i:=length(n) downto 1 do
 begin
  q:=q+n[i];
 end;
 revert:=q;
end;

begin
 m:='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
 s:='';
d:=0;
for i:=1 to length(chislo) do
 begin
  for k:=1 to 37 do
   begin
    if chislo[i]=m[k] then buk:=k-1;
   end;
  step:=strtoint(floattostr(power(FromSys,(length(chislo)-i))));
  d:=d+(buk*step);
 end;

while d<>0 do
 begin
  mo:=d mod ToSys;
  s:=s+{inttostr(mo)}m[mo+1];
  d:=d div ToSys;
 end;

result:=revert(s);
end;

Посчитай сам...

--------------------

Всем добра smile

cardinal

Дата 12.10.2005, 19:17 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 2
Всего: 99

Или воспользуйся калькулятором в windows...

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

MacTep

Дата 18.6.2006, 19:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

SoWa, а как сделать, чтобы эта функция еще и дробные числа переводила?

Это сообщение отредактировал(а) MacTep - 18.6.2006, 19:13

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »