Comparer deux entiers sans structure conditionnelle

Bonjour,

Sans une structure conditionnelle, écrire un programme Pascal permettant de saisir deux entiers a et b et d'afficher la plus grande valeur.
J'ai deux méthodes et je voudrais une autre méthode.

1e méthode :

Code:

---

1 2 3 4 5 6 7

uses wincrt ; var a,b,max:integer; begin readln(a,b); max:=ord(a>b)*a+ord(b>a)*b ; writeln(max) ; end.

---

2e méthode :

Code:

---

1 2 3 4 5 6 7

uses wincrt; var a,b,max:integer; begin readln(a,b) ; max:=trunc((a+b)/2 + ( a-b)/2) ; writeln(max); end.

---

3e méthode ???

salut

ta première méthode ne fonctionne pas si tu as une égalité
tu dois dans l'un des termes écrire >=

Code:

---

max:=ord(a>b)*a+ord(b>=a)*b ;

---

la deuxieme methode ne fonctionne pas si tes nombre ne sont pas ordonné et positif



reprenons ta fonction

Code:

---

max:=trunc((a+b)/2 + ( a-b)/2) ;

---

imaginons que l'on a a = 1 et b = 2
le premier termes seras donc égale a (1+2)/2 =>3/2 1.5
le deuxième termes seras donc égale a (1-2)/2 =>-1/2 = -0.5
pour que cela fonctionne il faut la valeur absolue du deuxième terme

Code:

---

max:=(a+b)/2 + Abs(a-b)/2 ;

---

pour la troisième méthode dans la même veine que le deuxième on utilise la transitivité des opération

Code:

---

=((B3+C3)+ABS(B3-C3))/2

---

Merci beaucoup
Mais y a t'il une autre solution :zoubi: ?

salut

une autre solution proche de la première

Code:

---

1 2	Bool := a>b; max:=ord(Bool)*a+ord(not(Bool))*b ;

---

une petite recherche google permet de trouver la réponse (mais comment faisait-on avant ?!)

on la trouve même sur DVP dans la section algorithme évidemment :)

http://www.developpez.net/forums/d21...mum-2-nombres/

Salut,

Avec un opérateur conditionnel (? : ) comme en langage C, ce serait quand même plus sympa. Cet opérateur a une caractéristique intéressante, l'évaluation de 2ème ou 3ème opérande est contrôlée par celle du premier. Ce qui n'est pas identique par exemple à des fonctions iif(condition, valeur_si_true, valeur_si_false) où tous les opérandes sont évaluées.

A quand dans Free Pascal ?

Cdlt