Bonjour,
Je voudrais trouver parmi les valeurs d'un tableau, la valeur exactement plus grande qu'une valeur donnée. exemple pour être sûr de me faire comprendre;
un tableau contient : 2 5 3 3 8 9
si je donne à la procédure 5 elle doit trouver 8.
J'ai des problèmes dans mon programme principal alors je vous demande de vérifier cette procédure
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
procedure mppm(table: tab; n: integer; var x:integer);
var i,min:integer;
begin
min:=maximum(table,n);
for i:=1 to n do if (table[i]>x) and (table[i]<min) then min:=table[i];
x:=min;
end;
j'utilise une procédure et non une fonction pour pouvoir exécuter le traitement autant de fois que je veux à l'aide d'une boucle "for" : for i:= 1 to k do mppm(t,n,x);


Merci.