Discussion :

[suit-moo]

Coucou ! 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

[M.Dlb]

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"....

[Alcatîz]

Bonjour,

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

Peux-tu montrer ce que tu as fait ?

[droggo]

Wae,

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.

[Wachter]

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 :

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

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

[suit-moo]

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

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
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.

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

[krachik]

Bonjour

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

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
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.

au moin ça ne manque pas de variables (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 (nous nous ferions quoi?)

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 :

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

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

[suit-moo]

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.