Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 02.07.2009, 00:26   #1
-=L.Morgan=-
Пользователь
 
Регистрация: 23.04.2009
Сообщений: 30
Радость Двоичная Система

Кто может помоч з кодом программы (Delphi) преобразование:
Двоичных чисел В десятичные
Десятичных чисел В двоичные
ICQ: 110111110-1010000101-1110001001

Последний раз редактировалось -=L.Morgan=-; 02.07.2009 в 00:36.
-=L.Morgan=- вне форума
Старый 02.07.2009, 02:33   #2
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

Код:
function Int_2_Bin(n: integer): string;
var
  s: string;
begin
  s := '';
  while n > 0 do
  begin
    s := IntToStr(n mod 2) + s;
    n := n div 2;
  end;
  Int_2_Bin := s
end;

function Bin_2_Int(s: string): integer;
var
  i, n: integer;
begin
  n := 0;
  for i:=1 to Length(s) do
    n := n*2 + StrToIntDef(Copy(s,i,1), 0);
  Bin_2_Int := n
end;
Black Fregat вне форума
Старый 02.07.2009, 08:01   #3
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Код:
function IntToBin(n:Integer):String;
 begin
  Result:='';
  while n<>0 do
  begin
   if n and 1=0 then Result:='0'+Result else Result:='1'+Result;
   n:=n shr 1;
  end;
 end;
Код:
function BinToInt(BinStr:string):Integer;
 var i:integer;
 begin
  Result:=0;
  for i := 1 to Length(BinStr) do
  begin
   if not (BinStr[i]in['0','1']) then//проверка на правильность ввода
   begin
    Result:=0;
    exit;
   end;
   Result:=(Result shl 1)+(byte(BinStr[i])and 1);
  end;
 end;
SERG1980 вне форума
Старый 02.07.2009, 08:35   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Обсуждалось уже. Внизу страницы похожие темы и поиском тоже рулить нужно.
Закрываю.
I'm learning to live...
Stilet вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Двоичная система исчисления: как Urukhay4 Общие вопросы C/C++ 4 01.06.2009 16:43
двоичная система счисления galaid Паскаль, Turbo Pascal, PascalABC.NET 3 17.05.2009 15:42
Двоичная система в АСМ.. smileman Помощь студентам 3 05.11.2008 13:40
двоичная система terminadoor Помощь студентам 1 21.09.2008 23:00
Система координат SunKnight Общие вопросы Delphi 2 05.02.2008 19:42