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

@_CyberHedgehog_ · Регистрация: 26.06.2010

Нужно написать программу переводящую числа из двоичной в десятеричную и шестнадцатеричную системы счисления и наоборот. На форме расположены 3 edit и при вводе в один из них числа и нажатии на кнопку "вычислить" в других двух edit появлялось то же число только в других системах счисления. И ещё нужно при нажатии на кнопку "сменить знак" менять знак числа во всех edit на минус. Вот всё что я пока что сделал.

@Lonely_Romantic · 24.07.2010, 14:03

Эх, мне делать нечего, посочиняю немного))

В делфях есть функция StrToInt(const S: string): Integer, но она принимает на входе строку с десятичным числом, или с шестнадцатеричным, если после знака и перед числом поставить знак $ (Например: $FF, -$FF ...). Значит использовать следующий код не правильно:

Delphi

if labelededit1.Text<>'' then a:=strtoint(labelededit1.Text) else
if labelededit2.Text<>'' then a:=strtoint(labelededit2.Text) else
if labelededit3.Text<>'' then a:=strtoint(labelededit3.Text) else
label1.Caption:='Введите значение';

В каждом случае нужно вводить данные своего типа. Для ввода недесятичных чисел можно создать свои функции.

С выводом такая же проблема. Я тоже использовал функции.

1. Конвертация: все числа в памяти хранятся в двоичной системе. Остается записать их в нужной системе счисления.
2. Сменить знак: то же что и в первом случае, только перед выводом число домножить на -1.

Я не уверен, что мое решение самое рациональное, но главное: оно работает. Можно улучшать, но это уже другая история... Готовая программа во вложении.

@_CyberHedgehog_ · 24.07.2010, 17:09 **[ТС]**

Спасибо, конечно это решение действительно не самое рациональное но дальше я уже сам доделаю. Только смена знака не такая как мне нужна была. Со знаком- я и сам мог бы сделать. Мне нужно сделать при помощи инверсии. Например: 1 в двоичной системе счисления=0001, а -1=1111(если я не ошибаюсь). Если у вас есть варианты решения подскажите пожалуйста.

Mawrat: -1=1111 - это представление называется "дополнительным кодом". Т. е. надо было писать, что требуется представить отрицательные числа в дополнительном коде.

@Mawrat · 24.07.2010, 19:02

Для представления отрицательно двоичного числа в дополнительном коде надо разряды модуля числа проинверитировать и прибавить к числу единицу.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  a, a1 : Longword;
  PA, PA1 : ^Integer;
begin
  //a  = 00000000 00000000 00000000 00001010
  a := 10;
  //a1 = 11111111 11111111 11111111 11110110
  a1 := ( not a ) + 1;
  
  PA := @a;
  PA1 := @a1;
  
  //Получим ответ: a = 10, a1 = -10.
  ShowMessage(
    'a как тип Integer равен: ' + IntToStr(PA^) + #10
    + 'a1 как тип Integer равен: ' + IntToStr(PA1^)
  );
end;

@_CyberHedgehog_ · 25.07.2010, 15:54 **[ТС]**

Ладно я обойдусь и с переводом. Сменить знак в принципе можно всегда и обычным способом. Спасибо за помощь. Вот готовая программа, может кому-нибудь ещё понадобится.

@_CyberHedgehog_ 64 / 64 / 10 Регистрация: 26.06.2010 Сообщений: 332
	24.07.2010, 17:09 [ТС]	3
	Спасибо, конечно это решение действительно не самое рациональное но дальше я уже сам доделаю. Только смена знака не такая как мне нужна была. Со знаком- я и сам мог бы сделать. Мне нужно сделать при помощи инверсии. Например: 1 в двоичной системе счисления=0001, а -1=1111(если я не ошибаюсь). Если у вас есть варианты решения подскажите пожалуйста. Mawrat: -1=1111 - это представление называется "дополнительным кодом". Т. е. надо было писать, что требуется представить отрицательные числа в дополнительном коде. 0

Опции темы