Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Delphi Текстовый редактор. Доброго времени суток! Уважаемые программисты помогите создать вот такой редактор: Разработка класса (иерархии классов) для работы с текстом (массивом строк). Каждая строка (элемент массива строк) – строка типа AnsiString. Длина строк может быть различной. Класс должен иметь методы: · добавления новой строки (добавления нового элемента массива строк); индекс добавленной строки –... https://www.cyberforum.ru/ delphi-beginners/ thread320560.html Затормозить выполнение программы на 5 секунд (без Sleep) Delphi
как затормозить выполнение программы на 5 секунд,не пребегая к sleep есть вариант циклом,но какое количество повторов ставить,чтобы было ровно 5 сек?
Delphi Разрабоать функцию изъятия инфы из биоса https://www.cyberforum.ru/ delphi-beginners/ thread320549.html
Добрый всем вечер. Подскажите кто что сможет. Задание на курсовой: "Разработать функцию, распечатывающую основные установки BIOS компьютера. Результат поместить в выходной файл". Как сказал преподаватель нужно использовать Win API. Подскажите хотя бы общее построение программы или если у кого есть скиньте. Заранее спасибо за помощь. 		Delphi перехват ошибки https://www.cyberforum.ru/ delphi-beginners/ thread320545.html
как перехватить оошибку? try IdSMTP1.Connect(); sleep(5000); IdSMTP1.Send(IdMessage1); IdSMTP1.Disconnect; busy(false); Except busy(false); application.MessageBox('Проверьте подключение к интернту',error,0);
разработка АС "Дек" Delphi
помогите составить программу: условие: разработать алгоритмическую структуру "Дек" с ограниченным выходом. Ввести подсчет количества элементов структуры, количества нечетных элементов, отображать первый и последний элементы. заранее благодарен... 		Delphi В даной последовательности найти максимальную по длине последовательность Ув.форумчане!обращаюсь к вам за помощью в решении задачи по информатике-язык программирования-Delphi7!задача состоит в следующем:В даной последовательности найти максимальную по длине последовательность так-чтоб елементы в ней были в возрастающем порядке!Заранее благодарен! https://www.cyberforum.ru/ delphi-beginners/ thread320502.html
Delphi ComboBox https://www.cyberforum.ru/ delphi-beginners/ thread320479.html
Дана строка ComboBox в которой записаны группы чисел состоящие только с 0 и 1. Найти и вывести из этой группы пары состоящие из четного количества чисел.... 		Delphi меню.
Разработать приложение , которое содержит главное меню и всплывающее меню. Для выбранного компонента должно всплывать контекстное меню, содержащее. Для другого компонента в это время контекстное меню должно выть отключено. Предусмотреть возможность добавления и удаления подпунктов меню в один из пунктов меню. я вообще не понял ничего .как я живу =(
Delphi составить программу подсчитывающую число посещений в поликлинике врачей специалистов помогите пожалуйста очень срочно нужно завтра сдать нужно! нужно составить программу подсчитывающую число посещений в поликлинике врачей специалистов(отоларинголога, окулиста и хирурга). в конце дня выдать итоговое сообщение.предусмотреть возможность выдачи количества осмотренных больных в любой из дней недели каждым из специалистов. программу я написала а вывод сделать не получается помогите... https://www.cyberforum.ru/ delphi-beginners/ thread320460.html Delphi флажки https://www.cyberforum.ru/ delphi-beginners/ thread320459.html
Разработать интерфейс и программу, которая позволяет выбирать вариант расчета (формата вывода, ) с помощью переключателей и выбирать шрифты с помощью флажков. Примерный вид интерфейса приведен на рисунке. Можно использовать собственный вид интерфейса. Общее задание-Арифметический расчет Исходные данные-Три числа Режим 1-Ср. арифметическое, Ср. геометрическое Режим 2-целая часть, Округл....
Массивы Delphi
Дано два массива А и с. Найти наименьшее среди трех элементов первого массива, которые не входят во второй массив. 		Delphi Подсчет Баллов https://www.cyberforum.ru/ delphi-beginners/ thread320383.html
Не знаю как в тесте сделать подсчет правильных ответов и вывод оценки, соответствующей набранным баллам. Прилагаю архив с тестом. Открывать тест через "Poect1". Заранее спасибо.
13097 / 5878 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
16.06.2011, 09:49 0

Подсчитать количество единиц в группах с нечетным количеством символов - Delphi - Ответ 1764271

16.06.2011, 09:49. Показов 957. Ответов 1
Метки (Все метки)

Ответ

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.Button1Click(Sender: TObject);
const
  D = ['0', '1'];
var
  S : String;
  i, Len, Cnt, Cnt1, CntRes : Integer;
begin
  S := Edit1.Text;
  Len := Length(S);
  Cnt := 0;
  Cnt1 := 0;
  CntRes := 0;
  for i := 1 to Len do begin
    //Пропускаем символы, не принадлежащие множеству D.
    if not (S[i] in D) then Continue;
    //Подсчёт элементов в группе.
    Inc(Cnt);
    //Подсчёт единиц в группе.
    if S[i] = '1' then Inc(Cnt1);
    //Конец очередной группы.
    if (i = Len) or (not (S[i + 1] in D)) then begin
      if Cnt mod 2 <> 0 then CntRes := CntRes + Cnt1;
      Cnt := 0;
      Cnt1 := 0;
    end;
  end;
 
  ShowMessage(
    'Общее количество единиц, подсчитанное в группах'
    + #10 + 'с нечётной длиной, равно: ' + IntToStr(CntRes)
  );
end;
Пример строки: 0 010 101 0101 0001 01110
Ответ: 6

Вернуться к обсуждению:
Подсчитать количество единиц в группах с нечетным количеством символов Delphi
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 16.06.2011, 09:49
Готовые ответы и решения:

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

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

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 16.06.2011, 09:49
Помогаю со студенческими работами здесь

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru