Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Запись/чтение из бинарного файла. BlockRead Впервые использую BlockRead и BlockWrite, видимо что то не правильно понял. Запись: i : Word; s : string; f : File; mas : array of string; AssignFile(F, Form1.SaveDialog1.FileName); ... https://www.cyberforum.ru/ delphi-beginners/ thread563114.html Метод Коши-Эйлера (Хьюнга). Формула, как в учебнике, но виснет на цикле. Delphi
Сделал программы строящую график функции по методу Эйлера, усовершенствованному методу Эйлера и по методу Эйлера-Коши. Всё работает кроме Эйлера-Коши. Суть в том, что при уточнении до...
Delphi Сгенерировать 5 случайных чисел, в сумме дающих 100 как сгенерировать 5 случайных чисел в сумме дающих 100 https://www.cyberforum.ru/ delphi-beginners/ thread563074.html Delphi Прочитать файл1 и создать новый файл2 с данными из первого файла, только без цифр Добрый день. Есть задача: прочитать файл1 и создать новый файл2 с данными из первого файла, только без цифр. Делаю. Получается такой кусок кода: begin AssignFile(f,s); reset(f);... https://www.cyberforum.ru/ delphi-beginners/ thread563054.html
процедура подсчёта кликов для вывода сообщения Delphi
задача такова: нужно чтобы при клике на левую кнопку мыши счётчик увеличивался на 1, а при клике на правую уменьшался на 1. процедурка правильно считает только если все клики были сделаны левой...
Delphi ..is not a valid floating point value.. https://www.cyberforum.ru/ delphi-beginners/ thread563041.html
Вот кусочек моего задания, на котором я немного "заглох". • При нажатии кнопки «Ввести», используя диалог по открытию файла, выбрать текстовый файл с числовой матрицей (для отладки создать этот...
Delphi Определить, сколько слов начинается с той же буквы, которой закончилось предыдущее https://www.cyberforum.ru/ delphi-beginners/ thread563021.html
Определить сколько слов в строке начинается с той же буквы, которой закончилось предыдущее слово. При том условии что слова отделены 1 пробелом. я вот что нарешал var s:string; i,a:integer;...
Delphi Создать список из чисел файла
В общем дал преподаватель задачку, и сказал, чтобы в условии просто заменить слово "очередь" на "список" а я что-то неособо понимаю, как реализовать данную задачу. Какая связь будет в этом списке...
Delphi Есть ли такой юнит? https://www.cyberforum.ru/ delphi-beginners/ thread563011.html
делфи, меню, выбор, консольный режим. В общем суть такова. Программа должна выполнять некоторые операции с файлами. неважно какие. Какими знаниями я сейчас обладаю хватает лишь на то, чтобы...
Delphi Работа с файлами https://www.cyberforum.ru/ delphi-beginners/ thread562995.html
Разработать программу, которая читает текст из файла и выводит на экран строки, в которых не содержатся двузначные числа. (В строках помимо цифр могут содержаться и символы) Помогите...
Delphi Обработка символьной информации
1. Определено, что в тексте пропущены некоторые слова и словосочетания. Они поданы отдельным списком в том порядке, в котором они должны быть вставлены. Места вставки помечены в тексте символом $....
Delphi Обработка двумерных массивов https://www.cyberforum.ru/ delphi-beginners/ thread562993.html
Коефициенты СЛАУ заданы в виде прямоугольной матрицы. При помощи допустимых превращений свести систему к треугольному виду. Найти кол-во строк, среднее арифметическое элементов которых меньше...
13077 / 5862 / 1706
Регистрация: 19.09.2009
Сообщений: 8,807
02.05.2012, 08:36 0

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

02.05.2012, 08:36. Показов 2981. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено ChUv@chok как решение

Решение

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
33
34
35
procedure TForm1.Button1Click(Sender: TObject);
const
  D = ['0', '1'];
var
  S : String;
  i, Len, Cnt, CntRes : Integer;
begin
  S := Memo1.Text;
  Memo2.Clear;
 
  Len := Length(S);
  CntRes := 0;
  Cnt := 0;
  for i := 1 to Len do begin
    //Пропускаем символы, не принадлежащие множеству D.
    if not (S[i] in D) then Continue;
    //Подсчёт элементов в группе.
    Inc(Cnt);
    //Отслеживаем конец очередной группы.
    if (i = Len) or (S[i] <> S[i + 1]) then begin
      //Учитываем количество символов в группах единиц с нечётным
      //количеством символов.
      if (S[i] = '1') and (Cnt mod 2 <> 0) then begin
        Inc(CntRes, Cnt); //Это тоже самое что и: CntRes := CntRes + Cnt;
        Memo2.Lines.Add( Copy(S, i - Cnt + 1, Cnt) ); //Это необязательная строка.
      end;
      Cnt := 0; //Сброс счётчика.
    end;
  end;
 
  //Ответ.
  Memo2.Lines.Add(
    'Общее количество символов в группах с нечётным количеством единиц: ' + IntToStr(CntRes)
  );
end;


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

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

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

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

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

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.05.2012, 08:36

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

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

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru