С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Как открыть шаблон Word-a из папки в корневой папки программы :) Таккая проблема у меня реализован вывод данных программы в ворд по Bookmarks сейчас подгрузга шаблона сделана через Opendialog, проблема в том что когда шаблон открывается и в него заносятся данные шаблон можно случайно пересохранить :( а необходимо как то сделать так чтобы либо помимо Opendialog-а был Sevedialog который позволял открыть шаблон но сохранял под другим именем :) либо просто как я... https://www.cyberforum.ru/ delphi-beginners/ thread561832.html Delphi Для заданной квадратной матрицы сформируйте одномерную таблицу из её диагональных элементов
Для заданной квадратной матрицы сформируйте одномерную таблицу из её диагональных элементов
Delphi Найти сумму и количество положительных элементов, лежащих выше главной диагонали, в каждом столбце матрицы. https://www.cyberforum.ru/ delphi-beginners/ thread561785.html
1.Найти количество элементов больших среднего арифметического элементов данного массива. Або 2.Найти сумму и количество положительных элементов, лежащих выше главной диагонали, в каждом столбце матрицы. Очень нужна помощь Спасибо.
Delphi statusbar (сообщение) и таймер https://www.cyberforum.ru/ delphi-beginners/ thread561777.html
Привет всем. есть такой вопросик, при запуске проги в (statusbar) выводится инфа (в сети комп или не в сети), есть подключение к нету. когда нет подключен выводит (в сети), если нет, то наоборот. Помогите сделать так, чтобы при запущеной проге, при отключения нета, менялось на (вне сети). а то у меня меняется только при следующем запуске. Добавлено через 36 минут пробую писать: procedure...
Delphi Программа, которая построит блок-схему из .pas
Собственно нужна программа которая нормально построит блок схему или из файла .pas или из кода который я впишу. Пожалуйста советуйте проги которые у вас реально работали, а то я уже кучу перелопатил и ничего :(
Delphi Undeclared identifier: 'CanClose' https://www.cyberforum.ru/ delphi-beginners/ thread561771.html
Прикрутил MessageDlg ругается на CanClose, хотя OncloseQuerty инициированна. Что не так? :) По нажатию Yes форма должна закрыватся, по нажатию No должно происходить возвращение к форме. Procedure IfSpace(Sender:TEdit); Begin if Length(Sender.Text)=0 then if MessageDlg('Не все поля заполнены. Продолжить?', mtInformation, , 0)=mrYes then CanClose:=True else ...
Delphi ShowMessage удалить заголовок https://www.cyberforum.ru/ delphi-beginners/ thread561763.html
Интересует такой вопрос :) Когда всплывает ShowMessage в окне сверху красуется Projekt 1 в инете нашел тока информацию по изменению заголовка, а как его затереть вовсе? :)
Как картинку в SpeedButton растянуть по размеру кнопки Delphi
Ребят, подскажите кто знает, как картинку в SpeedButton растянуть по размеру кнопки?
Delphi В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип автобуса, пункт назначения, время отправле https://www.cyberforum.ru/ delphi-beginners/ thread561711.html
В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип автобуса, пункт назначения, время отправления и прибытия. Вывести информацию о рейсах, которыми можно воспользоваться для прибытия в пункт назначения раньше заданного времени.
Delphi Проверка ComboBox на пустоту ОЧ дурацкий вопрос :- Unit3.pas(142): Type of expression must be BOOLEAN https://www.cyberforum.ru/ delphi-beginners/ thread561690.html
Delphi Вывод n-единиц количества товара
Здравствуйте, помогите с заданием пожалуйста. Определить и вывести в обьект Memo и файл n-штук любого товара. Выбор товара организовать через combobox, а количество через edit.
Delphi Расчет полета (нахождение угла полета пули) https://www.cyberforum.ru/ delphi-beginners/ thread561679.html
друзья...помогите с програмкой...нужно переделать способ нахождения угла...раньше считала делением на 2..( получается так много итераций ) а надо так у=y1+ (y2 - y1)/( x2 - x1) * (x-x1) , где х2 дальность при недолёте, у2 - угол при недолёте, х-1 дальность при перелетё, у1 - угол при перелетё, х - данная дальность до цели. Находим у- нужный нам угол. Смысл состоит в том что, при первом...
3944 / 1869 / 337
Регистрация: 16.03.2012
Сообщений: 3,880
30.04.2012, 11:18 0

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

30.04.2012, 11:18. Показов 6392. Ответов 7
Метки (Все метки)

Ответ

Предполагаю, что в строке может быть несколько групп, состоящих из 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;


Вернуться к обсуждению:
Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным количеством символов. Delphi
2
Заказать работу у эксперта
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.04.2012, 11:18
Готовые ответы и решения:

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

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

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

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

7
30.04.2012, 11:18
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.04.2012, 11:18
Помогаю со студенческими работами здесь

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

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

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

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

0
Новые блоги и статьи
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD
InfoMaster 15.01.2025
В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .
Что такое CQRS и как это реализовать на C# с MediatR
InfoMaster 15.01.2025
Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .
Как настроить CI/CD с Azure DevOps
InfoMaster 15.01.2025
CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .
Как настроить CI/CD с помощью Jenkins
InfoMaster 15.01.2025
Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .
Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD
InfoMaster 14.01.2025
Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .
Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD
InfoMaster 14.01.2025
В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript
InfoMaster 14.01.2025
В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере
InfoMaster 14.01.2025
Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .
Как создать игру "Танчики" на Unity3d и C#
InfoMaster 14.01.2025
Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .
Организую платный онлайн микро-курс по доработке Android-клиента Telegram
_Ivana 14.01.2025
Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin
InfoMaster 14.01.2025
Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .
Как создать приложение магазина для iOS/iPhone на Swift
InfoMaster 14.01.2025
Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru