Exercice: Chaines de caractères Tautogramme

Un "tautogramme" est une chaîne dont chacun de ses mots commence par la même lettre (sans
distinction entre majuscule et miniscule).

Exemple : la chaîne "Le lion lape le lait lentement" est un "tautogramme"

Ecrire un programme, permettant de saisir une chaîne de caractères composée uniquement de
lettres et d'espaces (on suppose que deux mots consécutifs sont séparés par un seul espace); puis
d'afficher un message indiquant si cette chaîne est "tautogramme" ou non.

def fn tuto(ch:chaine):booleen
resultat=tuto
tuto=[tuto<-- vrai]
c<--majus( ch[1])
tq pos(' ',ch)<>0 faire
x<-- pos(' ',ch)
si majus(ch[x+1])<>c alors tuto<-- faux
sinon efface(ch,x,1)
fin si
fin tuto


g utilise la proc efface predefini car on a une fct donc la chaine sera pas modifiee lors de ce traitement