Sciences de l'informatique

Bienvenue dans notre forum de partage et d'échange d'information technique dans le domaine NTIC (Informatique, Programmation, Réseau, Multimédia), ce forum est destinée à tous les élèves Tunisiens
 
AccueilCalendrierFAQMembresGroupesS'enregistrerConnexion
Sujets similaires
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 6 le Ven 13 Jan - 2:22

Partagez | 
 

 Exercice 8 (Récursivité)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin
avatar

Messages : 74
Date d'inscription : 02/03/2011

MessageSujet: Exercice 8 (Récursivité)    Ven 18 Mar - 5:07

Exercice 8

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

Réponse

Code:
program premier;
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 Aller en bas
http://ntic.moontada.net
 
Exercice 8 (Récursivité)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» les exercice de chimie 2

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Sciences de l'informatique :: 4ème SI :: Programmation :: Exercices & Devoirs-
Sauter vers: