Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=295664 Sun, 08 Feb 2004 18:23:25 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=295664 Юлия Pascal https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=295056 Sat, 07 Feb 2004 09:44:38 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=295056 Цитата
кстати, программу циклит из-за того, что i не увеличивается, если мы вышли из цикла по "не-символу".


Угу, точно, спасибо! Просто привык такие вещи через цикл с постусловием делать (там i точно увеличивается), а тут что-то не подумал. :rolleyes:]]> Eiden Pascal https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=295003 Sat, 07 Feb 2004 07:41:04 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=295003
Цитата
Eiden, 4.02.04, 01:13
If I = Length(Source) Done := True;

надо заменить на
    If I = Length(Source) Then Done := True Else Inc(I);

ЗЫ: Опять Then пропустил. Ну это не страшно.]]> vesper1 Pascal https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=294919 Fri, 06 Feb 2004 20:23:50 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=294919 Цитата
Temp:='' ----Непонятно что присваивается??


присваивается пустая строка, то есть ничего. Переменная типа String (строка) как бы обнуляется.

Как программу циклит?]]> Eiden Pascal https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=294883 Fri, 06 Feb 2004 18:47:57 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=294883 Юлия Pascal https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=293518 Wed, 04 Feb 2004 20:57:55 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=293518
    const
      prepen=[';',':','!','?',',','.',' ','"','-'];
    var
      s:string;
      p,o:byte;
    begin
      write('Введите предложение: ');
      readln(s);
      p:=length(s);
      repeat
        if s[p] in prepen then dec(p) else
        begin
          o:=p;
          while (p>0) and not (s[p] in prepen) do dec(p);
          if o-p=5 then writeln(copy(s,p+1,5));
        end;
      until p=0;
    end.
]]> Some1 Pascal https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=293493 Wed, 04 Feb 2004 20:00:50 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=293493
Программу почему то циклит, можете кто-то показать хоть пример как надо вводить предложение!!!
Может быть я не так ввожу!!!!!!?? :huh:]]> Юлия Pascal https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=293484 Wed, 04 Feb 2004 19:38:50 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=293484 Мы смотрим в строке символы. Если текущий символ - буква слова, то начинаем искать все последующие буквы, пока они не кончатся, и очередная, которую мы проверим не станет "небуквой". Тогда слово кончилось. Мы выясним его длину, и если она подходит условию, то увеличим специальный счётчик, который считает такие слова. Ну а дальше опять проверяем все символы что идут далее. Если мы находим один из символов, который буква, то повторяем всё заново.

Добавлено в :
Разделителем для слов является набор символов - разделителей. В нашем примере это переменная паскаля, типа set - тоесть набор символов. В ней заключён набор разделителей вроде точки. Пробела, запятой. Посмотри в тексте программы. Так вот в процессе проверки мы сравниваем каждый символ с этим набором. Если он находится в этом наборе то делаем одни действия, если нет, то другие (Читай выше).]]> Some1 Pascal https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=293445 Wed, 04 Feb 2004 18:43:09 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=293445 Юлия Pascal https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=293428 Wed, 04 Feb 2004 18:25:55 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=293428 Eiden Pascal https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=293328 Wed, 04 Feb 2004 16:16:45 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=293328 Юлия Pascal https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=293056 Wed, 04 Feb 2004 09:26:01 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=293056 Цитата
Then забыл

Неудивительно, я теперь только на C++ кодю :) Хорошо хоть в скобки не беру условие (хотя разницы никакой).

Цитата
Имхо лучше проверять на ['A'..'Z','a'..'z'] и без not. А вдруг там есть длинное число, скажем 100000? Тогда оно выведется.


Да, согласен. Но тогда уж и на 'А'..'Я','а'..'п','р'..'я'.

В итоге в коде исправляем две строчки:

    Syms = ['A'..'Z','a'..'z','А'..'Я','а'..'п','р'..'я']


    While (Source[I] in Syms) And (I <= Length(Source)) Do


Ну про тот Then не забыть :)]]> Eiden Pascal https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=292950 Wed, 04 Feb 2004 05:47:31 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=292950 Цитата
Eiden, 4.02.04, 01:13
If I = Length(Source) Done := True;

Then забыл :)

Цитата
Eiden, 4.02.04, 01:13
While (Not (Source[I] in Syms)) And

Имхо лучше проверять на ['A'..'Z','a'..'z'] и без not. А вдруг там есть длинное число, скажем 100000? Тогда оно выведется.
Вроде все.]]> vesper1 Pascal https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=292872 Tue, 03 Feb 2004 21:13:08 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=292872 Если учесть, что исходная строка читается с клавиатуры, то
     
    Program zadacha;
     
    Const
     Syms = [';','.',',',' ',':','-'];
     
    Var
     Source, Temp : String  ;
     I            : Byte    ;
     Done         : Boolean ;
     
    Begin
     Write('Enter string: ');
     ReadLn(Source);
     Done := False;
     I := 1;
     Temp := '';
     Repeat
      While (Not (Source[I] in Syms)) And (I<=Length(Source)) Do
       Begin
        Temp := Temp + Source[I];
        Inc(I);  
       End;
      If I = Length(Source) Done := True;
      If Length(Temp) > 5 Then WriteLn(Temp);
      Temp := '';
     Until Done;
    End.


Хм, не так муторно, как думал :)
Проверяйте, мож где ошибся.]]> Eiden Pascal https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=292865 Tue, 03 Feb 2004 20:51:02 +0000 Как найти слова в строке? https://forum.sources.ru/index.php?showtopic=44693&view=findpost&p=292865 Юлия Pascal