Se connecter avec
S'enregistrer | Connectez-vous

Programmation Pascal

Dernière réponse : dans Programmation

Salut je suis etudiant en programmation et j'aimerai trouver les erreurs de ce code.
Pourriez vous m'aider ?

j'ai envie de crée une function ou procédure étenche pour min et max

program affiche_seq2;
uses SeqInt;
/////////////////////////////////////////////////
function max(var x,max{,min}:integer):integer;

{min:=x;}
begin
if x > max
then
max:=x
{else
if x<min ;
then
min:=x;}
end;
writeln('Le Max est ' , max {, ' et le min est ' , min});

//////////////////////////////////////////////////


procedure aff(const s:TSeqInt);
var it:TSeqIter;
x:integer;
{max,min:integer;
maxetmin(x);}
begin

it:=TSeqIter.init(s);
{max:=0;
min:=0;}
while not it.AuBout do
begin
x:=it.ValeurCourante;
write(x:4);
result:=max(x);
{begin
if x > max
then
max:=x
else
if x<min
then
min:=x;

end;}

end;
writeln;
{writeln('Le Max est ' , max , ' et le min est ' , min);}
end;
//////////////////////////////////////////////////

var s:TSeqInt;
begin

s:=TSeqInt.create(quelconque);
writeln('Voici la sequence');
aff(s);
readln
end.

Autres pages sur : programmation pascal

Lassé par la pub ? Créez un compte
Expert Programmation

Y a-t-il une erreur de compilation ou une erreur dans le résultat ? et laquelel ?

Sinon explique le fonctionnement global de ton programme, vu qu'il n'y a pas de commentaires :-)
J'ai pas envie de réfléchir lol
Lassé par la pub ? Créez un compte
Tom's guide dans le monde