Discussion :

[katrena99]

voici un programme qui affiche la liste des parfaits (méthode brutale) dans un intervalle compris entre 1 et x
je rappelle qu'un nombre parfait est celui dont la somme de ses diviseurs propres (lui exclu) lui est égale.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program nb_parfaits;
uses wincrt;
var e,d,s,x:integer;
begin
writeln('le morveux qui a développé ce programme veut afficher');
writeln('une liste des nombres parfaits. On commence par 1,');  
writeln('jusqu''à quel entier naturel voulez-vous effectuer le test?');
readln(x);
writeln('c''est un bon choix :)');
writeln('la liste :');
for e:=1 to x do
    begin
    s:=0;
        for d:=1 to (e div 2) do
         begin
              if e mod d=0 then
                 begin
                 s:=s+d;
              if s=e then
                 writeln(e);
              end
         end
    end
end.

Le problème : dans la liste figure le nombre 24 qui n'est pas parfait (24<> (2+3+4+6+8+12))

Y'a-t-il une erreur dans l'algorithme ?
Merci.

[thewho]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
for e:=1 to x do
    begin
    s:=0;
        for d:=1 to (e div 2) do
        begin
            if e mod d=0 then
            begin
                s:=s+d;
                if s=e then
                 writeln(e);
            end
        end
    end
end.

Il n'y a qu'une petite erreur : il faut sortir ce que j'ai mis en gras de la boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for d:=1 to (e div 2) do

car tu affiches également le nombre comme étant parfait si une somme intermédiaire correspond au test, ce qui est le cas avec 24:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

24<> (1+2+3+4+6+8+12)

(liste dans laquelle tu as d'ailleurs oublié le 1 mis en gras)
mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

24 = (1+2+3+4+6+8)

d'où l'erreur d'affichage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
for e:=1 to x do
    begin
    s:=0;
        for d:=1 to (e div 2) do
        begin
            if e mod d=0 then
            begin
                s:=s+d;
            end
        end;
        if s=e then  writeln(e);
    end
end.

(Au passage, prends la peine d'aligner correctement les indentations, tu verras que le code devient beaucoup clair [c'est fait pour ça], et ça t'aurait probablement permis de trouver tout seul ce qui n'allait pas)

[katrena99]

Résolu merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Au passage, prends la peine d'aligner correctement les indentations

C'est vrai j'ai mis des espaces un peu aléaoirement, des espaces pour espacer, on ne nous enseigne pas la forme à respecter. Où pourrais-je l'apprendre ?

[Alcatîz]

Bonjour !

Philippe Gormand a rédigé un tutoriel sur l'indentation et plein de conseils d'écriture en Pascal : http://philippe-gormand.developpez.c...i/Indentation/

[katrena99]

Résolu merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Au passage, prends la peine d'aligner correctement les indentations

C'est vrai j'ai mis des espaces un peu aléaoirement, des espaces pour espacer, on ne nous enseigne pas la forme à respecter. Où pourrais-je l'apprendre ?

Désolé problème de connexion je n'ai pas lu le msg au dessus en postant.

[scream3]

Merci mes amis pour m'aider par ce que cet essai est le devoir de cette année

[hichaman]

Bonjour
voici un lien de telechargement d'un programme pascal qui détermine si un nombre est parfait ou non
http://www.4shared.com/zip/YZ9ohCgj/...e_premier.html