Discussion :

[katrena99]

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.

[krachik]

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.

juste une chose pourquoi ne pas trier ton tableau et de recuperer apres l'element qui suit l'element donné?

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);

ta boucle n'est pas tres ulise du moment ou tu ne passes meme pas i en parametre,ta procedure va juste faire la meme chose k fois
par contre tu pouras utiliser une fonction qui te renvoi le nombre que tu cherches simplement
Aussi indente bien ton code il sera plus lisible pour tout le monde et pour toi et c'est mieux de mettre comme variable max au lieu de min juste pour ne pas tromper son attention

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure mppm(table: tab; n: integer; var x:integer);
var i,max:integer;
begin
   max:=maximum(table,n);
   for i:=1 to n do 
         if (table[i]>x) and (table[i]<max) 
         then max:=table[i];
   x:=max;
end;

montres aussi ce que tu fais dans le programme principal

[katrena99]

Je cherche une solution sans trier le tableau, celle avec je l'ai déjà trouvée. J'ai aussi trouvé une autre solution mais je la juge trop lente car pour trouver le suivant élément, elle cherche élément + 1 dans le tableau puis élément + 2 puis +3 et ainsi de suite jusqu'à trouver un élément...
J'aimerai à présent me concentrer sur celle là;

ta boucle n'est pas tres ulise du moment ou tu ne passes meme pas i en parametre,ta procedure va juste faire la meme chose k fois

Je ne vois pas pourquoi! Si la procédure permet de trouver le plus petit élément plus grand que x, que je lui passe le minimum du tableau la première fois et que une fois trouvé, x prend la valeur cherchée, pourquoi ne puis-je pas repeter ce traitement ?

[krachik]

alors juste avant de continuer il faut qu'on d'accord sur certains points:

Je voudrais trouver parmi les valeurs d'un tableau, la valeur exactement plus grande qu'une valeur donnée.

for i:= 1 to k do mppm(t,n,x);

tu repetes ta procedure k fois (parce que tu ne passes pas en parametre i et qu'il y a deja une boucle dans ta procedure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

min:=maximum(table,n)

Question :que fait ta fonction maximum? et c'est quoi la variable x(je suppose que c'est le nombre donné)?

x prend la valeur cherchée, pourquoi ne puis-je pas repeter ce traitement ?

pour trouver koi?(tel que c'est fait la meme chose)

[katrena99]

la fonction maximum me donne le maximum du tableau

j'ai mis var avant x c'est à dire qu'après le traitement procédural x va changer de valeur
exemple : 5 2 6 3 6 7
si je fais mppm(t,n,2)
x prend 3
si je fais for i:=1 to 3 do mppm(t,n,2) j'ai envie de trouver x=6

[katrena99]

alors voici tout le programme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
program KPPE;
uses wincrt;
type tab=array[1..100] of integer;
procedure remptab(table:tab;n:integer);
var i:integer;
begin
for i:=1 to n do
       begin
       write('valeur numéro ', i,' du tableau : ');
       read(table[i]);
       end;
for i:=1 to n do write(table[i]:6);
end;
function maximum(table :tab; n:integer):integer;
var max,m,i:integer;
begin
m:=table[1];
for i:=1 to n do if table[i]>m then m:=table[i];
max:=m;
end;
function minimum(table:tab; n:integer):integer;
var i,c:integer;
begin
c:=table[1];
for i:=1 to n do if table[i]<c then c:=table[i];
minimum:=c;
end;
 
 
 
 
function DF(table:tab; n:integer):integer;
var CF:boolean; i,j,c,f:integer;
begin
CF:=true;	
f:=1;
for i:=1 to n do
	begin
	CF:=true;
	for j:=1 to i-1 do if table[j]=table[i] then CF:=false;
	if CF then for c:=(i+1) to n do if table[i]=table[c] then f:=f+1;
	end;
DF:=n-f;
end;
 
var
t:tab; i,k,y,a,n:integer;
begin
repeat
write('quelle est la longueur du tableau (n)?   ');
read(n);
until n in [2..20];
remptab(T,n);
writeln(chr(13),' k? ' );
readln(k);
if not k in [1..DF(T,n)] then writeln('Pas de ',k,'ième plus petit élément!') 
else
begin
y:=minimum(T,n)-1;
for i:=1 to k do mppm(T,n,y);
repeat a:=a+1 until T[a]=y;
writeln('Le ',k,'ième plus petit élément est  ',y, ' et l''indice de sa première apparition est ',a,'.');
end
end.