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

@Katerina3456 · Регистрация: 16.12.2019

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

Delphi 10.3.3
Во всех заданиях исходные данные вводить с помощью компонента TEdit в компонент TListBox, либо с помощью свойства Text в свойство Items компонента TComboBox. Скалярный результат выводить c помощью компонента TLabel. Ввод строки заканчивать нажатием клавиши Enter. Для выхода из программы использовать кнопку Close. Для расчетов вводить несколько различных строк.
Задание: Дана строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы с четным количеством символов.

@Puporev · 26.11.2020, 10:46

Delphi

var
  Form1: TForm1;
  s:string;
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
#8:; //backspase
'0','1':s:=s+key;//в строку
#13:Edit1.Enabled:=false; //конец ввода
else key:=#0;
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
    s1:string;
begin
s:=' '+s;
ListBox1.Clear;
i:=2;
k:=0;
while i<length(s) do
if s[i]<>s[i-1] then
 begin
  s1:=s[i];
  j:=i+1;
  while(j<=length(s))and(s[j]=s[j-1]) do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if length(s1)mod 2=0 then
   begin
    k:=1;
    ListBox1.Items.Add(s1);
   end;
  i:=i+length(s1);
 end
else i:=i+1;
if k=0 then  ListBox1.Items.Add('Таких групп нет');
end;

Новые блоги и статьи
Как настроить 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 и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и 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 открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .

@Katerina3456 0 / 0 / 0 Регистрация: 16.12.2019 Сообщений: 3
		1
	Delphi 6-7 Дана строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы с четным количеством символов 26.11.2020, 09:41. Показов 1836. Ответов 1 Метки нет (Все метки) Delphi 10.3.3 Во всех заданиях исходные данные вводить с помощью компонента TEdit в компонент TListBox, либо с помощью свойства Text в свойство Items компонента TComboBox. Скалярный результат выводить c помощью компонента TLabel. Ввод строки заканчивать нажатием клавиши Enter. Для выхода из программы использовать кнопку Close. Для расчетов вводить несколько различных строк. Задание: Дана строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы с четным количеством символов. 0

	26.11.2020, 10:46

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

Решение