Системы счисления

[ruslan-gonch]

Цель задачи: вводятся числа n, p, q. Перевести число n из числа с основанием p в систему счисления по основанию q.

Используя решения предыдущих задач, я решил перевести число сначала в десятичную систему, а потом в qичную.

Все заготовки на перевод P - 10:

Type
 LongArray = Array Of LongInt;
 
 
Function GetDigits(n, p: LongInt): LongArray;
Var
 x: LongArray;
Begin
 While (n <> 0) Do
  Begin
   SetLength(x, Length(x)+1);
   x[Length(x)-1] := n Mod p;
   n := n Div p;
  End;
 GetDigits := x;
End;
 
Function Digit2Char(n: LongInt): Char;
Begin
 If (n < 10) Then
  Digit2Char := Chr(Ord('0')+n)
 Else
  Digit2Char := Chr(Ord('A')+n-10);
End;

Перевод 10 - Q:

Type
 LongArray = Array Of LongInt;
 
Function C2D(c: Char): LongInt;
Begin
 If (c < 'A') Then
  C2D := Ord(c)-Ord('0')
 Else
  C2d := Ord(c)-Ord('A')+10;
End;
 
Function GDFS(s: String): LongArray;
Var
 x: LongArray;
 i: LongInt;
Begin
 SetLength(x, Length(s));
 For i := 1 To Length(s) Do
  x[i-1] := C2D(s[i]);
 GDFS := x;
End;
 
Function GetNumber(x: LongArray; p: LongInt): LongInt;
Var
 i, n: LongInt;
Begin
 n := 0;
 For i := 0 To Length(x)-1 Do
  n := p*n+x[i];
 GetNumber := n;
End;

Но совместить все эти функции в одну не удаётся- из-за разных типов данных.
Когда я изменил типы на верные- ошибок стало ещё больше!

Что делать?

[mihali4]

Смотрим в низ страницы - "Похожие темы".
Закрыто.
Сколько можно мусолить одно и то же?