Программа перевода в любую систему счисления (n<=16)

pascal
  1. Uses crt; {в массив констант записываются символы системы счисления, в которую будет осуществлен перевод}
  2. const a:array[0..15] of char=('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
  3. var uk, n, m, i, k: integer;
  4.       rez:string;
  5.       b:array[1..30] of byte;
  6. Begin
  7.   clrscr;
  8.   write('Chislo = ');
  9.   readln(n);
  10.   write('Osnovanie = ');
  11.   readln(m);
  12.   uk:=0;
  13.   rez:='';
  14.   while n>0 do
  15.   begin
  16.      inc(uk);
  17.      b[uk]:=n mod m;
  18.      n:=n div m;
  19.   end;
  20.   writeln;
  21.   for i:=uk downto 1 do
  22.     rez:=rez:+a[b[i]];
  23.   writeln('Rezultat perevoda = ', rez);
  24.   readkey
  25. end.
вроде то :gg:
Назад

Реклама

Мы в соцсетях

tw tg yt gt