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

[Nikitaunett]

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

[russian-stalker]

Что именно не выходит?

[Nikitaunett]

вот не могу понять здесь надо писть мссив или нет???

ну и дальше пока не могу понять как писать

[Stilet]

А сами то формулы перевода ты знаешь?
На бумажке сможешь рассчет сделать?

[Nikitaunett]

ну да. нам сказали писать с помощью div и mod

[russian-stalker]

Нашёл у себя на компе(когда то давно для себя делал) :

var
 m,o,t,c,i,ss,k,e:integer;
 b,tt,h:string;
begin
 writeln('Программа для перевода систем счисления');
 writeln;
 Writeln('1.Перевести из десятичной в n-ую систему');
 Writeln('2.Перевести из n-ой системы в десятичную');

 readln(m);
 if (m<>1) and (m<>2) then
 halt;
 writeln;
 writeln('Введите систему счисления:');
 readln(ss);
 writeln;
 case m of
 1:begin
 writeln('Введите число в десятичной системе:');
 readln(c);
 b:='';
 t:=c;
 while c<>0 do
 begin
  t:=c;
  c:=c div ss;
  str(t mod ss,tt);
  b:=tt+b;
 end;
 writeln;
 writeln('Получается: ',b,' в ',ss,'-ичной системе счисления');
 end;
 2:begin
 writeln('Введите число в ',ss,'-ичной системе счисления:');
 readln(c);
 b:='';
 str(c,h);
 o:=0;
 for i:=1 to length(h) do
 begin
  val(h[i],k,e);
  o:=o+round(power(ss,length(h)-i)*k); 
 end;
 writeln;
 writeln('Получается: ',o,' в десятичной системе счисления');
 end;
 end;
end.

[Nikitaunett]

а можно по просче??? без string и b:='', и без length(h)?????

[russian-stalker]

Можно и через массивы, и через просто числа, но мне нравится делать через строки

[Nikitaunett]

да блин нам просто препад не объяснял как работать через строки. так что будет тупо ваглядеть если я именно так напишу=)=) но всеравно огромное спасибо

[vasek123]

http://programmersforum.ru/showpost....9&postcount=19
Не поможет? А вообще, вы это искали?

p.s. Внизу, тем по системам счисления полно...