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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ???