Написать программу перевода из 16 и 8 -ричнных

[Пчелка]

Написать программу перевода из 16 и 8 -ричнных систем счисления в ДВОИЧНУЮ и обратно.(паскаль), помогите срочно, пожалуйста!

[ViktorR]

Ищи в Сети. Там такие решения есть.
Тут только тратишь время.
Другой путь - раздел для фриланса. плати и получай решение.

[evg_m]

https://www.programmersforum.ru/show...92&postcount=6

[newerow1989]

function Perewod_iz_16_w_2(chislo: string): string;
const Base: array [0..15, 0..1] of string = (('0000', '0'), ('0001', '1'),
         ('0010', '2'), ('0011', '3'), ('0100', '4'), ('0101', '5'),
         ('0110', '6'), ('0111', '7'), ('1000', '8'), ('1001', '9'),
         ('1010', 'A'), ('1011', 'B'), ('1100', 'C'), ('1101', 'D'),
         ('1110', 'E'), ('1111', 'F'));
var i, j: integer;
    c: char;
begin
   Result:='';
   For i:=1 to Length(chislo) do
   begin
      c:=chislo[i];
      If (c>='a') and (c<='z') then
         c:=UpCase(c);
      For j:=Low(Base) to High(Base) do
         If Base[j, 1]=c then
         begin
            Result:=Result+Base[j, 0];
            Break;
         end;
   end;
   While (Result<>'') and (Result[1]='0') do
      Delete(Result, 1, 1);
   If Result='' then
      Result:='0';
end;

function Perewod_iz_2_w_16(chislo: string): string;
const Base: array [0..15, 0..1] of string = (('0000', '0'), ('0001', '1'),
         ('0010', '2'), ('0011', '3'), ('0100', '4'), ('0101', '5'),
         ('0110', '6'), ('0111', '7'), ('1000', '8'), ('1001', '9'),
         ('1010', 'A'), ('1011', 'B'), ('1100', 'C'), ('1101', 'D'),
         ('1110', 'E'), ('1111', 'F'));
var i, j: integer;
begin
   Result:='';
   While Length(chislo) mod 4<>0 do
      chislo:='0'+chislo;
   For i:=1 to Length(chislo) div 4 do
      For j:=Low(Base) to High(Base) do
         If Base[j, 0]=Copy(chislo, (i-1)*4+1, 4) then
         begin
            Result:=Result+Base[j, 1];
            Break;
         end;
   If Result='' then
      Result:='0';
end;

Это моя подсказка, остальное http://newerow1989.narod.ru/publ/per...rugie/1-1-0-29

[ViktorR]

newerow1989

В настоящее время существуют 16-ричные системы счисления, однако автор решил пофантазировать и расширил весь латинский алфавит. Поэтому не стоит удивляться, если при вызове функции Kod_chisla_system(35) выведет 'Z'. Но может в дальнейшем "изобретут" 32-ричные системы счисления, 36-ричные и т.д.

Вы не поверите, но чаще чем десятичной системой счисления народ пользуется 60-иричной.
Да, это рудимент, но ...

Вот только ни один из студентов за много лет не смог назвать случаи применения такой системы без подсказки.
А Вы?