Перевести число из десятичной системы в прямой, обратный и дополнительный код Delphi или C++

[carrie bradshaw]

добрый вечер, всем тем, кто посещает этот форум! помогите, пожалуйста, написать программу на языке Delphi 7 или C++ (в консольном или визуальном режиме).

задание:
Перевести число из десятичной системы счисления в прямой, обратный и дополнительный код.

прямой, обратный и дополнительный код тут - http://www.maksakov-sa.ru/EGEEInform...tch/index.html

спасибо всем за внимание и, надеюсь, за помощь!

[Streletz]

Что такое прямой, обратный и дополнительной коды большинство здесь и так знает. Но, в любом случае, за ссылку спасибо. Думаю, она может пригодиться другим новичкам.
Что касается помощи, то, увы, пока помогать не чему. Где Ваши наработки?

[carrie bradshaw]

я так понимаю, что нужно сначала перевести число (которое вводит пользователь в десятичной системе) в двоичную систему.

есть код перевода десятичного числа в двоичное на Pascal:

function IntToBinary(x: integer): string;
var
str: string;
begin
str:='';
while x>1 do
begin
 if x mod 2=0 then str:='0'+str else str:='1'+str;
 x:=x div 2;
end;
if x=0 then str:='0'+str else str:='1'+str;
Result:=str;
end;

но мне нужно на Delphi 7 или C++

надеюсь, что добрые форумчане откликнутся

[Streletz]

но мне нужно на Delphi 7

Delphi - прямой поток Pascal. Этот код, по идее, должен прекрасно работать и в Delphi 7. А, что касается преобразования кодов, то это можно легко сделать на основе материалов из статьи по Вашей ссылке и элементарных приёмов работы со строками.
В статье дано полное описание алгоритма.

[carrie bradshaw]

ещё я начинаю делать перевод числа из десятичной системы в двоичную на Delphi 7, но немного не получается:
вот код:

type
  TForm107 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form107: TForm107;
  x,a:integer;
implementation

{$R *.dfm}
 function TForm107.Perevod(x: Integer): string;
const t:array[0..1] of char = ('0','1');
var res:string;
d:0..1;
begin
res:='';
while (x<>0) do
begin
d:=x mod 2 ;
res:=t[d]+res;
x:=x div 2 ;
end;
Perevod:=res;
end;
procedure TForm107.Button1Click(Sender: TObject);
begin
a:=StrToInt(Edit1.Text);
 Label1.Caption:=(Perevod(a));
end;
end.

как сделать так, чтобы функция заработала?

[Streletz]

Здесь есть 2 варианта.
1й вариант: за декларировать её в классе формы. Например, так:

type
  TForm107 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private   
  function Perevod(x: Integer): string; 

  public
    
  end;

2й вариант: убрать название формы из названия функции. Вместо этого

function TForm107.Perevod(x: Integer): string;

написать просто

function Perevod(x: Integer): string;

[carrie bradshaw]

Streletz, спаасибо!

[carrie bradshaw]

как можно доделать код этой программы так, чтобы двоичное число переводилось в прямой, обратный и дополнительный код?

[Streletz]

как можно доделать код этой программы так, чтобы двоичное число переводилось в прямой, обратный и дополнительный код?

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