Написать программу,которая преобразует положительное число в двоичной системе счисления

@Iggiry · Регистрация: 17.02.2014

Студворк — интернет-сервис помощи студентам

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

KOPOJI · 06.03.2014, 20:40

Комментарий модератора

Сообщение от Iggiry

Паскаль.

Так и создавайте темы в разделе "Паскаль", а не где попало.

@volvo · 06.03.2014, 22:44

Pascal

uses
  strutils;
var
  i : integer;
begin
  readln(i);
  if i > 0 then
    writeln(Dec2Numb(i, 1, 2))
  else
    writeln('По заданию надо было преобразовать положительное число !!!');
end.

Kodzaev · 06.03.2014, 23:48

Pascal

type
  usertype = integer;
 
var
  n: usertype;
  i: integer;
 
begin
  ReadLn(n);
  for i := sizeof(usertype) * 8 - 1 downto 0 do
    Write(byte(n and (1 shl i) = 1 shl i));
  ReadLn
end.

@Iggiry · 10.03.2014, 19:56 **[ТС]**

Спасибо

@bormant · 10.03.2014, 20:14

Достаточно сравнения на "<>0":

Pascal

type
  usertype = integer;
var
  n: usertype;
  i: integer;
begin
  ReadLn(n);
  for i := sizeof(usertype) * 8 - 1 downto 0 do
    Write(byte(n and (1 shl i) <> 0));
  ReadLn
end.

@Iggiry · 05.04.2014, 20:49 **[ТС]**

А как избавиться от ведущих нулей?

@bormant · 05.04.2014, 22:55

Pascal

type
  usertype = integer;
var
  n: usertype;
  i: integer;
begin
  ReadLn(n);
  i := sizeof(usertype) * 8 - 1;
  while (i>0) and (byte(n and (1 shl i) = 0) do dec(i);
  repeat
    Write(byte(n and (1 shl i) <> 0)); dec(i);
  until i<0;
  ReadLn
end.

@Iggiry 0 / 0 / 0 Регистрация: 17.02.2014 Сообщений: 7
		1
	Написать программу,которая преобразует положительное число в двоичной системе счисления 06.03.2014, 20:30. Показов 2699. Ответов 7 Метки нет (Все метки) Написать программу,которая преобразует положительное число в двоичной системе счисления и печатает этот двоичный эквивалент.Паскаль. 0

@Iggiry 0 / 0 / 0 Регистрация: 17.02.2014 Сообщений: 7
	10.03.2014, 19:56 [ТС]	5
	Спасибо 0

@Iggiry 0 / 0 / 0 Регистрация: 17.02.2014 Сообщений: 7
	05.04.2014, 20:49 [ТС]	7
	А как избавиться от ведущих нулей? 0

Опции темы

Написать программу,которая преобразует положительное число в двоичной системе счисления

Решение