Форум программистов, компьютерный форум, киберфорум
Наши страницы
Prolog
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
rrrFer
Заблокирован
1

Дана строка. Вывести на экран слова, внутри которых имеется хотя бы одна буква, с которой слово начинается. [Turbo prolog][есть решение]

03.06.2011, 21:04. Просмотров 1732. Ответов 2
Метки нет (Все метки)

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
predicates
    %!---------------------------------------------------------------------------------------------
    gtwrd(string,string,string,string)  
                                        % i,i,o,o       
                                        %       выделение слова
                                        %       #формат: исходная строка,"", слово, остаток строки
                                        %       #использует: ---
    %!---------------------------------------------------------------------------------------------    
    %!---------------------------------------------------------------------------------------------                                              
    substr(string,string,integer)        
                                        % i,i,i     
                                        %       ищет подстроку в строке, завершается успешно, если подстрока найдена
                                        %       #формат: исходная строка, подстрока,0
                                        %       #использует: ---
    %!---------------------------------------------------------------------------------------------
    p(string)                             %i
    
goal
    write("String: "),
    readln(S),
    p(S),
    readint(_).                            %задержка(ожидание <ENTER>)
clauses
 
    substr(_,"",_):-!.                    %подстрока закончилась - значит найдена
    substr("",_,_):-!,fail.                %если же ищем в пустой строке - то завершаем неудачей
    substr(S,SS,_):-                    %иначе:
        frontchar(S,SC,S_),                %выделяем первый символ строки
        frontchar(SS,SC,SS_),            %если он совпал с первым символом подстроки
        substr(S_,SS_,1).                %проверям рекурсивно остатки строк
    substr(S,SS,0):-                    %иначе    
        frontchar(S,_,S_),                %получаем остаток строки от выделения символа
        substr(S_,SS,0).                %ищем подстроку в этом остатке
        
    gtwrd(S,W,E,T):-
        frontchar(S,C,S1),                %выделяю символ
        NOT(C=' '),                        %если это не пробел
        str_char(SS,C),                    %преобразую символ в строку
        concat(W,SS,R),                    %прикрепляю символ к результату
        gtwrd(S1,R,E,T),!.                
    gtwrd(S,W,W,R):-                    %иначе(если это был пробел) возвраю результат
        frontchar(S,_,R).
    gtwrd(S,W,W,S).
    
    p(""):-!.                            %в пустой строке нечего искать
    p(S):-
        gtwrd(S,"",W,SS),                %выделяю слово W, и остаток строки SS
        frontchar(W,C,SSS),                %выделяю первый символ слова и остаток от выделения слова SSS
        str_char(SC,C),                    %преобразую его в строку
        substr(SSS,SC,0),                %ищу символ в остатке строки
        write(W),nl,                    %если найден - вывожу слово
        p(SS),!;                        %и продолжаю поиск слов в остатке строки
        gtwrd(S,"",_,SS),                %иначе, получаю опять получаю остток строки от выделения слова
        p(SS),!.                        %и продолжаю поиск в этом остатке(без вывода текущего слова)
5
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.06.2011, 21:04
Ответы с готовыми решениями:

Дана строка. Указать те слова в которых есть хотя бы одна буква "k"
Помогите решить задачу: Дана строка. Указать те слова в которых есть хотя бы одна буква &quot;k&quot;. Я...

Дана строка. Указать те слова в которых есть хотя бы одна буква "k"
Помогите решить задачу: Дана строка. Указать те слова в которых есть хотя бы одна буква &quot;k&quot;. Я...

Дана строка, состоящая из слов. Удалить из строки все слова, в которых хотя бы одна буква встречается дважды
Delphi 6. Нужно с визуализацией, вывод результата в форму.

Вывести те слова, у которых есть хотя бы одна буква «а», стоящая рядом с «м»
Вывести те слова, у которых есть хотя бы одна буква «а», стоящая рядом с «м».

Дана строка. Вывести на экран те слова строки, где встречается хотя бы одна цифра
оформить в виде процедуры и функции

2
TimoshkaBY
0 / 0 / 0
Регистрация: 04.06.2011
Сообщений: 3
05.06.2011, 00:26 2
Отлично, как раз искал, спасибо большое!
0
Napalm256
2 / 2 / 0
Регистрация: 18.08.2011
Сообщений: 17
30.10.2011, 23:42 3
спасибо за пример
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.10.2011, 23:42

Дана строка, состоящая из слов, разделенных пробелом. Определить количество слов, в которых есть хотя бы одна буква "а", или "А"
Дана строка, состоящая из слов, разделенных пробелом. Определить количество слов, в которых есть...

Дана строка S. Вывести на экран первое слово, которое начинается с заданной буквы
Дана строка S. Вывести на экран первое слово, которое начинается с заданной буквы

Дана строка. В ней есть одна открывающая и одна закрывающая скобка. Вывести на экран все символы, расположенные между ними
Дана строка.В ней есть одна открывающаяся скобка и одна закрывающаяся скобка.Вывести на экран все...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru