Составить процедуру вычисления значения целого числа по заданной строке символов являющейся записью этого числа в шестнадцатиричной системе счисления. Через процедуру или функцию
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад