Dhifallah Fethi Admin
Messages : 74 Date d'inscription : 02/03/2011
| Sujet: 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. | |
|