0 / 0 / 1
Регистрация: 18.12.2011
Сообщений: 48
1

Удалить из строки слова, длина которых меньше заданной

22.12.2011, 10:55. Показов 1992. Ответов 1
Метки нет (Все метки)

Удалить из строки слова, длина которых меньше заданной.
Prolog
1
2
3
4
5
6
7
8
PREDICATES
 razd(string,integer,string)
 check(string,integer,string)
CLAUSES
/* разделяем строку на слова */ 
 razd("",L,New).
 razd(Str,L,New):-fronttoken(Str,Tpsl,Rost),check(Tpsl,L,New),razd(Rost).
 check(Slovo,Dlina,New):-str_len(Slovo,Len),Len>Dlina,concat(Slovo,New,New).
Хочу реализовать так, делим строку на слова, если длина меньше заданной - пропускаем, если больше добавляем в новую строку. Чего то не хватает.

Запускается у меня так:
Prolog
1
2
3
4
5
6
7
8
makewindow(4,7,7,"Udalenie iz stroki",4,10,20,50),
             shiftwindow(4),
             write("Vvedite stroky:"),nl,
             readln(S),nl,
             write("Vvedite dliny: "),readint(L),nl,
             New="",razd(S,L,New),write(New),nl,
             write("Press any key"),readchar(_),
             removewindow.
Окно просто закрывается...
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2011, 10:55
Ответы с готовыми решениями:

Удалить из входной строки все слова длина которых меньше L символов
Здравствуйте пользователи этого форума, мне нужна ваша помощь. Напишите программу на языке...

Из заданной строки удалить слова, длина которых меньше указанной.
Помогите написать программу которая из заданной символьной строки удаляет слова длина которых...

Из заданной строки символов удалить слова, длина которых меньше указанной пользователем
Из заданной строки символов удалить слова, длина которых меньше указанной пользователем int n,...

Переписать содержимое файла А в файл В. Удалить слова,длина которых меньше заданной
Завтра мне задачу сдавать.Помогите плиз Условие: Дан текстовый файл А.Переписать содержимое файла...

1
2502 / 1476 / 37
Регистрация: 14.09.2009
Сообщений: 2,740
22.12.2011, 18:15 2
Как это вообще могло запуститься, если Вы вызываете razd(Rost).
Prolog
1
2
3
4
5
6
7
8
9
10
11
 PREDICATES
 razd(string,integer,string)
 CLAUSES
/* ðàçäåëÿåì ñòðîêó íà ñëîâà */ 
 razd("",_,"").
 razd(Str,L,New):-fronttoken(Str,Slovo,Rost),str_len(Slovo,Len),Len>L,!,
    razd(Rost,L,New1),concat(Slovo," ",Slovo1),concat(Slovo1,New1,New).
 razd(Str,L,New):-fronttoken(Str,_,Rost),razd(Rost,L,New).  
 
 GOAL
 razd("moroz i solnce - den chudesnii",3,Ans).
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2011, 18:15

Вывести все слова из строки длина которых меньше заданной
Составить программу посимвольной обработки,без всяких функций из strin.h(!!!), с помощью puts и...

Удалить из файла все слова, длина которых меньше половины длины самого длинного слова второй строки
Переписать текст в файл output.txt, удалив из него все слова, длина которых меньше половины длины...

Удалить из строки все слова, длина которых меньше пяти символов
1. Вывести на экране строку, введенную пользователем, по диагонали. 2. Добавить в строку пробелы...

Удалить из строки все слова, длина которых меньше пяти символов
Удалить из строки все слова, длина которых меньше пяти символов. В строке не используются знаки...

Удалить из строки все слова, длина которых меньше пяти символов
Доброго времени суток, условие в заголовке. Возможно ли добавить символ к строке? #include...

Удалить из строки все слова, длина которых меньше пяти символов
Удалить из строки все слова,длина которых меньше пяти символов.В строке не используются знаки...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru