|
Min et Max
1) Procedure Min de 2 entiers.
2) Procedure Max de 2 entiers.
3) Procedure MinMax de 2 entiers, qui appelle les procedures Min et Max.
4) Programme qui lit 2 entiers, appeler MinMax et afficher les résultats.
voici le code:
|
Penser a utiliser des identi cateurs di erents a chaque niveau, pour l'exemple.
1) PROCEDURE Min ( a, b : integer ;
var inf : integer );
BEGIN
if a < b then inf := a
else inf := b;
END;
2) PROCEDURE Max ( a, b : integer ;
var sup : integer );
BEGIN
if a > b then sup := a
else sup := b;
END;
3) PROCEDURE MinMax ( x, y : integer ;
var p, g : integer );
BEGIN
Min (x, y, p);
Max (x, y, g);
END;
4) PROGRAM exo1;
VAR u, v, pp, pg : integer; { var globales }
{ ici procedures Min, Max et MinMax }
BEGIN
write ('u v ? '); readln (u, v);
MinMax (u, v, pp, pg);
writeln ('min ', pp, ' max ', pg);
END
|
|
Signaler un abus
|
|
