Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Recomandare centrala termica apar...

samsung Xcover 5 Nu mai vrea

Telefon de budget pentru filme 10...

Recomandare serviciu / firma recu...
 La mulți ani @Piniuli!

Pret inghetata corso kaufland?

La multi ani @Constantin si Elena...

La mulți ani @Ion_Bumbu!
 Obiecte vechi și inutile car...

Mentenanta Acoperis

Cheder deteriorat , zgariat, cum ...

Laptop HP 15-AF001NQ, AMD E1-6015...
 Blat de bucatarie lungime 4,60 m

Termostat incalzire si racire

Configurare retea cu modem Vodafo...

Curtea Penala Internationala soli...
 

Verificare cod Prolog pentru despărțirea în silabe a cuvintelor

- - - - -
  • Please log in to reply
1 reply to this topic

#1
qwzky

qwzky

    New Member

  • Grup: Members
  • Posts: 10
  • Înscris: 17.08.2009
Salutare! Aș vrea să pot utiliza acest cod. L-am găsit pe un site random(ly) și sunt curios. Am găsit niște site-uri pentru rulare, dar peste tot apar erori. Eu nici măcar începător nu sunt într-ale codingului, mă interesează doar să pot introduce cuvinte în aplicație:

:- set_prolog_flag(verbose,silent).
:- prompt(_, '').
:- use_module(library(readutil)).

main:-
process,
halt.

process:-
/* domains
listac=char*
predicates
vocala(char)
consoana(char)
string2list(string,listac)
membru(char,listac)
afiseaza(listac)
diftong(char,char)
hiat(char,char)
grupexceptie(listac)
desparte(listac,listac)
run
clauses
membru(X,[X|_]) if !.
membru(X,[_|T]) if membru(X,T).
vocala('a'). vocala('e'). vocala('i').
vocala('u'). vocala('o'). vocala('y').
consoana(X) if not(vocala(X)).
diftong('a','i').
diftong('e','a').
diftong('o','a').
diftong('y','a').
diftong('e','u').
hiat('a','e').
hiat('a','i').
hiat('o','e').
hiat('i','e').
string2list("",[]) if !.
string2list(S,[H|T]) if frontchar(S,H,R),string2list(R,T).
afiseaza([]) if nl, !.
afiseaza([H|T]) if write(H), afiseaza(T).
grupexceptie(['l','p','t']).
grupexceptie(['m','p','t']).
grupexceptie(['n','c','t']).
grupexceptie(['n','c','s']).
grupexceptie(['n','d','v']).
grupexceptie(['r','c','t']).
grupexceptie(['r','t','f']).
grupexceptie(['s','t','m']).
grupexceptie([C1,C2]) if membru(C1, ['b','c','d','f','g','h','p','t','v']),membru(C2,['l','r']).
desparte([],[]) if !.
desparte([X],[X]) if !.
desparte([X,Y],[X,Y]) if vocala(X), vocala(Y), diftong(X,Y),!.
desparte([X,Y],[X,'-',Y]) if vocala(X), vocala(Y), hiat(X,Y),!.
desparte([X,Y],[X,Y]) if vocala(X), consoana(Y),!.
desparte([X,Y],[X,Y]) if consoana(X), vocala(Y),!.
desparte([X|T],[X|L]) if consoana(X), desparte(T,L).
% regula 1 si 1b
desparte([X,Y,Z|T],[X,'-',Y|L]) if vocala(X), consoana(Y), vocala(Z),desparte([Z|T],L), !.
% regula 1a
desparte([X,Y|T],[X|L]) if vocala(X), vocala(Y), diftong(X,Y), desparte([Y|T],L).
% regula 1c
% ch etc.
% regula 2 exceptiile
desparte([V1,C1,C2,V2|T],[V1,'-',C1,C2|L]) if grupexceptie([C1,C2]), desparte([V2|T],L),!.
% regula 2
desparte([V1,C1,C2,V2|T],[V1,C1,'-',C2|L]) if desparte([V2|T],L).
% regula 3
% intai exceptiile
desparte([V1,C1,C2,C3,V2|T],[V1,C1,C2,'-',C3|L]) if grupexceptie([C1,C2,C3]), desparte([V2|T],L),!.
% apoi regula
desparte([V1,C1,C2,C3,V2|T],[V1,C1,'-',C2,C3|L]) if desparte([V2|T],L).
% regula 4
desparte([X,Y|T],[X,'-'|L]) if vocala(X), vocala(Y), hiat(X,Y), desparte([Y|T],L).
run if write("Dati cuvantul: "), readln(Cuvant),
string2list(Cuvant,Lista), afiseaza(Lista), nl, desparte(Lista,Silabe), afiseaza(Silabe).
goal
run */
true.

:- main.


Edited by qwzky, 02 January 2022 - 02:00.


#2
r3ddr

r3ddr

    Active Member

  • Grup: Members
  • Posts: 1,903
  • Înscris: 29.11.2001
asta e tema la facultate? Posted Image

Anunturi

Neurochirurgie minim invazivă Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate