Conjugaison de verbe du 1er groupe

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 178 fois - Téléchargée 26 fois

Contenu du snippet

Voici un petit alias pour conjuguer vos verbes du 1er groupe.
Pas trop utile, mais juste histoire de taper ds l'originalité.

Source / Exemple :


conjugue {
  if ($1 == $null) { halt }
  if ($2 == $null) { halt }
  set %verbe $1
  set %p $2
  set %verbelen $len(%verbe)
  set %radicverbe $left(%verbe,$calc(%verbelen - 2))
  if (%p = je) { goto je }
  if (%p = tu) { goto tu }
  if (%p = il) { goto il }
  if (%p = elle) { goto elle }
  if (%p = on) { goto on }
  if (%p = nous) { goto nous }
  if (%p = vous) { goto vous }
  if (%p = ils) { goto ils }
  :je
  if ($left(%radicverbe,1) == a) { goto je2 }
  if ($left(%radicverbe,1) == e) { goto je2 }
  if ($left(%radicverbe,1) == o) { goto je2 }
  if ($left(%radicverbe,1) == i) { goto je2 }
  if ($left(%radicverbe,1) == u) { goto je2 }
  else { echo -a je %radicverbe $+ e | goto vide }
  :je2
  echo -a j' $+ %radicverbe $+ e | goto vide
  :tu
  echo -a tu %radicverbe $+ es | goto vide
  :il
  echo -a il %radicverbe $+ e | goto vide
  :elle
  echo -a elle %radicverbe $+ e | goto vide
  :on
  echo -a on %radicverbe $+ e | goto vide
  :nous
  if (g isin %radicverbe) { goto nous2 }
  else { echo -a nous %radicverbe $+ ons | goto vide }
  :nous2
  echo -a nous %radicverbe $+ eons | goto vide
  :vous
  echo -a vous %radicverbe $+ ez | goto vide
  :ils
  echo -a ils %radicverbe $+ ent | goto vide
  :vide
  unset %verbe
  unset %verbelen
  unset %radicverbe
  unset %p | halt
}

Conclusion :


Cela s'utilise /conjugue leverbe lapersonne
par exemple /conjugue scripter je

Voila. @+

A voir également

Ajouter un commentaire Commentaires
Messages postés
5
Date d'inscription
dimanche 26 novembre 2017
Statut
Membre
Dernière intervention
26 novembre 2017

ce code est-il php??
Messages postés
1
Date d'inscription
mardi 1 février 2011
Statut
Membre
Dernière intervention
1 février 2011

kelk1 peut m'aider résoudre mon problème à savoir écrire un algo qui convertit les chiffres en lettres de (0-9) en turbo pascal.
mon adresse est la suivante: jeanmarcedoua@yahoo.fr
Messages postés
274
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
24 août 2004

Kikou :)
Messages postés
261
Date d'inscription
dimanche 6 avril 2003
Statut
Membre
Dernière intervention
12 janvier 2010

kikoo juju4 , c'est ice!
Messages postés
274
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
24 août 2004

Yop ! tu la enfin mi ta source :)

Hehe pti coucou de juju4 :)
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.