Contando letras vocales que contiene una palabra. Un ejercicio de programación con WinLogo (LOGO)

; ---------------------------------------------------------
; Recompte de les lletres vocals d'una paraula
;   Llistes (maneig de les estructures de dades)
;    © Joan Aranes Clua, 1998
                CC BY 4.0
; ---------------------------------------------------------
procediment Esbrina.vocals ; procediment principal
  Entrada
  Informa
  Final
fi

procediment Entrada
  anomena.finestra "Text "Paraules
  anomena.finestra "Gràfics "
  fes.mida.finestra "Gràfics [640 480]
  mou.finestra "Text [200 0]
  fes.mida.finestra "Text [200 400]
  esborra.text 
  fes.color.paper 8
  fes.fons 8
  desapareix
  inicia.dibuix
fi

procediment Informa
  esborra.text
  fes.fons.text 8
  fes.color.text 5
  mou.cursor [3 2]
  escriu [Escriu una paraula i et diré] 
  mou.cursor [2 3]
  escriu [quantes vocals té:]
  fes.color.text 10
  fes.fons.text 16
  mou.cursor [3 6]
  posa.a "paraula paraula.llegida
  fes.fons.text 8
  mou.cursor [3 10]
  escriu [La paraula té:] Quantitat.vocals :paraula "vocals
fi

procediment Final
  fes.color.text 5
  mou.cursor [2 15]
  escriu [En vols esbrinar una altra ?]
  mou.cursor [2 16]
  escriu [(Prem s/n)]
  posa.a "c caràcter.llegit
  si :c = "n [Sortida acaba]
  esborra.text
  Esbrina.vocals
fi

procediment Quantitat.vocals :paraula
  si :paraula = " [retorna 0]
  si pertany primer :paraula «
     [A À E É È I Í O Ó Ò U Ú a à e é è i í o ó ò u ú] «
     [retorna 1 + Quantitat.vocals sense.primer :paraula]
  retorna Quantitat.vocals sense.primer :paraula
fi
; ---------------------------------------------------------

% Esbrina.vocals ;exemple d'ús