VPF::[Pascal] Использование функции сдвига

jack2008

Дата 19.1.2009, 02:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.1.2009

Репутация: нет
Всего: нет

Нужен алгоритм перевода числа из десятичной системы в двоичную с помощью функции сдвига

Newo

Дата 19.1.2009, 03:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 24.12.2008

Репутация: нет
Всего: нет

В массиве S будет результат, но в обратном порядке.

Код


next:=0;
while n<>0 do
  begin
    inc (next);
    if n mod 2 = 1 then
      s[next]:= 1
    else
      s[next]:= 0;

    n:= n shr 1;
  end;

n shr 1 - абсолютно одно и то же что и n div 2

jack2008

Дата 19.1.2009, 23:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.1.2009

Репутация: нет
Всего: нет

Я тут тоже не сидел сложа руки - вот что получилось:

Код


program Tentwozs;
uses Crt;
var a,i:integer;
s:string[8];
begin
writeln('Ввести десятичное число');
readln(a);
s:='';
if (a and 1)=1 then s:='1'+s
               else s:='0'+s;
for i:=1 to 7 do
begin
a:=a shr 1;
if (a and 1)=1 then s:='1'+s
               else s:='0'+s;
end;
writeln('Двоичное представление числа',s);
repeat until KeyPressed;
end.

Пока не пойму, что устроит препода

Newo

Дата 19.1.2009, 23:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 24.12.2008

Репутация: нет
Всего: нет

Цитата(jack2008 @ 19.1.2009, 23:07)

Я тут тоже не сидел сложа руки - вот что получилось:

Код


program Tentwozs;
uses Crt;
var a,i:integer;
s:string[8];
begin
writeln('Ввести десятичное число');
readln(a);
s:='';
if (a and 1)=1 then s:='1'+s
               else s:='0'+s;
for i:=1 to 7 do
begin
a:=a shr 1;
if (a and 1)=1 then s:='1'+s
               else s:='0'+s;
end;
writeln('Двоичное представление числа',s);
repeat until KeyPressed;
end.

Пока не пойму, что устроит препода

Твое решение, думаю, лучше для препода, т.к. там еще побитовое AND используется)))

volvo877

Дата 22.1.2009, 00:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

jack2008, а чего ты ограничил свою программу только байтами? И зачем тебе дублировать код (if/then/else)? Вот так не пробовал:

Код

program Tentwozs;
uses Crt;
var
   a: integer;
   s: string;
begin
  writeln('Ввести десятичное число');
  readln(a);
  s:='';
  repeat
    if (a and 1)=1 then s:='1'+s else s:='0'+s;
    a:=a shr 1;
  until a = 0;
  writeln('Двоичное представление числа: ',s);
  repeat until KeyPressed;
end.

orthrus

Дата 22.1.2009, 12:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 400
Регистрация: 30.10.2007
Где: г. Усть-Илимск(Ир кутская обл.)

Репутация: нет
Всего: 16

вот при помощи левого сдвига, следовательно и вывод с лева на право так как глаза привыкли видеть

Код


VAR
        i,j: word;
BEGIN
        WriteLn('введите число');
        j := SizeOf(i) * 8;
        ReadLn(i);
        while (j > 0) do
        begin
                if ((i AND 32768) XOR 32768) = 0
                        then Write(1)
                        else Write(0);
                i := i shl 1;
                Dec(j);
        end;
        WriteLn;
        ReadLn;
END.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »