Algorithme de recherche d'entiers

Coucou ! :D Voilà j'ai un petit (ou un gros !) problème pour résoudre un petit exercice de programmation sur Turbo Pascal : il faut afficher les triplets d'entiers (a,b,c) tels que b<a<n (n donné par l'utilisateur) et sqr(a)+sqr(b)=sqr(c). J'ai essayé avec la boucle for mais ça ne marche pas alors ça serait bien que quelqu'un me mette sur la bonne voie parce que là je sèche. Je précise que je commence à peine à programmer et que je suis new sur le forum donc je sais pas trop ce qui va se passer (aii! ouii!). thx

Hello,

C'est un problème d'algorithmique, donc la meilleure solution est de réfléchir à ce que ton programme doit faire pas-à-pas, puis l'écrire en français et ensuite le traduire en langage algorithmique et en Pascal. Certains diront "un papier et un crayon"....

Bonjour,

Citation:

---

Envoyé par suit-moo

J'ai essayé avec la boucle for mais ça ne marche pas

---

Peux-tu montrer ce que tu as fait ? ;)

Wae,

Citation:

---

Envoyé par suit-moo

J'ai essayé avec la boucle for mais ça ne marche pas

---

En programmation, on n'essaye pas à tout hasard, pour voir si ça marche.

- On cherche un algorithme conduisant au résultat désiré (c'est là qu'interviennent le papier et le crayon :))

- PUIS on code cet algorithme dans le langage choisi.

Bonsoir,

La difficulté de ton exercice c'est comment savoir si un entier n est un carré parfait, c'est-à-dire il existe un entier k tel que : n = k².
Je te propose un algorithme bourrin qui devrait marcher :

Code:

---

1 2 3 4

Varier a, b en respectant la contrainte a > b > n Calculer c² = a² + b² Si c² est un carré parfait alors Afficher le triplet (a, b, c)

---

Et je te laisse le soin de chercher comment déterminer si un entier naturel est un carré parfait.

En fait, pour aller droit au but, ton problème revient à calculer les triplets pythagoriciens... ;)

--
Wachter

J'ai fait ça au debut et c'est du n'importe quoi!(shame)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

program triplets; uses wincrt; var a,b,c,n,i,x,s:integer; begin readln(n); for i:=1 to n do begin if (a<i)and(b<a) then begin s:=sqr(c); s:=sqr(a)+sqr(b); end; end; if x=sqrt(s) then begin write(a,b,x); end else write('pas de triplets'); end.

---

:bug:
au moin ça ne manque pas de variables:mrgreen: (Si mon prof voyait ça il changrait de metier). un commentaire peut etre?

Bonjour

Citation:

---

Envoyé par suit-moo

J'ai fait ça au début et c'est du n'importe quoi!(shame)

---

je crois que ce qui serait du vrai n'importe quoi serait que toi même tu comprenne pas le programme que tu as écris. Mais ça arrive de ne pas pouvoir bien traduire ce qu'on veut faire dans le langage ;)(dans ce cas voir revoir l'ennoncé et l'algo que tu utilises

Citation:

---

Envoyé par suit-moo

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

program triplets; uses wincrt; var a,b,c,n,i,x,s:integer; begin readln(n); for i:=1 to n do begin if (a<i)and(b<a) then begin s:=sqr(c); s:=sqr(a)+sqr(b); end; end; if x=sqrt(s) then begin write(a,b,x); end else write('pas de triplets'); end.

---

:bug:
au moin ça ne manque pas de variables:mrgreen: (Si mon prof voyait ça il changrait de metier). un commentaire peut etre?

---

Tu as pensé à ton prof mais tu n'as pas pensé aux forumeurs :aie:(nous nous ferions quoi?:mrgreen::mrgreen:)

Plus sérieusement, ce que je comprend pas c'est que tu es bien conscient que ton code est loin de faire ce que tu veux, alors dans ce cas pourquoi tu n'y retourne pas pour revoir l'algo que tu utilises?
ça commence ici

Code:

---

1 2	if (a<i)and(b<a) then

---

i a bien une valeur en ce moment la mais a et b valent quoi d'apres toi?(si tu devines la reponse tu verras que ton test est inutile)

Revois l'algo et aies une petite certitude dessus avant de le traduire en Pascal

Cordialement

Je crois que c'est ma façon d'analyser le problème qui n'est pas bonne(pauvre débutante que je suis). Donc je recommence en tenant compte de tout ce que vous avez dit et de ce que vous n'avez pas dit. merci pour votre aide.