permutation de trois valeurs sans utilisation d'une variable auxiliaire

Aller en bas

permutation de trois valeurs sans utilisation d'une variable auxiliaire

Message  Admin le Sam 2 Avr - 12:47

ALGORITHME
0- Début Permut
1- Lire(A)
2- Lire(B)
3- Lire(C)
4- A <-- A + B + C
5- B <-- A - (B+C)
6- C <-- A - (B+C)
7- A <-- A - (B+C)
8- Ecrire (A, B, C)
9- Fin Permut

PASCAL
Program Permut;
uses Wincrt;
Var A, B, C: Integer;
Begin
Write('La première valeur :');
Readln(A);
Write('La deuxième valeur :');
Readln(B);
Write('La troisième valeur :');
Readln(C);
A := A + B + C;
B := A - (B + C);
C := A - (B + C);
A := A - (B + C);
Write('La première valeur sera :',A);
Write('La deuxième valeur sera :',B);
Write('La troisième valeur sera :',C);
End.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

remarque

Message  Admin le Sam 2 Avr - 12:48

il s'agit en faite de décalage d'une seule position des trois chiffres, exemple, si on saisi 5 puis 6 puis 7 le programme affiche 7 puis 5 puis 6

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum