var a : string;
 
function HEX_DEC(x:string):longint;
const digits:array [0..15] of char =
      ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
var res,ves:longint; i,j:byte;
begin
   res:=0; ves:=1;
   for i:=length(x) downto 1 do begin
      j:=0; a[i]:=UpCase(a[i]);
      while (digits[j]<>x[i]) do inc(j);
      res:=res+ves*j;
      ves:=ves*16;
   end;
   HEX_DEC:=res;
end;
 
begin { основная программа }
  readln( a );
  writeln( HEX_DEC(a) );
end.

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

25.02.2014, 16:11

Ответы с готовыми решениями:

Нетипизированные параметры подпрограмм. Рассчитать среднее значение порядковых номеров символов строк
Помогите пожалуйста с программой,а то совсем туплю с этой темой.Нужно рассчитать среднее значение...

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

Параметры-значения и параметры-переменные подпрограмм
Помогите пожалуйста в решении: С помощью подпрограмм ввода и вывода вектора ввести и вывести...

Вставка подпрограмм-процедур и подпрограмм-функций
Помогите пожалуйста. Мне надо для ввода, вывода использовать процедуры а для обработки функции. А...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

25.02.2014, 16:11

Помогаю со студенческими работами здесь

нетипизированные файлы
НЕТИПИЗИРОВАННЫЕ ФАЙЛЫ В файле *.* содержатся записи, имеющие следующую структуру: group...

нетипизированные файлы
здравствуйте! мне очень нужна Ваша помощь в решении задачи.вот текст: Создать нетипизированный...

Нетипизированные файлы.
Доброго времени!!!Помогите составить задачу на паскале : Создать файл вещественных чисел....

Файлы нетипизированные
Создать нетипизированный файл, компоненты (количество <=8) которого являются вещественными числами....

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх