IP калькулятор

[лёхус]

Программисты....гуру....харе бухать помогите студенту!!!

[Alex11223]

Выкладывание куска кода, с которым проблемы, вместо архива с проектом обычно повышает вероятность получить помощь.

[лёхус]

Вот эта функция переводит из 10й в 2ю СС, нашел её на Вашем форуме.
В неё передается 10е число которое должно переводится в 2е. На выходе мне необходимо 8ми битовое число, а вот функция выдает в меньше. Что тут исправить?

function 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;

[Пепел Феникса]

function IntToBinByte(Value: Byte): string;
var
  i: Integer;
begin
  SetLength(Result, 8);
  for i := 1 to 8 do begin
    if (Value shr (8-i)) and 1 = 0 then begin
      Result[i] := '0'
    end else begin
      Result[i] := '1';
    end;
  end;
end;

попробуйте ее.

[лёхус]

Спасибо, сам осилил прочитав процедуру. Поменял цикл.

[лёхус]

Добрый день гуру!
Вопрос такой, есть число в двоичном коде, допустим x1 = 10101000010110.
Необходимо запустить цикл от i:=0 до length x1, в цикле читать x1 справа налево и если встречается единица (1) то возводить двойку (2) в степень текущего i . После окончания цикла все двойки (2) возведенные в соответствующие степени сложить.
Вот, вроде как-то сформулировал. Для примера из x1 = 10101000010110 должно получится следующее, результат = 2^1+2^2+2^4+2^9+2^11+2^13

Очень сильно надо. С циклами у меня вообще большие проблемы!

[лёхус]

И ещё один вопрос. как первое число разделить на ве части в соответствии со значением 2го числа.
10101010.01110001. 10100111 .10000001 - вот это число разделить на 2 части
11111111 .11111111 .11000000.00000000 - где единицы в одну переменную, где ноли в другую.

Вот как-то так. x = 10101010.01110001.10 и y= 100111 .10000001

[zvygin1964]

Новый вопрос - новая тема.