Побитовые операции

@anna12rus · Регистрация: 30.09.2010

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

Вывести на экран все числа, в двоичном представлении которых от р1 до р2 разрядов . Числа р1 и р2 вводятся с клавиатуры .

@кот Бегемот · 01.10.2010, 10:58

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

Вывести на экран все числа, в двоичном представлении которых от р1 до р2 разрядов . Числа р1 и р2 вводятся с клавиатуры .

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
p1,p2,i,n,m:integer;
begin
writeln('vvedite menshiy razryad');
readln(p1);
writeln('vvedite bolshiy razryad');
readln(p2);
n:=1;
m:=1;
for i:=1 to p1-1 do
n:=n*2;
for i:=1 to p2 do
m:=m*2;
for i:=n to m-1 do
write(i,' ');
readln;
end.

@Mad_Dog · 01.10.2010, 11:09

Умножение числа на 2 равносильно сдвигу числа влево на 1 разряд... Вот это и будет "побитовые операции"...

@кот Бегемот · 01.10.2010, 11:11

Mad_Dog, и чо?

@Mad_Dog · 01.10.2010, 11:14

Ни чо... Задание+заголовок темы=реализация...

@кот Бегемот · 01.10.2010, 11:19

Ну, и реализовал бы. А что толку определения писать, у ТС это определение тоже в лекции записано.

@Напильнег · 01.10.2010, 11:34

кот Бегемот, а что будет, если введут p2=31 (это коорректное условие для integer)? Не, если контроль границ и переполнений отключен, то нормальмально все будет, но мы же люди грамотные типа...

@Mad_Dog · 01.10.2010, 11:59

Сообщение от кот Бегемот

Ну, и реализовал бы. А что толку определения писать, у ТС это определение тоже в лекции записано.

Да просто вот этот цикл:

Pascal
1
2
for i:=1 to p1-1 do
  n:=n*2;

можно заменить вот на это

Pascal
1
n:=n shl (p1-1)

и будет, вроде бы, как по теме...
И второй подобный по аналогии...

@Напильнег · 01.10.2010, 16:48

Сообщение от Напильнег

кот Бегемот, а что будет, если введут p2=31 (это коорректное условие для integer)?

Блин, естественно, имелось в виду p2=15, з Дельфями попутал, sorry.

Добавлено через 1 час 17 минут

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

И второй подобный по аналогии...

Второй подобный по аналогии не решит проблему для p2=15.

Добавлено через 2 часа 7 минут
Ну, собствено, вот кузявое решение:

Pascal
1
2
3
4
5
6
7
8
  
  writeln('divites');
  n:=1 shl (p1-1);
  m:=not(-1 shl p2);
  for i:=n to m do
    write(' ', i:6, ' ');
  if ((m-n+1) mod 10) <> 0 then
    writeln;

И заметьте - не привязанное к размеру integer (за исключением используемого формата вывода).

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@anna12rus 0 / 0 / 0 Регистрация: 30.09.2010 Сообщений: 15

	Побитовые операции 01.10.2010, 08:29. Показов 1311. Ответов 8 Метки нет (Все метки) Вывести на экран все числа, в двоичном представлении которых от р1 до р2 разрядов . Числа р1 и р2 вводятся с клавиатуры . 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	01.10.2010, 11:09
	Умножение числа на 2 равносильно сдвигу числа влево на 1 разряд... Вот это и будет "побитовые операции"... 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	01.10.2010, 11:11
	Mad_Dog, и чо? 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	01.10.2010, 11:14
	Ни чо... Задание+заголовок темы=реализация... 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	01.10.2010, 11:19
	Ну, и реализовал бы. А что толку определения писать, у ТС это определение тоже в лекции записано. 0

@Напильнег 481 / 119 / 17 Регистрация: 30.09.2010 Сообщений: 473
	01.10.2010, 11:34
	кот Бегемот, а что будет, если введут p2=31 (это коорректное условие для integer)? Не, если контроль границ и переполнений отключен, то нормальмально все будет, но мы же люди грамотные типа... 0