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

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

30.04.2012, 10:04. Показов 5572. Ответов 7
Метки нет (Все метки)

Дана строка, состоящая из групп нулей и единиц. Подсчитать количество
единиц в группах с нечетным количеством символов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.04.2012, 10:04
Ответы с готовыми решениями:

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

Дана строка, состоящая из групп нулей и единиц. Подсчитать количество символов в самой длинной группе
Дана строка, состоящая из групп нулей и единиц. Подсчитать количество символов в самой длинной...

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

Подсчитайте количество нулей и единиц в группах с нечетным количеством символов
Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой одним или...

7
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
30.04.2012, 11:04 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0','1':;
else key:=#0;
end;
 
end;
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    n,i,j,k,sm:integer;
begin
s:=Edit1.Text;
n:=length(s);
sm:=0;
i:=1;
while i<=n do
if s[i]='1' then
 begin
  k:=0;
  j:=i;
  while(j<=n)and(s[j]='1') do
   begin
    inc(k);
    inc(j);
   end;
  if odd(k) then inc(sm,k);
  inc(i,k);
 end
else inc(i);
edit2.Text:='Количество единиц в группах с нечетным количеством символов='+IntToStr(sm);
end;
2
3941 / 1866 / 337
Регистрация: 16.03.2012
Сообщений: 3,880
30.04.2012, 11:18 3
Предполагаю, что в строке может быть несколько групп, состоящих из 0-й и единиц. Вот мой код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Const
  S = '00010100010 01010110010101'; //Строка
var
  i,CountCh,Count1 : Integer;
  Find : Boolean;
 
 
  Find:=False; //Признак нахождения группы
  CountCh:=0;  //Счётчик количества символов в группе
  Count1:=0;   //Счётчик единиц
  For i:=1 To Length(S) Do
  Begin
    If (S[i] In ['0','1']) Then Find:=True;
 
    If Find Then
    If (S[i] In ['0','1']) Then
    Begin
      Inc(CountCh); //Нарастить счётчик количества символов в группе
      If S[i]='1' Then
      //Нарастить счётчик
      Inc(Count1);
    End Else
    //Конец группы
    Begin
      If Odd(CountCh) Then
      WriteLn(Count1); //Выдать результат по группе
 
      Find:=False;
      CountCh:=0;
      Count1:=0;
    End;
  End;
2
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
30.04.2012, 11:26 4
Цитата Сообщение от Одиночка Посмотреть сообщение
Предполагаю, что в строке может быть несколько групп, состоящих из 0-й и единиц.
Я тоже хотел спросить чем отделяются группы, но подумал что наверное просто чередуются группы нолей и единиц...
0
3941 / 1866 / 337
Регистрация: 16.03.2012
Сообщений: 3,880
30.04.2012, 11:29 5
Puporev:Собственно, пока я писа, ты уже выложил. Жалко было просто вытирать написанное - потому и выложил. Пускай сам разбирается, что нужно. А может ещё кому пригодится.
1
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
30.04.2012, 11:38 6
Все верно, по идее должно быть как у тебя, только разделитель нужно было уточнить, может и запятая быть и что угодно..
0
3941 / 1866 / 337
Регистрация: 16.03.2012
Сообщений: 3,880
30.04.2012, 12:02 7
Puporev только разделитель нужно было уточнить
Так универсал. Если не 0 и не 1 - значит разделитель(и).
0
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
30.04.2012, 12:09 8
А, конечно...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2012, 12:09

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

Дана строка,состоящая из групп нулей и единиц.Найти количество групп с пятью символами.
Помогите пожалуйста,очень срочно. Дана строка,состоящая из групп нулей и единиц.Каждая группа...

Дана строка символов, состоящая из групп нулей и единиц, разделенных пробелами
Написать программу Для ввода строк и работы с ними использовать компонент TEdit. Ввод строки...

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


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

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

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