pascal Fermé

Question

Bonjour,
aidez moi  s'il y'a des  fautes dans mon programme

program ty;
uses wincrt
var a1,b1:integer ;
procedure min (a,b:integer)
var
min:integer;
begin
if (a<b) then
min:=a;
else
min:=b;
end;
procedure max(a,b:integer)
var
max:integer;
begin
if (a<b) then
max:=a;
else
max:=b;
end;
procedure maxmin(a,b:integer);
begin
write ("le maximum est ",max(a,b));
write("le maximum est",min(a,b));
end;

begin

write ("donner deux entiers");
read(a1,b1);
maxmin(a1,b1);
end.
merci

Bidouilleu_R · Answer

bonjour,
ça c'est faux!


procedure max(a,b:integer) 
var 
max:integer; 
begin 
if (a<b) then    
max:=a; 
else 
max:=b; 
end; 

il faut écrire
procedure max(a,b:integer) 
var 
max:integer; 
begin 
if (a<b) then    
max:=b; 
else 
max:=a; 
end; 

cette procédure ressemble à la précédente ( Min ), à noter que si on teste deux valeurs seulement
l'une de ces deux procédures est inutile car si a est mini alors b est maxi
Bonne journée.

Pascal

1 réponse

Discussions similaires