Подсчитать количество единиц в строке

@Sumy · Регистрация: 01.03.2013

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

Задание:В строке, состоящей из групп нулей и единиц, подсчитать количество единиц в группах с нечетным количеством символов.

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
int i,n,nst,l;
n=0;
nst = ComboBox1->ItemIndex;
String st = ComboBox1->Items->Strings[nst];
l=ComboBox1->GetTextLen();
for (int i=1; i <= l; i++) {
if (ComboBox1->Text[i]=='1' ) n++;
}
 Edit1->Text = IntToStr(n);
 }

Написал программу но она считает все единицы, как найти нечетные группы?

@Graf_N · 12.03.2013, 22:24

Sumy, дык а условие на четность группы? Если я правильно помню, то четность проверяется %2

@Sumy · 12.03.2013, 22:28 **[ТС]**

Да %2

@Graf_N · 12.03.2013, 22:32

Sumy, ну так в чем проблема?) Что у тебя есть группы?

@Sumy · 12.03.2013, 22:48 **[ТС]**

Graf_N, Вот на пример я ввожу:1010 011 010 1100
Результат выходит 3, так как только вторая и третья группа нечетная.
Вот как мне найти эти группы?

@Graf_N · 12.03.2013, 22:50

Sumy, а куда ты вводишь эти группы?) У тебя же они должны быть как то отделены или только пробелом? Если пробелом, то и считай кол-во пробелов, а по ним и четность групп задавай.

@Sumy · 12.03.2013, 23:43 **[ТС]**

Graf_N,

C++
1
2
3
4
5
6
7
8
9
10
11
12
{
int i,k,n,nst,l;
n=0;
nst = ComboBox1->ItemIndex;
String st = ComboBox1->Items->Strings[nst];
l=ComboBox1->GetTextLen();
for (int i=1; i <= l; i++) {
if(st[i] == ' ' && st[i+1] != ' ') {
if (ComboBox1->Text[i]=='1' && st[i]%2!=0 ) n++;
}    }
 Edit1->Text = IntToStr(n);
 }

Теперь все время ноль выводит.

@Graf_N · 13.03.2013, 00:42

Sumy, ну смотри если я все правильно понял, то у тебя просто первое условие не проходится) В коем у тебя спрашивается, если st[i]==' '
Зачем ты в это условие вложил другое? У тебя это условие нужно только для вычисления четности, вытащи из этого условия внутреннее и поставь внутреннее после него и проверь. И вообще сделай так, чтобы у тебя на вычисление группы шел каунтер(интовая переменная) то есть: Если встретил пробел, то коунт ++, это первое условие, если комбо бокс текст = 1 и коунт чет то н++, это второе условие.

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@Graf_N 26 / 26 / 0 Регистрация: 30.12.2012 Сообщений: 125
	12.03.2013, 22:24
	Sumy, дык а условие на четность группы? Если я правильно помню, то четность проверяется %2 0

@Sumy 0 / 0 / 0 Регистрация: 01.03.2013 Сообщений: 42
	12.03.2013, 22:28 [ТС]
	Да %2 0

@Graf_N 26 / 26 / 0 Регистрация: 30.12.2012 Сообщений: 125
	12.03.2013, 22:32
	Sumy, ну так в чем проблема?) Что у тебя есть группы? 0

@Sumy 0 / 0 / 0 Регистрация: 01.03.2013 Сообщений: 42
	12.03.2013, 22:48 [ТС]
	Graf_N, Вот на пример я ввожу:1010 011 010 1100 Результат выходит 3, так как только вторая и третья группа нечетная. Вот как мне найти эти группы? 0

@Graf_N 26 / 26 / 0 Регистрация: 30.12.2012 Сообщений: 125
	12.03.2013, 22:50
	Sumy, а куда ты вводишь эти группы?) У тебя же они должны быть как то отделены или только пробелом? Если пробелом, то и считай кол-во пробелов, а по ним и четность групп задавай. 0

@Graf_N 26 / 26 / 0 Регистрация: 30.12.2012 Сообщений: 125
	13.03.2013, 00:42
	Sumy, ну смотри если я все правильно понял, то у тебя просто первое условие не проходится) В коем у тебя спрашивается, если st[i]==' ' Зачем ты в это условие вложил другое? У тебя это условие нужно только для вычисления четности, вытащи из этого условия внутреннее и поставь внутреннее после него и проверь. И вообще сделай так, чтобы у тебя на вычисление группы шел каунтер(интовая переменная) то есть: Если встретил пробел, то коунт ++, это первое условие, если комбо бокс текст = 1 и коунт чет то н++, это второе условие. 0