hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg 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, 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 ...
Paire / Impaire
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie 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 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Ven 26 Fév - 15:07 (2010)    Sujet du message: Paire / Impaire Répondre en citant

PublicitéSupprimer les publicités ?
Ecrire un programme pascal qui permet de tester si un entier donné est paire ou impaire




Code:
program pair_recurif;
 uses wincrt;
var
   n:integer;
    T:boolean;
     rep:string;
function paire(n:integer):boolean;
 begin 
  if (n=0) then paire:=true
   else if(n<0) then paire:=false
    else paire:=paire(n-2);
 end;
begin
writeln('************** Paire et imapire recursive ***************');
repeat
writeln('Entrer un entier que voulez le tester');
 readln(n);
 T:=paire(n);
  if(T=true) then
  writeln('Entier paire')
   else writeln('Entier impaire');
   writeln('Vous voulez teste un autre entier');
    writeln('oui ou non?');
    readln(rep);
until ((rep='non') or (rep='NON') or (rep='N') or (rep='n'));
end.




 
Revenir en haut
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Mer 3 Mar - 08:12 (2010)    Sujet du message: Paire / Impaire Répondre en citant

Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:26 (2016)    Sujet du message: Paire / Impaire

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie 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