Однонаправленные списки Опции

[}0pa]

Помогите, пожалуйста, исправить функцию

Код

Poisk

...
Задача. Использовав, однонаправленные списки, подсчитать кол-во вхождений в слово, заканчивающимся точкой, подстроки, вводимой с клавиатуры...Фукнция поиска таких слов работает лишь для длины подстроки = 1

Код

uses crt;
const n=20;
Type
  point = ^MyWord;
  MyWord = record
    ch: char;
    next: point
  end;
Type massiv = array[1..n] of char;
var
   slovo:point;
   c:char;
   M:massiv;
   stroka: string[100];
   i:integer;
{---------------------------------------------------------------------------}
Procedure VvodEl;
var i:integer;
begin
for i:=1 to length(stroka) do
  begin
   M[i]:=stroka[i];
  end;
end;
{---------------------------------------------------------------------------}
procedure Print (first: point);
Var r: point;
begin
  R:= first;
  write('CLOBO = ');
  While r<>nil do
    begin
      Write (r^.ch);
      R:=r^.Next;
  end;
  writeln;
end;
{---------------------------------------------------------------------------}
procedure Vvod(first:point);
var r:point;
begin
  first:= nil;
  writeln('HABEPITE C/\OBO C "." HA KOHCE ');
  while r^.ch<>'.' do
    begin
      new(r);
      r^.Next:=slovo;
      read(r^.ch);
      slovo:=r;
    end;
end;
{---------------------------------------------------------------------------}

function Poisk(first:point;C:massiv):integer;
var r:point;
   k,j,z:integer;
begin
k:=0;
r:=first;
j:=1;
while (r<>nil) do
begin
  if (r^.ch=c[j]) then
    begin
      if j=length(stroka) then
         begin
          k:=k+1;
          j:=1;
          r:=r^.next
         end
     else
        begin
         r:=r^.next;
         j:=j+1;
         if j>length(stroka) then j:=1;
        end
    end
  else
   begin
    r:=r^.next;
    j:=1;
   end;
end;
poisk:=k;
end;

begin
clrscr;
write('BBEDuTE TEKCT: ');
readln(stroka);
VvodEl;

for i:= 1 to length(stroka) do write(M[i]);

  writeln;
  vvod(slovo);
  print(slovo);
  writeln(stroka,' BCTPE4AETCYA B C/\OBE ',poisk(slovo,M),' PA3');
  readkey;
  end.

[volvo]

Проблема, кстати, не только с функцией поиска, но и с заполнением слова (а именно - работа со списком... Почему у тебя символы в слове хранятся в обратной последовательности?)

procedure Vvod(var first:point);
var r, last:point;
begin
  first:= nil; last := nil;

  writeln('HABEPITE C/\OBO C "." HA KOHCE ');
  while r^.ch <> '.' do begin
      new( r );
      r^.next := nil;
      read(r^.ch);

      if first = nil then first := r
      else last^.next := r;

      last := r;
  end;
end;

и

function Poisk(first:point;C:massiv):integer;
var r:point;
   k,j,z:integer;

   bad: boolean;
begin
  k := 0;
  i := 1;
repeat
  r := first;
  while (i <= length(stroka)) and (C[i] <> r^.ch) do inc(i);
  if i <= length(stroka) then begin
    j := i;
    bad := false;
    while (r^.ch <> '.') and (not bad) do begin
      bad := (r^.ch) <> C[j];
      r := r^.next;
      inc(j);
    end;

    if bad then inc(i)
    else begin
      inc(k); // counter
      i := j;
    end;

  end;
until i > length(stroka);
poisk:=k;
end;

Так лучше работает?

P.S. Измени вывод: у тебя СЛОВО ищется с строке, а не СТРОКА в слове...

[}0pa]

У меня твой вариант фукнции Поиск не работает, к сожалению. Что-то никак не могу разобрать твою функцию. Может в кратце объяснишь? Пожалуйста

[volvo]

У меня твой вариант фукнции Поиск не работает, к сожалению.

Я тысячу раз сказал: "У меня не работает" к рассмотрению НЕ принимается... На каких входных данных не работает?

Смотри:


Что именно не работает здесь?

[}0pa]

Я не знаю, кто это недопонял, но я знаю точно, что искать нужно в слове, оканчивающимся точкой. А то ЧТО искать, вводим с клавиатуры изначально, можно и потом. А вариант твой выше конечно правильный,но...

[Lapp]

А вариант твой выше конечно правильный,но...

.. но - что?
Похоже, автор уснул на полуслове. Да и то - поздно уже.. спи, автор.
To be continued...

[}0pa]

Использовав, однонаправленные списки, подсчитать кол-во вхождений в слово, заканчивающимся точкой, подстроки, вводимой с клавиатуры///Т.е. слово, в котором нужно найти как раз и состоит из букв-звеньев списка. Если не трудно, помогите

Сообщение отредактировано: }0pa - 2.11.2006 2:00

[}0pa]

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

Сообщение отредактировано: }0pa - 2.11.2006 17:27

[мисс_граффити]

тебе же дали готовые функции...

[}0pa]

Да, я же говорю, что это фукнция, написанная вольво, не на нужно мне условие

[}0pa]

Вот я исправил функцию. Алгоритм вроде верный, но результат неверный. Помогите немного исправить ее.

Код

function Poisk(first:point;C:massiv):integer;
var r:point;
   k,j,z:integer;

   bad: boolean;
begin
  k := 0;
  i := 1;
repeat
  r := first;
  while (r<>nil) and (C[i] <> r^.ch) do r:=r^.next;
  if r<>nil then begin
    j := i;
    bad := false;
    while (r^.ch <> '.') and (not bad) do begin

      bad := (r^.ch) <> C[j];
      r := r^.next;
      inc(j);
    end;

    if bad then r:=r^.next;
    else begin
      inc(k);
      i := j;
    end;

  end;
until r<>nil;
poisk:=k;
end;

[volvo]

Неужели было настолько сложно просто зеркально поменять ту функцию, которую я тебе предложил?

function Poisk(first:point;C:massiv):integer;
var
  p, r:point;
  k,j,z:integer;

  bad: boolean;
begin
  k := 0;
  i := 1;

  r := first;
  repeat

    while (r <> nil) and (C[1] <> r^.ch) do r := r^.next;
    if r <> nil then begin

      j := 1;
      p := r;
      bad := false;
      while (p^.ch <> '.') and (not bad) do begin

        bad := (p^.ch) <> C[j];

        if not bad then begin
          p := p^.next;
          inc(j);
        end;
      end;

      if C[j] <> #0 then r := r^.next
      else begin
        inc(k);
        r := p;
      end;

    end;

  until r = nil;
  poisk:=k;
end;

Моя функция Vvod из поста №2 остается в силе...

Вот результат прогона программы:


Это тебе нужно, или опять что-то не так?

[}0pa]

Благодарствую...С меня два плюсика (конечно,когда будет возможность их ставить). Все работает...
Последний вопрос:

Код

if not bad then begin

В этом случае bad есть true?