Discussion :

[mo5bzn]

Bonjour à tous,
J'ai écrit un programme qui permet d'afficher les nombres Harshad entre 100 et 150 dont le prédécesseur est un nombre premier (un nombre Harshad est un entier divisible par la somme de ses chiffres).
Mais malheureusement j'ai pas obtenu le résultat voulu.
Voici le code :

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
25
26
27
28
29
30
31
32
33
34
35
program premier;
uses crt;
var n,m,i:integer;
 
function testp(n:integer):boolean;
var i:integer;
begin
if n=1 then testp:=false else
begin 
i:=2;
while (i<=n) and (n mod i <> 0) do i:=i+1;
if i=n then testp:=true else testp:=false
end;
end;
 
function testh(n:integer):boolean;
var ch:string; k,i,s,e:integer;
begin
str(n,ch);
s:=0;
for i:=1 to length(ch) do
begin
val(ch[i],k,e);
s:=s+k
end;
if s=n then testh:=true else testh:=false
end;
 
begin
for n:=100 to 150 do
begin
if ( testp(n-1)=true and testh(n)=true )
then write(n:4);
end;
end.

[Roland Chastain]

Bonsoir !

J'ai un doute sur la façon dont le compilateur calcule cette expression :

Code :

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

testp(n-1)=true and testh(n)=true

Obtiens-tu les mêmes résultats si tu écris ceci ?

Code :

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

testp(n-1) and testh(n)

[mo5bzn]

Bonsoir !

J'ai un doute sur la façon dont le compilateur calcule cette expression :

Code :

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

testp(n-1)=true and testh(n)=true

Obtiens-tu les mêmes résultats si tu écris ceci ?

Code :

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

testp(n-1) and testh(n)

Je l'ai remplacé par :

Code :

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

if ( ( testp(n-1) and testh(n) )=true )

Maintenant aucun resultat s'affiche ..

[Roland Chastain]

Tu as dit qu'un "nombre Harshad" était un nombre divisible par la somme de ses chiffres mais ce n'est pas ce que tu vérifies dans ta fonction :

Code :

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

if s=n then

[e-ric]

Salut


J'adresse quelque critiques sur le travail fait mais je n'oublie pas que Mokhles est lycéen.

Il est vrai qu'il y a des progrès à faire sur le style, comparer une expression booléenne à True ou False ne fait qu'alourdir le code.

Je prend la fonction testn:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function testh(n:integer):boolean;
var ch:string; k,i,s,e:integer;
begin
str(n,ch);
s:=0;
for i:=1 to length(ch) do
begin
val(ch[i],k,e);
s:=s+k
end;
if s=n then testh:=true else testh:=false
end;

peut se réécrire plus concisément :

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
 
function testh(n:integer):boolean;
var 
  ch:string; 
  k,i,s,e:integer;
begin
  str(n,ch);
  s:=0;
  for i:=1 to length(ch) do
  begin
    val(ch[i],k,e);
    s:=s+k
  end;
  testh:= (s=n);
end;

Une variante plus rigolote (et sans doute plus efficace) évite de passer par une chaîne avec des opérations arithmétiques simples:

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
 
function SommeDesChiffres(n:Integer): Integer;
{ décommente la déclaration ci-dessous et l'affectation en fin de fonction si tu codes en TurboPascal }
{ var Result : Integer; }
begin
  Result := 0;
  repeat
    Inc(Result, n mod 10);
    n := n div 10;
  until n = 0;
  { SommeDesChiffres := Result; }  
End;
 
function testh(n:integer):boolean;
begin
  testh := (SommeDesChiffres(n)=n);
end;

En outre, si tu veux obtenir la somme des chiffres dans une base de numération quelconque, il suffit d'adapter la fonction SommeDesChiffres en ajoutant un paramètre Base: Integer; qui remplace 10 dans le corps de la fonction. Rappelle si tu veux plus d'explication à ce sujet.

Du point de vue de l'efficacité, il serait préférable de calculer tous les nombres premiers jusqu'à 150 une fois pour toute, l'algorithme du crible d'Eratosthène convient parfaitement pour cela. L'algorithme est un peu plus compliqué mais pas inaccessible.

Cdlt

[Roland Chastain]

Bonjour Éric ! Oui à toutes les améliorations que tu proposes, sauf que tu as reproduit l'erreur du programme original, relativement à la définition du "nombre Harshad" (voir mon précédent message).

[e-ric]

C'est vrai que je n'ai pas corrigé, je me suis focalisé sur l'amélioration que j'ai proposé. Pour la correction:

Code :

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

1
2
3
4
function testh(n:integer):boolean;
begin
  testh := ((n mod SommeDesChiffres(n)) = 0);
end;

devrait faire l'affaire.

cdlt