Liste des Codes
- Afficher sans redondance
- Aire d'un triangle
- Anagrammes
- Calcul de Pi
- Calcul Sinus
- Calculatrice
- Chaîne Dupliqué
- Chaîne aérée
- Chaîne Distincte
- Chaîne Minuscule vers chaîne Majuscule
- Chaines inverses
- Chiffre en Lettre
- Comparaison de deux entiers
- Conversion binaire d'une base binaire a une autre base binaire
- Copier une chaîne
- Cryptage d'une phrase
- Date en lettre
- Divisibilité par 11
- Divisibilité par 13
- Divisibilité par 7
- Eclater un tableau
- Equation de premier degré
- Equation de seconde degré
- Espace superflus
- Exponentiel
- Facteur Premier
- Fréquence d'un caractère
- Grande Somme d'un tableau
- Inéquation de 1er degré
- Insertion a une positon dans un tableaux
- Intersection de deux tableaux
- Inverser un tableau
- Kaprekar
- La plus grande chaîne palindrome
- Le jour d'un date
- Lendemain
- Maximum de trois entiers
- Mention des élevés
- Minimum de deux entiers
- Minimum et Maximum d'un tableau
- Minimum Maximum de deux entiers
- Moyenne de notes
- Moyenne et rang d'une classe
- Nombre cubique
- Nombre de jours par mois
- Nombre parfait
- Nombre Romain vers Nombre Décimal
- Nombre ROND
- Nombres Amis
- Nombres Premiers
- Occurrence d'un caractère
- Occurrence d'un mot
- Palindrome
- Parité
- PGCD Euclide
- PGCD par Différence
- Position d'une chaîne
- PPCM
- PPCM et PGCD
- Puissance X par Y
- Pyramide
- Pythagore
- Racine Carré
- Ranger un tableau
- Recherche d'un élément majoritaire
- Recherche Dichotomique dans un tableaux
- Recherche séquentielle dans un tableaux
- Regrouper un tableau
- Renverser une phrase
- Sablier
- Sans Redondance
- Somme des chiffres d'un entier
- Somme, Produit et Moyenne Arithmétique
- Suite de Fibonacci
- Suite mystere
- Symétrie d'un tableau
- Totalogram
- Touche de clavier
- Transpose d'une matrice
- Triangle de Pascal
mercredi 31 août 2016
07:03
-
- Program Totalogram;
- Var ch:string;
- (**************************************)
- Function lettre_maj_esp (ch:string):boolean;
- Var i:integer;
- test:boolean;
- Begin
- i:=1;
- test:=true;
- While (i<=length(ch)) and (test) do
- if ch[i] in ['A'..'Z',' '] Then i:=i+1
- Else test:=false;
- lettre_maj_esp:=test;
- End;
- (************************************)
- Function totalogramme (ch:string):boolean;
- Var p:integer;
- test:boolean;
- Begin
- ch:=ch+' ';
- Repeat
- p:=pos(' ',ch);
- test:=ch[1]=ch[p-1];
- delete(ch,1,p);
- Until (test=false) or (ch='');
- totalogramme:=test;
- End;
- (**************** P.P ******************)
- Begin
- Repeat
- Writeln('Saisir une chaîne en majuscule :');
- Readln(ch);
- Until lettre_maj_esp(ch);
- If totalogramme(ch) Then writeln('totalogramme')
- Else writeln('non totalogramme');
- End.
Inscription à :
Publier les commentaires
(Atom)
0 commentaires:
Enregistrer un commentaire