Задача о шести подряд идущих единицах.

[llTibegll]

Здравствуйте помогите мне пожалуйста с данной задачкой:

Вводиться натурально число. Проверить есть ли в введённом числе 6 подряд идущих единиц.

Вот мой код задачи:

procedure TForm1.Button1Click(Sender: TObject);

var n,a,sum:integer;
begin
n:=StrToInt(edit1.Text);
sum:=0;
repeat
a:=n mod 10;
  if a=1 then
  begin
  sum:=sum+a;
  n:=n div 10;
  end
  else n:=n div 10;
until N=0;
if sum= then ShowMessage('yes') else
ShowMessage('No');


end;

end.

Проблема в том что программа считает, есть ли вообще в числе 6 единиц, а нужно чтобы считала, есть ли 6 единиц подряд.

к Примеру число 211111156 - должно сказать что число верно, а число к примеру 21112111 - не верно.

Помогите пожалуйста, заранее очень вам благодарен.

[NeshSoft]

В таком случае лучше работать с числом как с текстом. И просто найти в строке s подстроку '111111' - реализуется одной строкой...

[DeKot]

1. Переводим число в строку (IntToStr);
2. Объявляем счетчик подсчета количества цифр '1' ;
3. Cчитываем строку посимвольно и сравниваем с символом '1'.При совпадении увеличиваем счетчик на еденицу и проверяем не достиг ли счетчик значения 6.(если достиг - значит есть шесть едениц подряд.Далее можно или закончить проверку или же продолжать проверку далее - это надо уточнить условием задачи)
Если нет совпадения с '1' счетчик сбрасываем в "ноль" и продолжаем проверку.
Вот такой вот алгоритм. Программная реализация не должна вызывать затруднения.

[llTibegll]

Сообщение от NeshSoft

В таком случае лучше работать с числом как с текстом. И просто найти в строке s подстроку '111111' - реализуется одной строкой...

согласен, но у меня лабораторная работа по теме "Циклы", поэтому не могу использовать функцию Pos, или какую либо другу, в этом вся и проблема.

[DeKot]

Вот и используй цикл по условию - " до конца строки" в методе #3.

[llTibegll]

Сообщение от DeKot

1. Переводим число в строку (IntToStr);
2. Объявляем счетчик подсчета количества цифр '1' ;
3. Cчитываем строку посимвольно и сравниваем с символом '1'.При совпадении увеличиваем счетчик на еденицу и проверяем не достиг ли счетчик значения 6.(если достиг - значит есть шесть едениц подряд.Далее можно или закончить проверку или же продолжать проверку далее - это надо уточнить условием задачи)
Если нет совпадения с '1' счетчик сбрасываем в "ноль" и продолжаем проверку.
Вот такой вот алгоритм. Программная реализация не должна вызывать затруднения.

если вас не затруднит, то можете написать код программы? , а то я не совсем понимаю как ваш алгоритм перевести в код.

[NeshSoft]

Сообщение от llTibegll

Проблема в том что программа считает, есть ли вообще в числе 6 единиц, а нужно чтобы считала, есть ли 6 единиц подряд.

А что мешает обнулить счетчик единиц, если текущая цифра не "1".

В любом случае я согласен с DeKot, цикл можно применить более эффективно. А использовать столько раз деление - неразумно.

[Serge_Bliznykov]

а что должна выдать программа, если в числе 7 (или более единиц подряд!?

а так вот простенький вариант:

procedure TForm1.Button1Click(Sender: TObject);
var n, a, CntOne: integer;
  Is6DigitFound : boolean;
begin
  n := StrToInt(edit1.Text);
  CntOne := 0;
  Is6DigitFound := False;
  repeat
    a := n mod 10;
    if a = 1 then
    begin
      CntOne := CntOne +1;
      if CntOne = 6 then Is6DigitFound := true;
    end
    else
      // если встретили не единицу
      //     - сбрасываем счётчик единиц
      CntOne := 0;
    n := n div 10;
  until (N = 0) or Is6DigitFound;
  if Is6DigitFound
   then ShowMessage('yes')
   else ShowMessage('No');
end;

[llTibegll]

Сообщение от Serge_Bliznykov

а что должна выдать программа, если в числе 7 (или более единиц подряд!?

а так вот простенький вариант:

procedure TForm1.Button1Click(Sender: TObject);
var n, a, CntOne: integer;
  Is6DigitFound : boolean;
begin
  n := StrToInt(edit1.Text);
  CntOne := 0;
  Is6DigitFound := False;
  repeat
    a := n mod 10;
    if a = 1 then
    begin
      CntOne := CntOne +1;
      if CntOne = 6 then Is6DigitFound := true;
    end
    else
      // если встретили не единицу
      //     - сбрасываем счётчик единиц
      CntOne := 0;
    n := n div 10;
  until (N = 0) or Is6DigitFound;
  if Is6DigitFound
   then ShowMessage('yes')
   else ShowMessage('No');
end;

Спасибо вам огромное, работает. Если 7 или более едениц и они подряд, то должна программа сказать ДА, если 7 и более цифр идут не подряд, то программа говорит НЕТ. Только могли бы вы объяснить что это Is6DigitFound : boolean; ?

[Serge_Bliznykov]

могли бы вы объяснить что это Is6DigitFound : boolean;

это переменная логического типа (логический, или ещё говорят "булевый" тип - это тип данных, который может принмать только два значения - ИСТИНА или ЛОЖЬ (TRUE или FALSE)
имя у этой переменной выбрано так, чтобы можно было догадаться, для чего она нужна:
Is6DigitFound - в вольном перевод это "Найдено6цифр"
Это своеобразный флажок - который мы устанавливаем в ИСТИНУ, если нашли шесть единиц подряд.
он же проверяется в цикле (в операторе UNTIL), поэтому, если мы нашли 6 единиц - то всё, выходим из цикла.
и последнее, по этой переменной мы решаем, какое сообщение выдавать, Yes или No