Voila, j'arrive pa a le faire
 
Le sujet :
Trouver les entiers positifs n tel que, en calculant n^3 et n^4, on utilise une fois et une seule seulement tous les chiffres de 0 a 9 inclus
 
Merci

tu fais une boucle Do while
en incrementant n
et n3=n^3
  n4=n^4
tu transforme n3 et n4 en chaine de caractere
tu fais temp=n3+n4
tu fais :
trouve=1
for i=0 to 9
si tu trouve i dans temp alors  
trouve=trouve*1
sinon
trouve=trouve*0
finsi
fin for
 
si trouve=1 alors c'est bon tu sors de la boucle
 
fin while
 
 
 
tu dois trouver n=18
je sais pas si c'est trés clair ?

en VB ou (VBA)c'est facile ça donne ça:
 
 
 
Sub nn()
n = 10
Do
n3 = n ^ 3
n4 = n ^ 4
temp = n3 & n4
trouve = 1
For i = 0 To 9
pos = InStr(temp, i)
If pos = 0 Then
trouve = 0
GoTo continueboucle
Else
trouve = trouve * 1
End If
 
Next
 
continueboucle:
n = n + 1
Loop While trouve = 0
MsgBox (n - 1)
End Sub

Beyonder >
 
Sauf erreur de ma part, tu vérifies juste que les nombres contiennent bien tous les chiffres de 0 à 9, pas qu'ils les contiennent 1 et 1 seule fois ...

 
exacte mais comme tu commence a disons n=10
et que tu incrémente. le premier nombre  
trouvé contient tous les chiffres de 0 a 9
1 seule fois, apres on sort de la boucle.

 
le Goto c'est de la programmation de porc      

ddr555 a écrit a écrit :     le Goto c'est de la programmation de porc

 
et si tu donnais ta version ce serait plus constructif non ?
pour info ,je n'ai pas cherché a faire de "la belle programmation" mais a aller au plus rapide il faut prendre
ça comme un algo qui fonctionne.
ps: j'attend ta version en C ou en Pascal car
je suis toujours content d'apprendre.
     

ddr555 a écrit a écrit :     le Goto c'est de la programmation de porc

 
Hola !!!
Et pourtant lorsque tu code sur le proc en asm, il y a bien des jmp, non ?
C'est que ça a une certaine utilité donc ...

 
en assembleur tu n'as pas le choix
en pascal : nada pas de goto        
 
fais ça et tu te feras assassiner  

[edtdd]--Message édité par ddr555--[/edtdd]