Форум программистов, компьютерный форум, киберфорум
Наши страницы
Prolog
Войти
Регистрация
Восстановить пароль
 
INShcherbakov
0 / 0 / 0
Регистрация: 13.12.2014
Сообщений: 13
#1

Во всех словах, оканчивающихся на "ing", замените это окончание на "ed"

08.03.2015, 08:19. Просмотров 380. Ответов 1
Метки нет (Все метки)

Всем привет!
Есть решение задачки (код ниже), но преподаватель сказал, что: "использовать предикат file_str нельзя, т.к. теряете переводы строк."
Кто знает, как изменить, чтоб исправить данную ошибку?
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
/*процедура во всех словах, оканчивающихся на "ing", меняет это окончание на "ed"*/
/*предикаты*/
predicates
    File(string)
    ingToEd(string,string,string)
    noIng(string,string)
    change(string,string)
/*внутрение цели*/
goal
    File("t.txt").
/*факты и правила*/
clauses
    /*правило: если файл существует, то его открываем, меняем окончания и сохраняем*/
    File(F):-existfile(F),
            file_str(F,S1),
        noIng(S1,S2),
        file_str(F,S2).
    /*правила изменения окончания*/
    noIng(S,Sout):- fronttoken(S,Tok,Rest), !, 
        noIng(Rest,So), 
        change(Tok,T),
        concat(" ",So,Sou), 
        concat(T,Sou,Sout).
    noIng(_,"").
    change(A,B):-ingToEd(A,"",B),!.
    change(X,X).
    ingToEd("ing",S,Sout):-!,concat(S,"ed",Sout).
    ingToEd(A,B,Out):- frontstr(1,A,C,R), 
        concat(B,C,D), 
        ingToEd(R,D,Out).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.03.2015, 08:19
Ответы с готовыми решениями:

Подсчитать в слове все сочетания "нн". Считать, что в последовательности "ннн" "нн" встречается один раз
напишите, пожалуйста, программу подсчета в слове всех сочетаний "нн". считать,...

Определить правила "призывник", "запасник", "отсрочка"...[GNU Prolog 1.3.1]
GNU Prolog 1.3.1! Задание 1 призывник(Х) – здоровые мужчины в возрасте от 18...

Написать программу, выясняющую, есть ли в слове X буква "а", стоящая на нечётном месте после буквы "к""
Я нашла похожую на форуме, но переделать под свой вариант не очень получается,...

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

Построить программу "сжать", назначение которой - преобразование английских слов в их "звуковой" код
Всем привет . Не могли бы помочь решить данную задачу ?) Построить программу...

1
INShcherbakov
0 / 0 / 0
Регистрация: 13.12.2014
Сообщений: 13
15.03.2015, 17:36  [ТС] #2
Даже попробовать никто не хочет?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.03.2015, 17:36

Написать программу, выясняющую, есть ли в слове X буква "а", стоящая на нечётном месте после буквы "к"
Написать программу, выясняющую, есть ли в слове X буква "а", стоящая на...

Предикаты "чет" и "нечет", определяющие чётность и нечётность длины списка
3.Определить предикаты "чет" и "нечет" определяющие чётность и нечётность длины...

Prolog - заменить в слове X все буквы "а" на сочетание "ку"
1)Напишите программу замены в слове X всех букв "а" на сочетание "ку". ...


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

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

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