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

[=LeonZone=]

Необходимо написать такую программу... Выбор системы счисления производится пользователем, а желательно вообще в Edit вводить)
Есть у кого-нибудь готовые функции или что-то в этом роде? Вообщем помогите пожалуйста!

[bill]

алгоритм перевода любой системы счисления в двоичную выкладывал здесь.(там с коментами) В другие аналогично.

[Tayfun]

Программа перевода из k-ричной в j-ричную систему счисления. Алгоритм сделан на Паскале для Delphi аналагично!
SISSCHIS.rar

[=LeonZone=]

Оказывается это не так уж и сложно! Огромное спасибо)

[bill]

Улучшенный варант кода + сам проект-вложение. Все работает.

[Ruver000]

А если нужно допустим перевести 69A в 16ой системе (число и система вводится пользователем) в 4ую(система тоже вводится пользователем) систему...

[jopa]

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

Программа перевода из k-ричной в j-ричную систему счисления. Алгоритм сделан на Паскале для Delphi аналагично!
Вложение 1044

Несовсем ясен твой алгоритм. Не пойму что за чем происходит.
1я половина програмы ясна - перевод с 10й системы в указаную.
Но что делает 2я половина проги я так и не понял
//
Введите число
-13
Введите систему
-17
D
Введите систему
-19
Введите число
-D
13
//
Что за нах?
с 10й число 13 перевело в 17ричную - вышло D. потом я ввожу 19ричную систему и этоже число D а мне выводит 13. Хотя по сути она должна была перевести число с 17й в 19ю систу счисления.

[Tayfun]

Что за нах?
с 10й число 13 перевело в 17ричную - вышло D. потом я ввожу 19ричную систему и этоже число D а мне выводит 13. Хотя по сути она должна была перевести число с 17й в 19ю систу счисления.

Кароче... ТАм маленькая опечатка есть, вот правильный вариант:

program schisleniya;
uses crt;
var
b2,ss,b,s:string;
os,c,e,ch,p,i,j,n,k:integer;
begin
clrscr;
s:='123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_';{36}
writeln('VVEDITE CHISLO');
read(n);
writeln('VVEDITE SISTEMU SCHISLENIYA');
read(k);
while n>=1 do begin
p:=n mod k;
if p>=10 then b:=copy(s,p,1) else str(p,b);
ss:=b+ss;
n:=n div k;
end;
writeln(ss);
writeln('VVEDITE SISTEMU SHISLENIYA');
readLN(k);
writeln('VVEDITE CHISLO');
readln(sS);
c:=length(ss);
for i:=1 to c do begin
b:=copy(ss,i,1);
for j:=1 to 36 do begin
b2:=copy(s,j,1);
if b=b2 then os:=j;
end;
ch:=k*ch+os;
end;
writeln(ch);
readkey;
end.

Вторая часть переводит из k-ричной системы счисления в 10-ричную
1)Вводишь систему счисления.
2)Вводишь число в этой системе счисления

[jopa]

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

Кароче... ТАм маленькая опечатка есть, вот правильный вариант:

program schisleniya;
uses crt;
var
b2,ss,b,s:string;
os,c,e,ch,p,i,j,n,k:integer;
begin
clrscr;
s:='123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_';{36}
writeln('VVEDITE CHISLO');
read(n);
writeln('VVEDITE SISTEMU SCHISLENIYA');
read(k);
while n>=1 do begin
p:=n mod k;
if p>=10 then b:=copy(s,p,1) else str(p,b);
ss:=b+ss;
n:=n div k;
end;
writeln(ss);
writeln('VVEDITE SISTEMU SHISLENIYA');
readLN(k);
writeln('VVEDITE CHISLO');
readln(sS);
c:=length(ss);
for i:=1 to c do begin
b:=copy(ss,i,1);
for j:=1 to 36 do begin
b2:=copy(s,j,1);
if b=b2 then os:=j;
end;
ch:=k*ch+os;
end;
writeln(ch);
readkey;
end.

Вторая часть переводит из k-ричной системы счисления в 10-ричную
1)Вводишь систему счисления.
2)Вводишь число в этой системе счисления

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

[RIO]

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

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