PASCAL. Assignment on strings. Write a program that converts an integer N (1 ≤ |N| < 10^9) from a number system with

Конечно! Вот программный код на языке Pascal, который решает данную задачу:

pascal

program NumberConversion;

uses sysutils;



function ConvertBase(inputNumber: string; inputBase, outputBase: Integer): string;

var

  i, decimalNumber, remainder: Integer;

  outputNumber: string;

const

  digits: string = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";

begin

  // Переводим исходное число в десятичную систему счисления

  decimalNumber := 0;

  for i := 1 to Length(inputNumber) do

  begin

    decimalNumber := decimalNumber * inputBase;

    decimalNumber := decimalNumber + Pos(inputNumber[i], digits) - 1;

  end;



  // Переводим десятичное число в целевую систему счисления

  outputNumber := "";

  repeat

    remainder := decimalNumber mod outputBase;

    outputNumber := digits[remainder + 1] + outputNumber;

    decimalNumber := decimalNumber div outputBase;

  until decimalNumber = 0;



  Result := outputNumber;

end;



var

  inputNumber: string;

  inputBase, outputBase: Integer;

begin

  // Ввод исходных данных

  Write("Введите число в системе счисления с основанием K: ");

  ReadLn(inputNumber);

  Write("Введите основание K и M через пробел: ");

  ReadLn(inputBase, outputBase);



  // Выполнение преобразования и вывод результата

  WriteLn("Число ", inputNumber, " в системе счисления с основанием M: ", ConvertBase(inputNumber, inputBase, outputBase));

end.

Рассмотрим программу более подробно. В начале программы мы импортируем модуль sysutils, который помогает нам использовать полезные функции для работы со строками. Затем у нас есть функция `ConvertBase`, которая выполняет преобразование чисел из одной системы счисления в другую.

Функция `ConvertBase` принимает три параметра: `inputNumber` (исходное число в строковом формате), `inputBase` (исходное основание системы счисления) и `outputBase` (целевое основание системы счисления).

Сначала мы переводим исходное число в десятичную систему, используя формулу полиномиального разложения. Затем мы переводим полученное десятичное число в целевую систему счисления, путем последовательного выделения остатков и добавления соответствующих цифр в результат.

Основная часть программы сначала запрашивает у пользователя исходные данные: число `inputNumber` в системе счисления с основанием `inputBase`, а затем основание целевой системы счисления `outputBase`.

После ввода данных происходит вызов функции `ConvertBase` с указанными параметрами и выводится результат преобразования.

Надеюсь, этот код поможет вам решить задачу на перевод чисел из одной системы счисления в другую на языке Pascal. Если у вас возникнут вопросы, пожалуйста, не стесняйтесь задавать!