Question

Всем привет, помогите написать программу в паскале, смысл прост. Программа должна переводить число из шестнадцатиричной системы счисления в дестяричную и наоборот, тоесть после вводе числа- FFF программа должна вывести число 4095 и ниже снова FFF, программа должна быть простая и не слишком умная. Заранее спасибо

Answer 1

Вот, много кода, но работает

Answer 2

Привет! Конечно, я могу помочь тебе написать программу на Паскале для перевода чисел из шестнадцатеричной системы счисления в десятичную и наоборот. Вот простая реализация программы:

program HexToDecConverter;
var
  hexNumber: string;
  decNumber: LongInt;
begin
  Write('Введите число в шестнадцатеричной системе счисления: ');
  Readln(hexNumber);
  
  { Переводим число из шестнадцатеричной в десятичную }
  val('$' + hexNumber, decNumber);
  Writeln('Число в десятичной системе счисления: ', decNumber);
  
  { Переводим число из десятичной в шестнадцатеричную }
  hexNumber := IntToHex(decNumber, Length(hexNumber));
  Writeln('Число в шестнадцатеричной системе счисления: ', hexNumber);
end.

Эта программа запрашивает у пользователя ввод числа в шестнадцатеричной системе счисления, а затем переводит его в десятичную систему счисления и выводит результат. Затем программа переводит число обратно в шестнадцатеричную систему счисления и снова выводит результат.

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