найдите десятичные эквиваленты чисел

@Вла Влад · Регистрация: 27.11.2013

найдите десятичные эквиваленты чисел, записанных в обратном коде (старший разряд знаковый)
1)01001100 2)01001011 3)11001010 4)10101111

@erl27 · 28.11.2013, 15:08

С использованием строк:

Pascal

var
  N: string;
  S: integer;
  i, k: byte;
  
 
begin
  write(' N = ');
  readln(N); //вводим двоичное число
  S := 0;
  k := Length(N);
  for i := k downto 1 do
  begin
    if N[i] = '1' then S := S + 1 shl (k - i)
  end;
  write(' ', S) //выводим десятичное число
end.

@Вла Влад · 28.11.2013, 15:56 **[ТС]**

Спасибо большое, можете написать еще в прямом коде?

@erl27 · 28.11.2013, 16:54

Попробуйте так:

Pascal

var
  N: string;
  S, d: integer;
  i, j, k: byte;
  
begin
  write('N = ');
  readln(N); //вводим двоичное число
  S := 0;
  k := Length(N);
  for i := k downto 1 do
  begin
    d := 1; //нулевой степень двойки
    if N[i] = '1' then begin //если 1
      for j := 1 to k - i do d := 2 * d; //то вычисляем 2 в степени j
      S := S + d //сумму увеличиваем на 2 в степени i
    end
  end;
  write(' ', S) //выводим десятичное число
end.

@Вла Влад · 28.11.2013, 18:06 **[ТС]**

может знаете как это решить? можно не в паскале, так.

Перевести в прямой код числа, записанные в дополнительном коде, и найти их десятичные эквиваленты (старший разряд знаковый)
1) 011011001 2) 101010110

@Вла Влад 0 / 0 / 0 Регистрация: 27.11.2013 Сообщений: 11
		1
	найдите десятичные эквиваленты чисел 28.11.2013, 13:10. Показов 6472. Ответов 4 Метки нет (Все метки) найдите десятичные эквиваленты чисел, записанных в обратном коде (старший разряд знаковый) 1)01001100 2)01001011 3)11001010 4)10101111 0

@Вла Влад 0 / 0 / 0 Регистрация: 27.11.2013 Сообщений: 11
	28.11.2013, 15:56 [ТС]	3
	Спасибо большое, можете написать еще в прямом коде? 0

@Вла Влад 0 / 0 / 0 Регистрация: 27.11.2013 Сообщений: 11
	28.11.2013, 18:06 [ТС]	5
	может знаете как это решить? можно не в паскале, так. Перевести в прямой код числа, записанные в дополнительном коде, и найти их десятичные эквиваленты (старший разряд знаковый) 1) 011011001 2) 101010110 0

Опции темы