Вашему вниманию предлагаются алгоритмы перевода из одной систем счисления в другую (с основанием < 37)

Вы можете познакомиться с текстами программ на языке программирования Pascal и C++, а также осуществить перевод чисел с использованием программ, запустив их.

1. FUNCTION POT(AP,BP:INTEGER):LONGINT;
2. VAR RESU:LONGINT; X:INTEGER;
3. BEGIN
4. IF BP=0
5. THEN POT:=1
6. ELSE BEGIN
7. RESU:=AP;
8. FOR X:=2 TO BP DO
9. RESU:=RESU*AP;
10. POT:=RESU;
11. END;
12. END;
13.  
14. FUNCTION DEC2BASE(BASE:INTEGER; DE:LONGINT):STRING;{Перевод десятичного числа в число с основанием base}
15.  
16. CONST
17. NUMSTR:STRING='0123456789ABCDEFGHAIJKLMNOPQRSTUVWXYZ';
18.  
19. VAR
20. NUM:STRING; I,J:INTEGER;
21.  
22. BEGIN
23. IF (DE=0) OR (BASE <2) OR (BASE >36)
24. THEN NUM:='0'
25. ELSE BEGIN
26. NUM:='';
27. I:=0;
28. WHILE POT(BASE,I+1) <=DE DO INC(I);
29. FOR J := 0 TO I DO
30. BEGIN
31. NUM:=NUM+NUMSTR[(DE DIV POT(BASE,I-J))+1];
32. DE:=DE MOD POT(BASE,I-J);
33. END;
34. END;
35. DEC2BASE:=NUM;
36. END;
37.  
38. FUNCTION BASE2DEC(BASE: INTEGER; NUM: STRING): LONGINT; {Перевод числа с основанием base в десятичное число}
39.  
40. FUNCTION Digt(Ch: CHAR): BYTE;
41.  
42. CONST
43. NUMSTR:STRING='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
44.  
45. VAR
46. I,N:BYTE;
47.  
48. BEGIN
49. N:=0;
50. FOR I:=1 TO Length(NUMSTR) DO
51. IF Ch = NUMSTR[i]
52. THEN N := I - 1;
53. Digt := N;
54. END;
55.  
56. CONST
57. NUMSet:SET OF CHAR = ['0'..'9', 'A'..'Z'];
58.  
59. VAR
60. J:INTEGER; DE:LONGINT;
61.  
62. BEGIN
63. DE:=0;
64. FOR J:=1 TO Length(NUM) DO
65. BEGIN
66. DE := DE + Digt(UpCase(NUM[J])) * POT(BASE, Length(NUM) - J);
67. END;
68. BASE2DEC:=DE;
69. END;
70.  
71.  
72.  
73. var
74.  
75. s:string;
76. n,p:integer;
77.  
78. BEGIN
79. write('Chislo: ');
80. readln(s);
81. write('n: ');
82. readln(n);
83. write('p: ');
84. readln(p);
85. writeln(DEC2BASE(p, BASE2DEC(n,s)));
86. END.

1. #include <iostream.h>
2. #include <cstring>
3. #define DIG "0123456789ABCDEFGHIGKLMNOPQRSTUVWXYZ"
4. using namespace std;
5.  
6. int Atoi(char *s, int p){ /*  Функция для перевода из СС с основанием p в десятичную СС*/
7. int i, a, digit[256] = {0};
8. for(i = 0; DIG[i]; i++)
9. digit[DIG[i]] = i;
10. for(i = a = 0; s[i]; i++)
11. a = a * p + digit[s[i]];
12. return a;
13. }
14.  
15. void Itoa(int a, int p, char *s) { /*  Функция для перевода из десятичной СС в СС с основанием p*/
16. static int i = 0, n;
17. if (a) {
18. ++i;
19. Itoa(a / p, p, s);
20. s[n - i--] = DIG[a % p];
21. }
22. else
23. s[n = i] = '\0';
24. }
25.  
26. int main(){
27. char s[1024];
28. int n, p;
29. cout << "Chislo: ";
30. cin >> s;
31. cout << "n: ";
32. cin >> n;
33. cout << "p: ";
34. cin >> p;
35. Itoa(Atoi(s, n), p, s);
36. cout << s << endl;
37. system("pause");
38. return 0;
39. }
40.