Перевод целых чисел из одной системы счисления в другую

[Карась]

Сообщение от RIO

program schisleniya;
s:='123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_';{36}
for j:=1 to 36 do begin

36 - это что ? ? ? Я так понял до 36-ричной системы включително можна вычислять или я ошибаюсь? Возможно с этой программой можна вычислить какую угодно систему?

Улыбнуло... Чуть выше написанно:

s:='123456789ABCDEFGHIJKLMNOPQRSTUV WXYZ_';{36}

Если подсчитать, то там ровно 36 элементов....

for j:=1 to 36 do begin

цикл который посимвольно перебирает строку S (все 36 символов), и дальше наверное будет сравнивать....

[RIO]

s:='123456789ABCDEFGHIJKLMNOPQRSTUV WXYZ_';{36}

А что означает символ - _ в конце строки S ? И зачем он там нужен собственно?

[RIO]

Помоготи пожалуйста, переписал код вроде правильно, для перевода из любой системы счисления в десетичную, но где присутствует ошибочка Потомучто считает не правильно И ещё прикол, на Паскале этот код работает правильно, а на Делфи отказуеться работать, считает плохо, так сказать, вызываю я эту функцию вот так :

Memo1.Lines.Add(IntToStr(In10(2, IntToStr(10))));

А сама функция вот:

function In10(A: Integer; B: string): Integer;
var
I, J, C, K, R: Integer;
S, T1, T2: string;
begin
S := '123456789ABCDEFGHIJKLMNOPQRSTUVWXY Z_';
C := Length(B);
for I := 1 to C do
begin
T1 := Copy(B, I, 1);
for J := 1 to 36 do
begin
T2 := Copy(S, J, 1);
if T1 = T2 then
K := J;
end;
R := A * R + K;
end;
Result := R;
end;

[RIO]

Все . . . Сделал, в начале функции нужно было дописать R := 0

[RIO]

Кстати, функция перевода в десятичную систему, работает не коректно . . . В чем проблемка?

[Vanta11a]

Блин, ну немогу я написать рабочую прогу для перевода из 2и-чной системы в 16и-ричную... даже на базе указанных кодов
помогите пожалуйста

[Tesey]

Сообщение от jopa

Благодарю. Теперь разобрался
Немного подгонки под себя и понесу здавать 1ю лабораторку

Не всё равно не канает(( когда переводишь 101 из 2ной в 10ную то получается 7..

[IT-man]

function BinToInt(Value: string): Integer;
 var
   i, iValueSize: Integer;
 begin
   Result := 0;
   iValueSize := Length(Value);
   for i := iValueSize downto 1 do
     if Value[i] = '1' then Result := Result + (1 shl (iValueSize - i));
 end;
// 10 в 2
function IntToBin(d: Longint): string;
 var
   x, p: Integer;
   bin: string;
 begin
   bin := '';
   for x := 1 to 8 * SizeOf(d) do
   begin
     if Odd(d) then bin := '1' + bin
     else
       bin := '0' + bin;
     d := d shr 1;
   end;
   Delete(bin, 1, 8 * ((Pos('1', bin) - 1) div 8));
   Result := bin;
 end;
//16 в 2
 function HexToBin(Hexadecimal: string): string;
 const
   BCD: array [0..15] of string =
     ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',
     '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
 var
   i: integer;
 begin
   for i := Length(Hexadecimal) downto 1 do
     Result := BCD[StrToInt('$' + Hexadecimal[i])] + Result;
 end;
 //10 в 8
 function IntToOct(Value: Longint; digits: Integer): string;
 var
   rest: Longint;
   oct: string;
   i: Integer;
 begin
   oct := '';
   while Value <> 0 do
   begin
     rest  := Value mod 8;
     Value := Value div 8;
     oct := IntToStr(rest) + oct;
   end;
   for i := Length(oct) + 1 to digits do
     oct := '0' + oct;
   Result := oct;
 end;
  // 8 в 10
function OctToInt(Value: string): Longint;
 var
    i: Integer;
   int: Integer;
 begin
   int := 0;
   for i := 1 to Length(Value) do
   begin
     int := int * 8 + StrToInt(Copy(Value, i, 1));
   end;
   Result := int;
 end

;

[Anty_F[R]eez]

если не тяжело переведите в С++ пожалуйста

[gettingup]

всем здорова,я не могу разобраться что в этом куске проги мы делаем?
if p>=10 then b:=copy(s,p,1) else str(p,b);
ss:=b+ss;
n:=n div k;
end;