Системы счисления в Паскале.

[Лександра]

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

[BDA]

uses
  crt;

const
  s: string = '0123456789ABCDEF';

var
  k1, k2: integer;
  num: longint;
  c: char;

procedure translate(num, k: integer);
begin
  if (num <> 0) then
  begin
    translate(num div k, k);
    write(s[num mod k + 1]);
  end;
end;

begin
  writeln('Input k1, number, k2:');
  read(k1);
  num := 0;
  read(c);
  repeat
    read(c);
    if c <> ' ' then
      num := num * k1 + pos(c, s) - 1;
  until c = ' ';
  readln(k2);
  if num <> 0 then
    translate(num, k2)
  else
    writeln('0');
  readln;
end.

[Paster Fob]

из десятичной в двоичную:

var n,b,i,k:integer;s:string;ch:char;
 begin
   writeln('Преобразование десятичного числа в двоичное');
   writeln('введите целое число от 0 до 255');
   readln(n);
   k:=n;
   s:='';
   for i:=1 to n do begin
     b:=n mod 2;
       if b=0 then ch:='0'
       else ch:='1';
     s:=ch+s;
     n:=n div 2;
       if n=0 then break;
   end;
   writeln('десятичному числу ',k,' соответствует двоичное ',s);
   readln
 end.

[Poma][a]

из десятичной в двоичную

[s-andriano]

Сообщение от Paster Fob

из десятичной в двоичную:
...

Жестоко...
Кстати, Вы уверены, что изначально число было именно в десятичной системе? (мне почему-то кажется, что в двоичной)

[Poma][a]

Сообщение от s-andriano

Кстати, Вы уверены, что изначально число было именно в десятичной системе? (мне почему-то кажется, что в двоичной)

[s-andriano]

Сообщение от Poma][a

Где-то я уже видел эту картинку.

[Paster Fob]

Сообщение от Poma][a

из десятичной в двоичную

Сообщение от s-andriano

Жестоко...
Кстати, Вы уверены, что изначально число было именно в десятичной системе? (мне почему-то кажется, что в двоичной)

Как-то попалось мне такое задание на цикл for:
"Написать программу, которая преобразует введённое пользователем десятичное число в двоичное.
Пример работы:
Преобразование десятичного числа в двоичное
Введите целое число от 0 до 255
26
Десятичному числу 26 соответствует двоичное 11010"
вот я и привёл пример решения.

Что опять не нравиться-то?

[Poma][a]

1) Уважаемый, оверквотингом страдать не надо!
2) Ответ ТС был дан, и ответ очень (подчеркиваю ОЧЕНЬ) хороший, после чего вы неожиданно решили не из любой позиционной перевести в другую(опять же ЛЮБУЮ) позиционную с.с., а лишь из 10-чной в 2-чную, что и вызвало мою реакцию

[Лександра]

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

uses
  crt;

const
  s: string = '0123456789ABCDEF';

var
  k1, k2: integer;
  num: longint;
  c: char;

procedure translate(num, k: integer);
begin
  if (num <> 0) then
  begin
    translate(num div k, k);
    write(s[num mod k + 1]);
  end;
end;

begin
  writeln('Input k1, number, k2:');
  read(k1);
  num := 0;
  read(c);
  repeat
    read(c);
    if c <> ' ' then
      num := num * k1 + pos(c, s) - 1;
  until c = ' ';
  readln(k2);
  if num <> 0 then
    translate(num, k2)
  else
    writeln('0');
  readln;
end.

Не въеду в принцип работы программы.
Если я правильно поняла, то когда программа запрашивает к1 и к2 нужно ввести число и его систему счисления. Даже если не так, при вводе абсолютно разных чисел, программа не идет дальше и не выдает соответствующий результат.
Может что-то не так. Я своим не опытным взглядом не могу этого ещё определить.((