Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу Проверка!
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
princesska princesska вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 22.12.2005
По умолчанию Проверка! - 10.01.2006, 23:29

Здравствуйте, подскажите пожалуйста, как написать эту программу, используя предикаты frontstr, concat и т.д.

Проверка
1. Составьте программу, проверяющую, все ли буквы данного слова одинаковы (аааааа)

я дошла да следующего:
1. slovo (Str,P):-
frontstr (1,Str,T,K),
frontstr (1, K,R,Q),
T=R,
concat (T,Q,E),
slovo (E,B)

Короче, застопорилась на пальцах объяснить могу, а написать все правильно нет!!!
Помогите!
Ответить с цитированием
  (#2 (permalink)) Старый
Tinefol Tinefol вне форума
Member
 
Сообщений: 113
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 17.11.2005
По умолчанию 11.01.2006, 00:37

Можно так:

Код:
slovo(String) :- frontstr(1, String, First, _),equaility(String, First)

equality("", _). % Если строчка пустая.
equality(String, Compare):-
    frontstr(1,String, Symbol, Tail),
    Symbol = Compare,
    equality(Tail, Symbol).
Ответить с цитированием
  (#3 (permalink)) Старый
TypucT TypucT вне форума
Member
 
Сообщений: 336
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 28.10.2005
По умолчанию 11.01.2006, 16:17

2Tinefol: для пустой строки прога выдаст fail.

2princesska:
можно и так
Код:
check(""):-!.
check(S):-
        frontchar(S,_,""),!.
check(S):-
        frontchar(S,A,R),
        frontchar(R,A,_),
        check(R).
Ответить с цитированием
  (#4 (permalink)) Старый
Tinefol Tinefol вне форума
Member
 
Сообщений: 113
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 17.11.2005
По умолчанию 11.01.2006, 16:25

TypucT, ну это можно поправить. Я просто не знаю предикатов для работы со строками, поэтому писал с тем, что было в изначальном посте
Ответить с цитированием
  (#5 (permalink)) Старый
princesska princesska вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 22.12.2005
По умолчанию 11.01.2006, 21:45

Огромное спасибо! А не могли бы вы полность написать! Начиная с самого начала: domains, predicates? clauses и т.д. никак не выходит!
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
TypucT TypucT вне форума
Member
 
Сообщений: 336
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 28.10.2005
По умолчанию 11.01.2006, 22:10

Цитата:
Originally posted by princesska
[b]Огромное спасибо! А не могли бы вы полность написать! Начиная с самого начала: domains, predicates? clauses и т.д. никак не выходит!
Нет, т.к. пишу на другом прологе.
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверка Gateway veter48 Сетевые подключения 0 18.02.2012 20:47
Проверка на повторение pavesa Prolog 7 27.11.2010 01:23
Проверка сборки hasat Системный блок 3 13.10.2010 22:25
проверка списка Ferzik Prolog 1 20.05.2010 01:56
Проверка диска Клевер Софт и программы 1 29.04.2008 11:16
Проверка XML XML Schema Grey_leoN XML & WML 0 09.10.2007 18:54
проверка тхт файла Alexej_Fedorov Visual Basic 2 23.07.2007 21:19
Проверка ввода Глупыш Prolog 6 22.10.2005 21:21
проверка Logico Visual Basic 3 06.07.2005 22:04
Проверка себя qwerty Работа 0 12.01.2005 03:50
Проверка IP на существование eduard1987 Офтопик 1 16.01.2004 16:32
Проверка IP TroubleMaker PHP 5 27.06.2003 16:21



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов