Перевод из одной системы в другую

[АришаЯ]

Исходный файл содержит числа в шестнадцатеричной системе счисления, отделенные друг от друга пробелами. Необходимо составить программу, которая для каждого такого числа из заданного диапазона после знака равенства указывает его значение в десятичной системе счисления, восьмеричной системе счисления или в дополнительном коде по выбору пользователя, например:
00101111 = 33353,10000 = 512, и т. д.

[Stilet]

Могу посоветовать такое: http://www.programmersforum.ru/showp...4&postcount=36

[Вадим Мошев]

Прочитайте здесь http://www.programmersforum.ru/showp...4&postcount=36
Может, поможет

Виталий опередил

[АришаЯ]

Спасибо большое за полезные ссылки.буду смотреть))

[IgorGO]

если знаете что такое Ексель и как пользоваться макросами в нем, то вот написал практически для Вас перевод из 10-тиричной в любую от 2 до 36-ричной и обратно.
перевод из любой в любую нужно сделать через перевод из любой в 10, потом из 10 в любую.

' из 10-ричной системы в какую-то n-ричную
Function D2xz(d As Long, n As Long) As String
  Dim r As Integer, s As String
  r = Int(Log(d + 0.001) / Log(n))  'Для 64, 128 перевод в 2-ичную систему дало неожиданный результат: Log(128)/Log(2) = 7 - это
  'правильно, а Int(Log(128)/Log(2)) уже равно 6 и в старшем разряде получается "2"!!!, пришлось добавить нелогичный 0.001
  Do
    s = s & D2C(Int(d / n ^ r))
    d = d - Int(d / n ^ r) * n ^ r
    r = r - 1
  Loop Until r = -1
  D2xz = s
End Function
' и обратно
Function xz2D(s As String, n As Long) As Long
  Dim r As Integer, d As Long
  For r = 0 To Len(s) - 1
    d = d + C2D(Mid(s, Len(s) - r, 1)) * n ^ r
  Next
  xz2D = d
End Function

Function D2C(i As Integer) As String
  D2C = Split("0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z", ",")(i)
End Function

Function C2D(c As String) As Long
  C2D = InStr("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", c) - 1
End Function

[АришаЯ]

Помогите пожалуйста записать процедуру перевода из 16-й системы в 2-ю без перевода в 10-ю

[АришаЯ]

нашла уже))

[АришаЯ]

Но теперь не понимаю как извлечь числа,которые написаны через запятую из файла ((помогите !!!очень прошу

[Stilet]

Покажи чего добилась.

[АришаЯ]

я кусками накидала не знаю как связать всё
Program
Var

procedure ten;
var i:byte;
begin
k:=ord(s[0]);
chislo:=0;
for i:=1 to k do
begin
case s[i] of
'0'[i]:=0;
'1'[i]:=1;
'2'[i]:=2;
'3'[i]:=3;