Форум программистов, компьютерный форум, киберфорум
Наши страницы
Prolog
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
SKyzZz
2 / 2 / 4
Регистрация: 13.02.2011
Сообщений: 163
1

Вывести буквы, которых в строке нет.

01.04.2012, 19:23. Просмотров 750. Ответов 1
Метки нет (Все метки)

Вывести на экран строчные латинские буквы, которых в строке нет.

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
predicates
    nondeterm a(char,string).                 
    nondeterm b(string,string).               
    nondeterm r.
clauses 
    a(CH,STR):-frontchar(STR,H,_),H=CH.                                  
    a(CH,STR):-frontchar(STR,H,OST),H<>CH,a(CH,OST).        
    b(_,"").
    b(S,STR):-frontchar(STR,M,OST2),a(M,S),b(S,OST2).           
    b(S,STR):-frontchar(STR,M,OST2),not(a(M,S)),write(M),b(S,OST2).         
    r:-S="abcdefjhklmnopqastuywxvz",write("In: "),readln(STR),b(S,STR).         
goal
    r.
если можете, напишите свою версию или помогите доработать!
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.04.2012, 19:23
Ответы с готовыми решениями:

Поиск самой популярной буквы в заданной строке [SWI]
Подскажите пожалуйста решение этой задачи, буду очень признателен. Желательно...

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

Turbo Prolog. Нахождение гласной буквы, чаще всего встречающейся в строке
Всем привет. Есть код, который ищет все гласные в строке, но что-то не могу...

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

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

1
Грымзик
2477 / 1454 / 34
Регистрация: 14.09.2009
Сообщений: 2,742
02.04.2012, 13:27 2
r:-S="abcdefghijklmnopqrstuvwxyz",write("In: "),readln(STR),b(STR,S),nl.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.04.2012, 13:27

В строке найти чётные слова, в которых нет удвоенной буквы "и" и вывести эти слова в новую строку
Задать произвольную строку символов. Группу символов, разделенную с одной или с...

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

Есть текст надо вывести буквы которых в тексте нет
Есть текст надо вывести буквы которых в тексте нет. Никак не получается всю...


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

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

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