Ejercicio de dibujo de formas con WinLogo (LOGO) y empleo de listas (estructuras de datos)

; ---------------------------------------------------------
;    Exercici de dibuix de formes
     (un àncora, en aquest cas) fent ús de llistes
;   
;    © Joan Aranes Clua, 1998
                CC BY 4.0
; ---------------------------------------------------------

procediment Àncora
  inicia.dibuix
  desapareix
  fes.color 13 fes.gruix 2
  posa.a "punts 
    [
      [-10 -58] [-17 -58] [-48 -40] [-50 -50] «
      [-60 -10] [-37 -30] [-43 -30] [-25 -42] [-6 -45] [-3 40] «
      [-45 42] [-40 52] [-2 52] [-2 60] [-15 70] [0 85] [15 70] «
      [2 60] [2 52] [40 52] [45 42] [3 40] [6 -45] [25 -42] «
      [43 -30] [37 -30] [60 -10] [50 -50] [48 -40] [17 -58] «
      [10 -58] [0 -65]
    ] 
no.llapis posa't primer :punts llapis 
fi

procediment Dibuixa
  si :punts = [][posa't [-10 -58] fes.color 1 acaba]
  posa't primer :punts
  posa.a "punts Sense.primer :punts
  Dibuixa
fi
; ---------------------------------------------------------


% Àncora       
% Dibuixa  
% apareix      
% id

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