🚀 go-pugleaf

Santiago Romero wrote:

> 
>  (Tampoco me vendr�a mal una lista en texto plano de todas
>  las s�labas diferentes que existen).
> 

Este es un programa muy muy (muy!) simple en pascal que genera 
practicamente todas las silabas en espa�ol... falta ponerle casos 
especiales como diptongos y el tratamiento especial de g y q.

Cortar a partir de aqui: =========>
program silabas;

const
    vocales : string = 'aeiou';
    consonantes : string = 'bcdfghjklmn�pqrstvwxyz';
    consonantes_post : string = 'bcdfglmnprstxz';
    consonantes_ch : string = 'c';
    consonantes_cl : string = 'bcfpt';
    consonantes_cr : string = 'bcdfgprt';
    
var
    i,j,k : integer;            

begin
    { Silabas de una sola vocal }
    for i:=1 to length(vocales) do
        writeln(vocales[i]);
    { Silabas normales ba mo ... }
    for i:=1 to length(vocales) do
        for j:=1 to length(consonantes) do
        writeln((consonantes[j]+vocales[i]));
    { Silabas de vocal antes de consonante ap er ex ... }
    for i:=1 to length(vocales) do
        for j:=1 to length(consonantes_post) do
            writeln((vocales[i]+consonantes_post[j]));
    { Silabas consonante+vocal+consonante car gen ... }
    for i:=1 to length(vocales) do
        for j:=1 to length(consonantes_post) do
            for k:=1 to length(consonantes) do      
                writeln((consonantes[k]+vocales[i]+consonantes_post[j]));
    { Silabas consonante+h+vocal cha ... }
    for i:=1 to length(vocales) do
        for j:=1 to length(consonantes_ch) do
            writeln((consonantes_ch[j]+'h'+vocales[i]));
    { Silabas consonante+l+vocal cla ... }
    for i:=1 to length(vocales) do
        for j:=1 to length(consonantes_cl) do
            writeln((consonantes_cl[j]+'l'+vocales[i]));
    { Silabas consonante+r+vocal cra ... }
    for i:=1 to length(vocales) do
        for j:=1 to length(consonantes_cr) do
            writeln((consonantes_cr[j]+'r'+vocales[i]));
    { Silabas consonante+h+vocal+consonante char ... }
    for i:=1 to length(vocales) do
        for j:=1 to length(consonantes_ch) do
            for k:=1 to length(consonantes_post) do
                writeln((consonantes_ch[j]+'h'+vocales[i]+consonantes_post[k]));
    { Silabas consonante+l+vocal+consonante clan ... }
    for i:=1 to length(vocales) do
        for j:=1 to length(consonantes_cl) do
            for k:=1 to length(consonantes_post) do
                writeln((consonantes_cl[j]+'l'+vocales[i]+consonantes_post[k]));
    { Silabas consonante+r+vocal+consonante trac ... }
    for i:=1 to length(vocales) do
        for j:=1 to length(consonantes_cr) do   
            for k:=1 to length(consonantes_post) do
                writeln((consonantes_cr[j]+'r'+vocales[i]+consonantes_post[k]));
end.

<=============== Hasta aqui

Si prefieres que postee la salida del programa (la lista de silabas), dilo, 
no la he puesto de primeras por si preferias retocar tu la salida...

>  saludos!
> 
Igualemente!

-- 
=============================================================================
saiyine @ SPAM NO clubdelphi.com || http://clubdelphi.com/saiyine
Programador, centrocampista ofensivo y usuario registrado de linux n� 215402
SISTEMA k6ii-350 360ram 46G-Mdk8 px121032bp
SISTEMA k7-700 64ram 15G-ME hp040224
PYTHONS:What's your favourite colour?