Exemplu - Facultatea de Electrotehnică şi Electroenergetică
Exemplu - Facultatea de Electrotehnică şi Electroenergetică
Exemplu - Facultatea de Electrotehnică şi Electroenergetică
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
clauses % continuare<br />
sir_cuvant("", [ ] ).<br />
sir_ cuvant(S, ( , [C| [ | Lista]):- ])<br />
frontchar(S, C, Rest_sir),<br />
sir_cuvant(Rest_sir, Lista).<br />
divi<strong>de</strong>(Inceput divi<strong>de</strong>(Inceput, [L1 [L1, L2 L2, L3| Rest] Rest], Silaba1 Silaba1, [ L2 L2, L3| Rest]) :vocala(L1),<br />
consoana(L2), vocala(L3),<br />
conc(Inceput, [L1], Silaba1).<br />
divi<strong>de</strong>(Inceput, ( p [ [L1, L2, L3, L4| | Rest], ] Silaba1, [L3,L4| [ | Rest]) ]) if<br />
vocala(L1), consoana(L2), consoana(L3), vocala(L4),<br />
conc(Inceput, [L1, L2], Silaba1).<br />
divi<strong>de</strong>(Inceput, [Litera| Rest], Sil1, Sil2) if<br />
conc(Inceput conc(Inceput, [Litera] [Litera], Prelucrat) Prelucrat),<br />
divi<strong>de</strong>(Prelucrat, Rest, Sil1, Sil2), !.<br />
divi<strong>de</strong>( _, [ ], [ ], [ ]).<br />
repeta.<br />
repeta:- repeta.<br />
goal /* citeşte cuvinte <strong>şi</strong> le <strong>de</strong>sparte în silabe */<br />
goal / citeşte cuvinte <strong>şi</strong> le <strong>de</strong>sparte în silabe /<br />
repeta, write("cuvant = "), readln(C),<br />
sir_cuvant(C, Lista_car),<br />
divi<strong>de</strong>( [ ] , Lista_car, S1, S2),<br />
sir_cuvant(Sil1, S1), sir_cuvant(Sil2, S2),<br />
write(Sil1, "-", Sil2), nl, fail.
Change language