hg Register 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 Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 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 ...
alogorithme de recursivité
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> Aidez-moi
hg Previous topic :: Next topic   hd
Author Message
doudou


Offline

Joined: 10 Sep 2010
Posts: 13
Féminin
Point(s): 14
Moyenne de points: 0

Posted: Sun 5 Dec - 21:16 (2010)    Post subject: alogorithme de recursivité Reply with quote

salut
il me demande d'ecrire un algorithme de module récursif permettant de vérifier si un entier
donné est multiple de 5 en utilisant la méthode de différence
pouvez vs m'aider svp ?


 
Revenir en haut
Publicité






Posted: Sun 5 Dec - 21:16 (2010)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Mon 6 Dec - 21:31 (2010)    Post subject: alogorithme de recursivité Reply with quote

program multiple;
uses wincrt;
var n:integer;

function test(n:integer):boolean;
begin
if n<5 then
test:=false
else
if n=5 then
test:=true
else test:=test(n-5);
end;

begin
writeln('Donner un entier positif');
repeat
readln(n);
until(n>0);
if test(n) then
writeln(n,' est multiple de 5')
else
writeln(n,' n''est pas multiple de 5');
end.


 
Revenir en haut
doudou


Offline

Joined: 10 Sep 2010
Posts: 13
Féminin
Point(s): 14
Moyenne de points: 0

Posted: Mon 6 Dec - 22:07 (2010)    Post subject: alogorithme de recursivité Reply with quote

Merci bien c gentil 

 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Mon 6 Dec - 22:09 (2010)    Post subject: alogorithme de recursivité Reply with quote

DE RIEN ET BIENVENU  Okay Okay Okay

 
Revenir en haut
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> Aidez-moi All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Cookies | Charte | Conditions générales d'utilisation