Системы счисления ^^(Паскаль)

[Лесная Эльфийка]

Шестнадцатеричное
число записано в строковой переменной. Написать программу, которая
переводит это число в десятичную систему счисления. (видела много подобных программ, но не додумаюсь как оставить только 16-10 ^^"")

[Niro]

видела много подобных программ, но не додумаюсь как оставить только 16-10 ^^""

А самы не пробовали сделать? вот я попробовал и сделал, держите

   uses crt;
   var hex: string;
   a: char;
   x,c,i,k: integer;
   s: real;
BEGIN
   clrscr;
   writeln('Vvedite hex-chislo');
   readln(hex);
   k:=0;
   for i:=length(hex) downto 1 do
     begin
       val(hex[i],x,c);
       if c=0 then s:=s+x*(exp(k*ln(16)))
                 else
                   begin
                      a:=hex[i];
                      case a of
                      'A': x:=10;
                      'B': x:=11;
                      'C': x:=12;
                      'D': x:=13;
                      'E': x:=14;
                      'F': x:=15;
                      end;
       s:=s+x*(exp(k*ln(16)));
                   end;
     k:=k+1;
     end;
   writeln('V dec system schislenia = ',s:0:0);
   readln;
END.

[Serge_Bliznykov]

>> s:=s+x*(exp(k*ln(16)));
жуть то какая... зачем это?!

вот два решения.
первое.
Используется одна "хитрая" особенность стандартной паскалевской функции VAL()

var 
  s : string;
  d,err : integer;
begin
  WriteLn;
  Write('Введите число в шестнадцатеричной системе: ');
  ReadLn(s);
  Val('$'+s, d, err);
  if err<>0 then WriteLn('Ошибка ввода, число '+s+' не является верной записью шестнад/числа')
  else WriteLn('Десятичное значение числа равно ',d);
  readln;
end.

второе. "честное", по всем правилам перевода из одной системы счисления в другую.

function StrHexToInt(S :  string; var Err : integer) : Longint;
const  Digits : array[0..$F] of Char = '0123456789ABCDEF';
var
  D    : LongInt;
  i, k : integer;
begin
  D := 0;
  Err := 0;
  i := 1;
  while (i<=Length(S)) and (Err=0) do begin
    k := Pos(Upcase(S[i]), Digits);
    if k=0 then Err := i
    else
      D := D * 16 + (k-1);
    inc(i);
  end;
  StrHexToInt := D;
end;


var 
  s : string;
  d, err : integer;
begin
  WriteLn;
  Write('Введите число в шестнадцатеричной системе: ');
  ReadLn(s);
  d := StrHexToInt(s, err);
  if err<>0 then WriteLn('Ошибка ввода, число '+s+' не является верной записью шестнад/числа')
  else WriteLn('Десятичное значение числа равно ',d);
  readln;
end.

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

[Niro]

жуть то какая... зачем это?!

Это риторический вопрос или нет? если нет, то чтобы перевести число из q-ичной сс в десятичную надо: над цифрами q-ичного числа подписать их порядковые номера, начиная с нуля и начиная с конца числа, затем... вообщем например:

номера 210
число 1С5=(5*16^0)+(C*16^1)+1*16^2)=5+192 +256=453

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

[Serge_Bliznykov]

Niro а что, мой пример недостаточно понятный или короткий?

я вообще-то другое имел в виду. Возведение в степень НЕ НУЖНО!! Совсем!
Достаточно операции умножения на 16.
и всё.

для вашего примера:
число 1С5= ((1*16) + C)*16 + 5 = 453

[Лесная Эльфийка]

Благодарю. ^__^