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 ...
Exercice: Nombre premier ( Primalité )
 
 
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 -> Récursivité
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: Mer 26 Nov - 13:14 (2008)    Sujet du message: Exercice: Nombre premier ( Primalité ) Répondre en citant

PublicitéSupprimer les publicités ?
Nombre Premier 



Ecrire un programme modulaire qui permet de saisir un entier positif N puis il vérifie s’il est premier ou non. Vous devez utilisez un module récursif.
  * Traduire le programme en PASCAL


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

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

Posté le: Mer 26 Nov - 13:15 (2008)    Sujet du message: Exercice: Nombre premier ( Primalité ) Répondre en citant

SOLUTION

program Exercice_15 ;
uses  wincrt ;
var
n:integer ;
 
{ ============  CORPS DE LA PROCEDURE SAISIR  ===================}
 
procedure  saisir (var n:integer);
begin
writeln('donner un entier');
readln(n);
End;
 
{ ============  CORPS DE LA FONCTION PREMIER  ===================}
 
function premier(n,d,p:integer):boolean;
begin
if (n=1) and (p=0) then
premier:=true
else if (p=0) and (d>1) then
  if n mod d=0 then
   begin
     p:=p+1;
     premier:=false
   End
   else premier:=premier(n,d-1,p);
End;
 
{ ============  CORPS DE PROGRAMME PRINCIPAL ===============}
 
begin
saisir(n);
if premier(n,(n div 2),0) then
writeln(n,' est un nombre premier')
else
writeln(n,' n''est pas un nombre premier');
End.
 


 
Revenir en haut
HouXm[4]N


Hors ligne

Inscrit le: 02 Déc 2008
Messages: 1
Masculin
Point(s): 18
Moyenne de points: 0

Posté le: Mer 3 Déc - 17:56 (2008)    Sujet du message: Exercice: Nombre premier ( Primalité ) Répondre en citant

merci

 
Revenir en haut
maxmoya


Hors ligne

Inscrit le: 07 Fév 2012
Messages: 1
Masculin
Point(s): 1
Moyenne de points: 0

Posté le: Mar 7 Fév - 15:01 (2012)    Sujet du message: Exercice: Nombre premier ( Primalité ) Répondre en citant

merci Smile ))))))))

 
Revenir en haut
Borhen_bibou


Hors ligne

Inscrit le: 01 Fév 2014
Messages: 2
Masculin
Point(s): 2
Moyenne de points: 0

Posté le: Sam 1 Fév - 06:43 (2014)    Sujet du message: Exercice: Nombre premier ( Primalité ) Répondre en citant

merciiiiiiiiiiiiiiiiiiiiiiiiiii
_________________
Je Suis Comme Je Suis ..Ni Toi, Ni Lui. Si Tu M'acceptes Merci, Si Non, Tant Pis


 
Revenir en haut
Visiter le site web du posteur
Contenu Sponsorisé






Posté le: Aujourd’hui à 17:05 (2016)    Sujet du message: Exercice: Nombre premier ( Primalité )

 
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 -> Récursivité 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