Всех ! если вам не сложно, то хотел бы попросить . необходимо решить на яп pascal с использованием подпрограмм, если можно, то с комментариями переменных и некоторых функций. нужно сделать программу, в которой при case можно выбрать систему, из который будет совершаться перевод, а потом аналогично через case выбрать систему, в которую нужно перевести. системы счисления: 2, 8, 10 и 16. заранее .

hard26 hard26    3   21.09.2019 20:01    2

Ответы
Alishkek Alishkek  08.10.2020 07:53
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

function aToDec(n:string;k:integer):integer;
// Перевод из системы по основанию k в десятичную
begin
  var s:='0123456789ABCDEF';
  Result:=0;
  var pa:=1;
  for var i:=Length(n) downto 1 do begin
    Result+=pa*(Pos(n[i],s)-1);
    pa*=k
    end
end;

function DecToa(n,k:integer):string;
// Перевод из десятичной системы в систему по основанию k
begin
  Result:='';
  while n>0 do begin
    var r:=n mod k;
    if r<10 then Result:=r+Result
    else Result:=Chr(Ord('A')+r-9)+Result;
    n:=n div k
    end
end;

function AtoB(s:string;A,B:integer):string;
// Перевод из системы по основанию A в систему по основанию B
begin
  Result:=DecToa(aToDec(s,A),B)
end;
   
begin
  var n:=ReadlnString('Какое число перевести?');
  var (a,b):=ReadInteger2('Исходное и результирующее основания:');
  Writeln(n,'(',a,') = ',AtoB(n,a,b),'(',b,')');
end.

Пример
Какое число перевести? 2018
Исходное и результирующее основания: 10 16
2018(10) = 7E2(16)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика