Целые числа

@Роза · Регистрация: 25.05.2010

Author24 — интернет-сервис помощи студентам

Дано натуральное число N (33<N<999), записанное в десятичной системе счисления. Написать это число в двоичной системе счисления.

@igoriy · 23.10.2010, 16:25

Delphi

Function DecToBin (num: word): String;
var
 rh: word;
 c: Char;
begin
result := '';
while num <> 0 do
begin
rh := num mod 2;
num := num div 2; { или num := num shr 1 }
c := chr (rh + ord ('0'));
result := c + result;
end;
DecToBin := result;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a: integer;
begin
 a:= StrToInt(Edit1.Text);
 Edit1.Text:= DecToBin (a);
end;

@Роза 32 / 32 / 1 Регистрация: 25.05.2010 Сообщений: 80
		1
	Целые числа 23.10.2010, 14:43. Показов 491. Ответов 1 Метки нет (Все метки) Дано натуральное число N (33<N<999), записанное в десятичной системе счисления. Написать это число в двоичной системе счисления. 1

	23.10.2010, 16:25