Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 26.09.2017
Сообщений: 9
1

Определить максимальное количество подряд идущих единиц в двоичном числе

26.09.2017, 16:03. Показов 799. Ответов 7

Разработать алгоритм, определяющий максимальное количество подряд
идущих единиц в двоичном числе.
прошу помощи
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.09.2017, 16:03
Ответы с готовыми решениями:

Определить в двоичном представлении числа максимальное количество расположенных рядом единиц
Дано короткое целое неотрицательное число. Определить в его двоичном представлении максимальное...

Определить наибольшее количество идущих подряд единиц в двоичной записи
Привет, Есть задача Дано натуральное число, например 439. Определить наибольшее количество...

Определить наибольшее количество идущих подряд единиц в двоичной записи
Привет, у меня есть задача, я написал код, но чуть-чуть не так Условия следующие: Дано...

Определить максимальное количество идущих подряд атомов
пытаюсь написать программу, которая для списка определяет максимальное количество идущих подряд...

7
Модератор
6960 / 4509 / 1918
Регистрация: 21.01.2014
Сообщений: 19,121
Записей в блоге: 3
26.09.2017, 16:17 2
Цитата Сообщение от horoshichelovek Посмотреть сообщение
прошу помощи
В чем?
1
314 / 267 / 87
Регистрация: 27.05.2017
Сообщений: 1,350
26.09.2017, 16:20 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm17.Button1Click(Sender: TObject);
var i,n,k,km:Cardinal;
begin
try n:=StrToInt(Edit1.Text); except n:=0;end;
k:=0;km:=0;
for i:=0 to 31 do
   begin
   if (n and 1)=1 then begin inc(k);if k>km then km:=k;end
   else k:=0;
   n:=n shr 1;
   end;
Button1.Caption:=IntToStr(km);
end;
1
Модератор
6960 / 4509 / 1918
Регистрация: 21.01.2014
Сообщений: 19,121
Записей в блоге: 3
26.09.2017, 16:36 4
Цитата Сообщение от Massaraksh7 Посмотреть сообщение
for i:=0 to 31 do
Massaraksh7, а что это за магически константы?
1
Модератор
1318 / 912 / 211
Регистрация: 31.05.2013
Сообщений: 6,123
Записей в блоге: 6
26.09.2017, 16:40 5
Цитата Сообщение от D1973 Посмотреть сообщение
Massaraksh7, а что это за магически константы?
32 разряд, возможно...
1
314 / 267 / 87
Регистрация: 27.05.2017
Сообщений: 1,350
26.09.2017, 16:43 6
Cardinal, 32 бита.
1
1136 / 391 / 93
Регистрация: 31.03.2012
Сообщений: 1,045
28.09.2017, 21:49 7
Delphi
1
2
3
4
5
6
7
8
9
10
11
function CountBit(a :Cardinal): SmallInt;
var
  i :SmallInt;
begin
  i := 0;
  while a <> 0 do begin
    a := a and (2 * a);
    Inc(i);
  end; { end while }
  Result := i;
end;
1
0 / 0 / 0
Регистрация: 26.09.2017
Сообщений: 9
27.10.2017, 09:25  [ТС] 8
spasibo vsem za pomosh i sotrudnichestvo
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.10.2017, 09:25

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Определить максимальное количество идущих подряд нулей
Для заданного списка определить максимальное количество идущих подряд нулей. Спасибо.

Определить максимальное количество идущих подряд списков
Для заданного списка определить максимальное количество идущих подряд списков. Добавлено через...

Определить максимальное количество идущих подряд чётных чисел
Как определить максимальное количество идущих подряд чётных чисел для такого, к примеру, ряда...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.