Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Вводится строка символов. Задача.

Автор: Sum42 4.10.2010 23:08

Помогите пожалуйста с задачкой
Задача
Вводится строка символов. Определить число вхождений в нее группы букв вида “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 4.10.2010 23:14

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

Автор: Sum42 4.10.2010 23:20

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

Цитата

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

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

Автор: sheka 4.10.2010 23:28

Хм...Погугли! http://www.google.com.ua/search?hl=ru&source=hp&q=pos+pascal&aq=0&aqi=g1&aql=&oq=pos+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 4.10.2010 23:34

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

Автор: volvo 5.10.2010 0:18

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 5.10.2010 0:45

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

   
    k := n;
    n := m;

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

Автор: volvo 5.10.2010 1:00

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

Автор: Sum42 5.10.2010 1:29

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