перевод чисел

[Настя Шелестова]

помогите пожалуйста ...мне нужно реализовать перевод чисел из десятичной системы в двоичную и наоборот с помощью radiogroup на языке паскаль а я без понятия как правильно это сделать

[JUDAS]

radiogroup и Паскаль ? Уточните какой именно Паскаль ? может Делфи?

[Настя Шелестова]

да в среде делфи

[JUDAS]

в каком пределе числа?
Например для 0.255 (код во вложении)

[Ромиk]

вот для паскаля( если надо)))

program proba;

var
         n : LongInt;
         s : string;
begin
          ReadLn (n);
          s := '';
          repeat
                        s := chr (n mod 2 + 48) + s;
                        n := n div 2;
                        until n = 0
          WriteLn (s)
end.

НО ЭТО ТОЛЬКО В ОДНУ СТОРОНУ!!!!!!!!!

[Настя Шелестова]

извините но это чучуть не то что мне надо мне нужно написать программу где число 23 допустим будет в виде 110001 (этот перевод от фонарика написала)

[JUDAS]

Настя, так вам же нужен radiogroup. В таком случае у меня встречный вопрос к местным гуру, можно ли подсветить одновременно в radiogroup несколько Item используя синтаксис школьного курса Делфи?
Мне не приходилось ещё так изварщатся )))

[Ромиk]

Сообщение от Настя Шелестова

извините но это чучуть не то что мне надо мне нужно написать программу где число 23 допустим будет в виде 110001 (этот перевод от фонарика написала)

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

[JUDAS]

function inttobin(value:cardinal):string;
var i : integer;
begin
  result:='';
  for i:=31 downto 0 do
  result:=result + chr(ord('0')+
   ((value shr i) and $1));
end;


function bintoint(const value : string):cardinal;
var i, j: integer;
begin
  result:=0;  j:=0;
  for i:=length(value) downto 1 do
  begin
   if value[i]='1' then
   result := result or ($1 shl j);
   inc(j);
  end;
end;

только я не понимаю каким боком тут radiogroup ?

[Serge_Bliznykov]

только я не понимаю каким боком тут radiogroup ?

боюсь попасть пальцев в небо, но, похоже, что через радиогруппы (каждое состоит из двух значений 0 и 1) задаётся двоичное число (ну или наоборот, выводится двоичное число).
количество radiogroup равно числу двоичных разрядов в числе.

p.s. если я прав, то это самое странное представление двоичного числа, которое я когда либо встречал!