hg S’enregistrer Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , vous devez
 inscrire sur notre forum a partir d'ici
   NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
 
forum d'aide informatique : internet, réseau, programmation informatique ...
exercices pascals corrigés
 
 
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 715
Masculin
Point(s): 5 484
Moyenne de points: 0

Posté le: Mar 8 Fév - 15:18 (2011)    Sujet du message: exercices pascals corrigés Répondre en citant

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

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



solution

program tautogram;
uses wincrt;
var
ch:string;



procedure saisie (var s:string);
var
i:integer;
begin;
repeat
write('saisir une chaine de caractère : ');
readln(s);
i:=1;
while (upcase(s[i]) in ['A'..'Z']) or(s[i]=' ')do
i:=i+1;
until i>length(s);
end;



function verif (s:string):boolean;
var
i:integer;
te:boolean;
c:char;

begin
te:=true;
if s[1]<>' ' then c:=s[1]
else c:=s[2];
i:=0;
repeat
i:=i+1;

if s[i]=' ' then if s[i+1]<>c then te:=false ;
until (te=false ) or (i=length(s));
verif:=te;
end;


begin
saisie (ch);
if verif(ch)=true then writeln(ch,' est une tautogram ')
else writeln(ch ,' n''est pas un tautogram ');
end.


 
Revenir en haut
Publicité






Posté le: Mar 8 Fév - 15:18 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation