Решаем задачи Абрамян на Паскале. Param47

Param47. Описать функцию HexToDec($$S$$) целого типа, определяющую целое неотрицательное число по его строковому представлению $$S$$ в 16-ричной системе счисления. Параметр $$S$$ имеет строковый тип, состоит из символов «0»-«9», «A»-«F» и не содержит ведущих нулей (за исключением значения «0»). Используя эту функцию, вывести пять чисел, для которых даны их 16-ричные представления.
Решение:

program Param47;
type
 St=String;

var i:integer;
S:St;

function HexToDec(S:St):integer;
var
 NumS: String;
begin
 NumS:='0123456789ABCDEF';
 result:=0;
 for i:=1 to length(S) do
  result:=result+(pos(S[i],NumS)-1)*round(Exp((length(S)-i)*Ln(16)));
end;

begin
 for i:=1 to 5 do
  begin
   Write('S: ');
   readln(S);
   writeln(HexToDec(S));
  end;
end.

program Param47;

type

St=String;

var i:integer;

S:St;

function HexToDec(S:St):integer;

var

NumS: String;

begin

NumS:='0123456789ABCDEF';

result:=0;

for i:=1 to length(S) do

result:=result+(pos(S[i],NumS)-1)*round(Exp((length(S)-i)*Ln(16)));

end;

begin

for i:=1 to 5 do

begin

Write('S: ');

readln(S);

writeln(HexToDec(S));

end;

end.

Другие задачи из раздела Param можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Param47

Комментарии:

Добавить комментарий Отменить ответ