Всех приветствую! Если Вам не сложно, то хотел бы попросить помочь. Задачу необходимо решить на ЯП Pascal с использованием подпрограмм, если можно, то с комментариями переменных и некоторых функций. Системы счисления: 2, 8, 10 и 16. Типа real чтобы число можно было записать с десятичной дробью пример:(2.25) . Заранее спасибо.

Предыдущий
вопрос Следующий
вопрос

Конечно, я могу помочь вам с этой задачей. Ниже приведен пример кода на ЯП Pascal, который позволяет конвертировать число из одной системы счисления в другую (из 2, 8, 10, 16 в любую другую).

program ConvertNumbers;
var
number: real;
fromBase, toBase: Integer;
function ConvertToDecimal(number: real; fromBase: Integer): real;
var
digits: string;
i, len: Integer;
begin
digits := FloatToStr(number);
len := Length(digits);
for i := 1 to len do
begin
result := result + StrToInt(digits[i]) * Power(fromBase, len - i);
end;
end;
function ConvertFromDecimal(number: real; toBase: Integer): string;
var
resultStr: string;
begin
resultStr := '';
repeat
resultStr := IntToStr(Trunc(number mod toBase)) + resultStr;
number := number / toBase;
until number < 1;
ConvertFromDecimal := resultStr;
end;
begin
writeln('Введите число:');
readln(number);
writeln('Введите систему счисления исходного числа (2, 8, 10 или 16):');
readln(fromBase);
writeln('Введите систему счисления, в которую нужно конвертировать (2, 8, 10 или 16):');
readln(toBase);
number := ConvertToDecimal(number, fromBase);
number := StrToFloat(ConvertFromDecimal(number, toBase));
writeln('Результат конвертации:', number);
end.

Этот код сначала конвертирует исходное число в десятичную систему счисления, а затем конвертирует его в нужную систему счисления. Введите исходное число, систему счисления и целевую систему счисления, и программа выведет результат. Надеюсь, этот код поможет вам решить вашу задачу. Если у вас возникнут какие-либо вопросы, не стесняйтесь спрашивать.