Вводится строка символов. Задача. Опции

[Sum42]

Помогите пожалуйста с задачкой
Задача
Вводится строка символов. Определить число вхождений в нее группы букв вида “abc”.
Мое решение

program PR_3_28;
uses crt;
var
 k,n,m:char;
 x:integer;
begin
 clrscr;
 Write('Введите строку символов в конце поставьте точку!');
 Read(k,n,m);
 While (k<>'.')and(n<>'.')and(m<>'.') do
                                      begin
                                      if (k='a')and(n='b')and(m='c')
                                       then x:=x+1
                                       else if (n='a')and(m='b')and(k='c')
                                             then x:=x+1
                                             else if (m='a')and(k='b')and(n='c')
                                                   then x:=x+1;
                                      read(k,n,m);
                                      end;
 Writeln('Число групп символов abc=',x);
 readkey;
 end.

Вообщем программа работает не совсем правильно определяет только если (abc) попадается через 3 символа, например так (abcfgtabc), а вот такое её не под силу (adabcas)
Только начал учить паскаль. Не пинайте сильно

[sheka]

Попробуй использовать функции Pos и Copy.

[Sum42]

да чуть не забыл, ненадо использовать тип массив

Попробуй использовать функции Pos и Copy.

только начинаю еще) не знаю как их использовать(

[sheka]

Хм...Погугли! http://www.google.com.ua/search?hl=ru&sour...os+pas&gs_rfai=

Решение (Показать/Скрыть)

const
  SubStr = 'abc';

var
  str: string;
  count: byte;

begin
  Count := 0;
  writeln('Vvedi stroku:');
  readln(Str);
  while (pos(SubStr, Str) <> 0) do
    begin
      inc(Count);
      Str := copy(Str, pos(SubStr,Str)+length(SubStr),length(Str)-(pos(SubStr,Str)+length(SubStr))+1);
    end;
  writeln('Count = ', Count);
  readln;
end.

[Sum42]

sheka
спасибо конечно), но нам еще не давали структурированные типы данных(массивы строки и др), я так понял что функции Pos и Copy это к ним можно применять, там нужно решить не используя это.

[volvo]

Sum42, посмотри, как работает следующий вариант:

  Read(k,n,m);
  While (m <> '.') do
  begin
    if (k='a') and (n='b') and (m='c') then x:=x+1;
    k := n;
    n := m;
    read(m);
  end;

И постарайся в нем разобраться. Что непонятно - спрашивай.

[Sum42]

volvo
спасибо большое, все работает!
Я так понял что в результате этого

   
    k := n;
    n := m;

и (k)и(n)присваивается значение (m)?
И дальше мы вводим уже только m?
Спасибо еще раз, мне бы самому так не додуматься...

[volvo]

Не совсем. Все "сдвигается на 1 символ", то, что было в N переходит в K, а то, что было в M - переходит в N. Таким образом тебе необходимо каждый раз считывать только один символ, M. И у тебя каждый раз в KNM будет тройка символов, которая как бы "сдвигается" к концу предложения. Проверяешь ее на abc и всё

[Sum42]

volvo
долго до меня "доходило", даже на листочке пытался записывать как это все в программе происходит(почти полчаса сидел), теперь понял, спасибо большое)