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

[Лександра]

Сообщение от 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.

Нужна программа не конкретно к этим системам счисления, а для перевода из одной в другую. (от двоичной до шестнадцатеричной) Исходная СС может быть любая.

[temaps]

Сообщение от Лександра

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

Написано же в приглашении что ввести надо:
writeln('Input k1, number, k2:');
Сначала систему счисления, потом число в этой системе (закончить пробелом), потом вторую систему счисления.
Правда эта конструкция на первый взгляд мне кажется немного перегружена, но копать не охота, раз работает:

read(c);
  repeat
    read(c);
    if c <> ' ' then
      num := num * k1 + pos(c, s) - 1;
  until c = ' ';

[Poma][a]

program Translate;

function ConvertRadix (n : LongInt; r : Byte) : string;

var
	s : string;
	c : Integer;
begin
	s := '';
	repeat
		c := n mod r;
		if c < 10 then
			s := Chr (c + 48) + s
		else
			s := Chr (c + 55) + s;
		n := n div r;
	until n = 0;

	ConvertRadix := s;
end;

var
	n : LongInt;
	r : Byte;

begin
	Read (n, r);

	WriteLn (ConvertRadix (n, r))
end.

[temaps]

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

program Translate;

[Poma][a]

что-то не нравится?