Вопрос по информатике:
Составить процедуру вычисления значения целого числа по заданной строке символов являющейся записью этого числа в шестнадцатиричной системе счисления. Через процедуру или функцию
Пожаловаться
- 10.04.2015 02:56
- Информатика
- remove_red_eye 4311
- thumb_up 25
Ответы и объяснения 1
PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
function HexToDec(n:string):string;
begin
var s:='0123456789ABCDEF';
var (p,pa):=(0,1);
foreach var c in n.Reverse do begin
p+=pa*(Pos(c,s)-1);
pa*=16
end;
Result:=p.ToString
end;
begin
var s:=ReadlnString('Введите 16-ричное число:');
HexToDec(s).Println
end.
Внимание! Если программа не работает, обновите версию!
function HexToDec(n:string):string;
begin
var s:='0123456789ABCDEF';
var (p,pa):=(0,1);
foreach var c in n.Reverse do begin
p+=pa*(Pos(c,s)-1);
pa*=16
end;
Result:=p.ToString
end;
begin
var s:=ReadlnString('Введите 16-ричное число:');
HexToDec(s).Println
end.
Пожаловаться
- 11.04.2015 09:16
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы