Сформировать предложение из списка слов

@rita.bobrysheva · Регистрация: 04.05.2010

Студворк — интернет-сервис помощи студентам

Пожалуйста,помогите решить задачку: Для заданного списка строк-слов сформировать строку-предложение, в которую записаны строки-слова списка, разделенные пробелами. Из списка строк-слов в строку-предложение включить только те элементы, в символьной записи которых нет пробелов.

@rrrFer · 26.05.2010, 19:09

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
    el=string
    lst=el*
checkSh(string)               /*ноль если в строке есть пробел*/ 
    inputs(lst)        
    outputs(lst)     
    gum(lst,string,string)
checkSh(S):-
        NOT(frontchar(S,_,_)).
    checkSh(S):-
        frontchar(S,C,S1),
        C<>' ',!, 
        checkSh(S1),!. 
    
    inputs([X|T]):-
        write("ввести элемент? - y/n: "),
        readchar(YN),nl,
        YN<>'n',    
        write("Введи элемент: "),
        readln(X),nl, 
        inputs(T).  
    inputs([]):-
        write("ввод закончен"),nl.  
        
    outputs([]).
    outputs([H|T]):- 
        write(H),nl,
        outputs(T).    
        
    gum([],S,S).
    gum([H|T],S,SS):-
        checkSh(H),
        fronttoken(D,SS," "),
        fronttoken(DD,D,H),
        gum(T,S,DD).
    gum([_|T],S,SS):-
        gum(T,S,SS).
start:-
        inputs(L),
        outputs(L),
        gum(L,S,""),
        write(S).

@rita.bobrysheva · 27.05.2010, 07:08 **[ТС]**

Спасибо большое!
Только программка почему-то не работает

не вводит элементы,пишет No

Добавлено через 1 минуту
она работает на Strawberry???

@rrrFer · 27.05.2010, 07:14

незнаю, я на турбо прологе пишу

Добавлено через 1 минуту
вот код программы полностью:

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
domains     
    el=string
    lst=el*
predicates
 
    checkSh(string)               /*ноль если в строке есть пробел*/ 
    inputs(lst)        
    outputs(lst)     
    gum(lst,string,string)
 
    start
clauses      
 
    checkSh(S):-
        NOT(frontchar(S,_,_)).
    checkSh(S):-
        frontchar(S,C,S1),
        C<>' ',!, 
        checkSh(S1),!. 
    
    inputs([X|T]):-
        write("ввести элемент? - y/n: "),
        readchar(YN),nl,
        YN<>'n',    
        write("Введи элемент: "),
        readln(X),nl, 
        inputs(T).  
    inputs([]):-
        write("ввод закончен"),nl.  
        
    outputs([]).
    outputs([H|T]):- 
        write(H),nl,
        outputs(T).    
        
    gum([],S,S).
    gum([H|T],S,SS):-
        checkSh(H),
        fronttoken(D,SS," "),
        fronttoken(DD,D,H),
        gum(T,S,DD).
    gum([_|T],S,SS):-
        gum(T,S,SS).
 
    start:-
        inputs(L),!,
        outputs(L),
        gum(L,S,""),
        write(S).
goal
    start.

@rita.bobrysheva · 27.05.2010, 07:21 **[ТС]**

а турбо-пролог сильно отличается от strawberry&

Добавлено через 17 секунд
а турбо-пролог сильно отличается от strawberry?

@Грымзик · 27.05.2010, 16:10

Немного переделала прогу rrrFer под клубничный пролог.
y/n вводите без кавычек, а сами строки уже в кавычках.

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
?-start().
 
checkSh(S):-A is split(S," ",1). 
    
    inputs([X|T]):-
        write("vvesti element? - y/n: "),
        read(YN),nl,
        YN==y,    
        write("Vvedi element: "),
        read(X),nl, 
        inputs(T).  
    inputs([]):-
        write("vvod zakonchen"),nl.  
        
    outputs([]).
    outputs([H|T]):- 
        write(H),nl,
        outputs(T).    
        
    gum([],"").
    gum([H|T],S):-
        not(checkSh(H)),
        gum(T,S1),
        S is H+" "+S1.
    gum([_|T],S):-
        gum(T,S).
start():-
        inputs(L),
        outputs(L),
        gum(L,S),
        write(S).

@rita.bobrysheva · 27.05.2010, 18:25 **[ТС]**

Огроменное спасибо!:-)Очень выручаете!!!

@Грымзик · 27.05.2010, 18:30

По-моему стоит в первую очередь rrrFer поблагодарить, основная часть программы его.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@rita.bobrysheva 0 / 0 / 0 Регистрация: 04.05.2010 Сообщений: 20

	Сформировать предложение из списка слов 26.05.2010, 14:44. Показов 1970. Ответов 7 Метки нет (Все метки) Пожалуйста,помогите решить задачку: Для заданного списка строк-слов сформировать строку-предложение, в которую записаны строки-слова списка, разделенные пробелами. Из списка строк-слов в строку-предложение включить только те элементы, в символьной записи которых нет пробелов. 0

@rita.bobrysheva 0 / 0 / 0 Регистрация: 04.05.2010 Сообщений: 20
	27.05.2010, 07:08 [ТС]
	Спасибо большое! Только программка почему-то не работает не вводит элементы,пишет No Добавлено через 1 минуту она работает на Strawberry??? 0

@rita.bobrysheva 0 / 0 / 0 Регистрация: 04.05.2010 Сообщений: 20
	27.05.2010, 07:21 [ТС]
	а турбо-пролог сильно отличается от strawberry& Добавлено через 17 секунд а турбо-пролог сильно отличается от strawberry? 0

@rita.bobrysheva 0 / 0 / 0 Регистрация: 04.05.2010 Сообщений: 20
	27.05.2010, 18:25 [ТС]
	Огроменное спасибо!:-)Очень выручаете!!! 0

@Грымзик 2507 / 1483 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	27.05.2010, 18:30
	По-моему стоит в первую очередь rrrFer поблагодарить, основная часть программы его. 0