Pascal
amin009
Messages postés
121
Statut
Membre
-
Bidouilleu_R Messages postés 1209 Statut Membre -
Bidouilleu_R Messages postés 1209 Statut Membre -
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
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
Configuration: Windows XP Firefox 2.0.0.20
1 réponse
-
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.
