поиск подстроки в строке

[Stilet]

Wow!! Ану делитесь грибами. А с меня хавчик потом, когда налетаемся.

[Serge_Bliznykov]

while (i<> n+1) and (state <> 4)

очевидно, что ваша программа закончится когда i станет равным n+1 или когда state станет равным 4 (в условии while заданы условия, пока программа выполняется, значит, обратные условия - Not (основное_условие) и даст условие прекращение цикла (программы).
ещё учтём, что условие State = 4 выполняется, когда подстрока найдена, но, раз преподаватель сказал, что данной подстроки нет, значит, условие прекращение программы: i станет равным n+1

imho, разумеется

[DiemonStar]

Я бы сказал, что вариант развития событий напрямую от реализации зависит:
если индекс есть Integer, то 32767(или 8 - зависит от конкретного массива). Реализация на ассемблере упрётся в 32 бита регистра смещения (если, конечно, не извращаться с разбиением массива). Вариант на нейрокомпьютере имеет конечное решение, но лишь тогда, когда научится достаточно верно предсказывать очередной символ (боюсь даже прогнозы ставить на время).

[Aina Utebekova]

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

очевидно, что ваша программа закончится когда i станет равным n+1 или когда state станет равным 4 (в условии while заданы условия, пока программа выполняется, значит, обратные условия - Not (основное_условие) и даст условие прекращение цикла (программы).
ещё учтём, что условие State = 4 выполняется, когда подстрока найдена, но, раз преподаватель сказал, что данной подстроки нет, значит, условие прекращение программы: i станет равным n+1

imho, разумеется

Значит моя программа закончится когда i=n+1, то есть i достигнет n+1?. но n натуральное и бесконечное число. Тогда как i достигнет n+1?

[ViktorR]

Моё предложение такое:

uses Crt;
  const sABCD='abcd';
  Type str4 = string[4];
  var buf : str4;
      ch : char;
  function ShiftStr(str:str4): str4; {сдвигаем на оду позицию влево}
  begin
      str[1] := str[2];
      str[2] := str[3];
      str[3] := str[4];
      ShiftStr:= str;
  end;

  begin
     buf := '1111';
     writeln('Вводите символы. Выход из программы Ctrl+Break или комбинация: ', sABCD);
     while true do begin
        repeat
        until Keypressed;
        buf[4] := readkey;
        if buf = sABCD Then
           break
        else
          buf := ShiftStr(buf);
     end;
     writeln('введены символы: ', buf);
  end.

В том случае, когда надо определить еще и местоположение подстроки, устроить счет. При переполнении счетчика - Break.
В моем случае поток символов - с клавиатуры. Если рассматривать поток из файла, то немного надо поправить.


Как-то так получилось...

[Stilet]

Aina Utebekova

Если препод всетки разродится "правильным" ответом - поделись. Посмотрим что он из себя представляет, задавая такие задачи.

[Serge_Bliznykov]

Значит моя программа закончится когда i=n+1, то есть i достигнет n+1?. но n натуральное и бесконечное число. Тогда как i достигнет n+1?

угу. какая программа? я ни знаю НИ ОДНОГО языка программирования. где бы можно было задать в качестве типа переменной "натуральное и бесконечное" число! Давайте Вы для начала покажите, как Вы задаёте тип переменной N в программе, а потом уже будем говорить про бесконечность!

но, мне кажется, тут всё намного проще!
если тот фрагмент программы, который Вы привели в пост #10 - это тот же код, который Вы пытались сдать преподавателю, то ответ на его вопрос ОЧЕВИДЕН! Более того, он уже прозвучал в данной теме!
причём дважды (пост #11 и пост #16)
(c) VIK_aka_TOR

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

хотя если n положительна... то она будет продолжаться до тех пор покуда i не достигнет значения n+1 ... хотя в коде не нашел что бы i инкриментиовалось....

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

а по поводу программы... если она записана без ошибок... то i там не изменяется в цикле и будет банальное зацикливание... и из-за этого прога "зависнет"...

p.s. хотя, всё может быть...

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

Если препод всетки разродится "правильным" ответом - поделись. Посмотрим что он из себя представляет, задавая такие задачи.

присоединяюсь. Ждём! Очень интересно, какой ответ преподаватель ожидал услышать от Вас.

[TinMan]

Уважаемые участники дискуссии,
я извиняюсь, что присоединяюсь слишком поздно и вряд ли скажу что-то новое. Но мне кажется, что все, что было сказано, было сказано не совсем явно и ясно, полунамеками. И я боюсь, что ТС не может до конца вникнуть.. Поэтому, не обижайтесь, я просто повторю.

1. Aina (кстати, как правильно произносить? Айна?), тот фрагмент программы, который ты привела написан НЕПРАВИЛЬНО. В нем пропущено увеличение переменной i в процессе поиска. Такая программа будет все время проверять ТОЛЬКО ОДНУ букву (самую первую), и ей совершенно ВСЕ РАВНО, что там в середине строки. В обычной ситуации я бы сказал - это ошибка, исправь и все, но при данной постановке задачи (и если этот фрагмент получен ОТ ПРЕПОДА), это могло быть сделано нарочно, чтоб отвечающие заметили (а остальное - для отвода глаз).

Если же это все-таки обычная ошибка (может, сделанная при копировании кода), то, я далее буду предполагать, что код выглядит примерно так:

        i:=1; state:=0;
        {i - первая непрочитанная буква, state - состояние}
        while (i<> n+1) and (state <> 4) do begin
          if state = 0 then begin
            if x[i] = a then begin
              state:= 1;
            end else begin
              state:= 0;
            end;
          end else if state = 1 then begin
            if x[i] = b then begin
              state:= 2;
            end else if x[i] = a then begin
              state:= 1;
            end else begin
              state:= 0;
            end;
          end else if state = 2 then begin
            if x[i] = c then begin
              state:= 3;
            end else if x[i] = a then begin
              state:= 1;
            end else begin
              state:= 0;
            end;
          end else if state = 3 then begin
            if x[i] = d then begin
              state:= 4;
            end else if x[i] = a then begin
              state:= 1;
            end else begin
              state:= 0;
            end;
          end;
          inc(i);  // this statement was MISSING!!
        end;
        answer := (state = 4);

2. Если фрагмент кода поиска написан правильно, то возможностей окончания цикла только ДВЕ - либо сэмпл найден, либо выполнено равенство i=n+1 . Но в этом фрагменте нигде НЕ ЗАДАЕТСЯ значение n. По-видимому, все же предполагается, что это есть ДЛИНА строки. Например, если строка имеет нулевую длину (то есть в ней нет ни одного символа, и n=0), то не произойдет ни одного захода в цикл (так как сразу выполниться условие i=n+1=0+1=1). Само НАЛИЧИЕ переменой n обуславливает то, что она ИМЕЕТ какое-то значение. И разговоры про бесконечность - пустой треп. Переменная n, если она присутствует в коде, при загрузке программы на выполнение получит определенный адрес в памяти. И по этому адресу обязательно будет лежать число - либо то, которое мы туда положим (если мы позаботились об этом), либо ноль (если программа при запуске обнулила эту область памяти, как обычно бывает), либо случайное значение (если ни первого, ни второго не произошло). Но так чтоб НЕ БЫЛО НИКАКОГО значение - так быть НЕ МОЖЕТ (либо у меня есть деньги в кармане, и я знаю, сколько, либо нету, либо я не знаю сколько - но я УЗНАЮ, когда полезу в карман). Поэтому это условие выполнится ОБЯЗАТЕЛЬНО когда-то. Правда, в реальной ситуации может случиться, что закончится участок памяти, отведенной операционной системой под нашу прогу, и задача завершится с ошибкой (защита памяти). Что наступит раньше, сказать по тому фрагменту невозможно. Я бы в твоей ситуации все же упирал на выполнение равенства i=n+1, приняв, что переменная n была инициирована правильным (хотя, может, и очень большим) значением.

3. Я не совсем понял, при чем тут разговоры про мощность множеств натуральных чисел и действительных. Да, множество натуральных чисел СЧЕТНО (или, как говорят, имеет мощность алеф-ноль), а множество действительных чисел имеет мощность континуума (или алеф-один). Но - извини, если я тебя разочарую - это не имеет ни малейшего отношения к программированию. Поскольку, как я понял, речь все-таки идет о более-менее реальной ситуации, то разговоры о теории множеств все же следует отбросить.

Мне тоже очень интересно узнать, что же все-таки имел в виду преподаватель, так что я присоединяюсь к клубу жаждущих ответа (какой вступительный взнос?))