Question

Программа на входе получает целое десятичное число и основание системы счисления в которой надо это число перевести, выводит переведённое число. НА ПАСКАЛЕ, (от троичной до девятиричной системы может ввести пользователь), написать как можно проще, без использования сложных элементов.

Answer 1

program n_1;

uses crt;

var

 n: longint;

 k: integer;

function Sym(n: integer): char;

begin

 case n of

   0..9: Sym := chr(48 + n);  

   10..36: Sym := chr(55 + n);  

 end;

end;

function funct(n: longint; k: integer): string;

var

 st: string;

begin

 st := '';

 if n = 0 then st := '0' else

 begin

   while n >= 1 do

   begin

     st := Sym(n mod k) + st;

     n := n div k;

   end;

 end;

 DecToX := st;

end;

begin

 readln(n);

 repeat

   readln(k);

 until (2 <= k) and (k <= 36);

 writeln(funct(n, k));

end.

Answer 2

Для написания программы на языке Pascal, которая переводит целое десятичное число в другую систему счисления, можно использовать простой алгоритм деления числа на основание системы и последовательное накопление остатков. Вот пример программы на Pascal:

pascalCopy code
program DecimalToBase;

var
  decimalNumber, base, remainder, quotient: Integer;
  result: String;

begin
  // Вводим число и основание системы счисления
  Write('Введите десятичное число: ');
  ReadLn(decimalNumber);
  Write('Введите основание системы счисления (от 3 до 9): ');
  ReadLn(base);

  // Проверяем правильность основания системы
  if (base < 3) or (base > 9) then
  begin
    WriteLn('Основание должно быть от 3 до 9');
    Exit;
  end;

  // Инициализируем результат и делимое (quotient) с исходным числом
  result := '';
  quotient := decimalNumber;

  // Пока делимое больше нуля, выполняем перевод в новую систему
  while quotient > 0 do
  begin
    remainder := quotient mod base;
    quotient := quotient div base;

    // Преобразуем остаток в символ и добавляем его в начало результата
    result := Chr(remainder + Ord('0')) + result;
  end;

  // Выводим результат
  WriteLn('Переведённое число: ', result);
end.

Программа предлагает пользователю ввести десятичное число и основание системы счисления (от 3 до 9). Затем она переводит число в выбранную систему и выводит результат.