Programme d'exploitation de tableau à résoudre

Version imprimable

04/01/2008, 23h20
imipiya

Programme d'exploitation de tableau à résoudre

Salut; c'est Imi, je suis en terminale et le prof nous a demandé de résoudre ce problème qui est un peu difficile; alors si vous êtes interessés aidez-moi:Merci d'avance et voici le sujet:

Citation:

Soit T un tableau de n entiers. On suppose que T n'est pas trié. Ecrire une fonction récursive ou itérative qui retourne l'élément qui apparaît le plus souvent dans le tableau T ainsi que son nombre d'occurences. Si plusieurs éléments différents répondent au problème, votre algorithme doit en fournir un. Vous ne devez utiliser aucun autre tableau que celui sur lequel vous travaillez.
05/01/2008, 00h06
droggo

Fiu,

As-tu regardé un peu les sujets traités dans le forum ?

Si oui, tu dois savoir qu'on ne fera pas ton travail à ta place.

Alors, explique-nous où tu en es, ce qui te bloque, etc., et on pourra t'aider. :)
06/01/2008, 23h53
richard

Citation:

Envoyé par imipiya

Salut; c'est Imi, je suis en terminale

Non : "Salut; c'est Imi, je suis en terminale" et en vacances pour deux jours encore ...

Citation:

Envoyé par imipiya

et le prof nous a demandé de résoudre ce problème qui est un peu difficile;

Correction :"et le prof nous a demandé de résoudre ce problème" mais c'est pour lundi, nous sommes vendredi (soir) et je n'ai encore rien fait ... donc si vous pouviez le faire à ma place ça m'arrangerait.

Ben ... non :D
06/01/2008, 23h59
krachik

Citation:

Envoyé par richard

..................................

On ne va pas en faire toute une histoire non plus ;) et en profiter pour se moquer ou juste ecrire pour :aie:
@+

Citation:

Soit T un tableau de n entiers. On suppose que T n'est pas trié. Ecrire une fonction récursive ou itérative qui retourne l'élément qui apparaît le plus souvent dans le tableau T ainsi que son nombre d'occurences. Si plusieurs éléments différents répondent au problème, votre algorithme doit en fournir un. Vous ne devez utiliser aucun autre tableau que celui sur lequel vous travaillez.

je vais te proposer un algorithme :
*Tu tries d' abord le tableau dans l' ordre que tu veux. Le tableau trié sera un peu comme ça :(1,2,2,9,9,9,9,10,10,15,30,30,30).On voit que les meme elemets se suivent (donc facile à compter).
*En suite tu fais une boucle pour compter chaque element. Du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 occurence:=1; max:=t[1]; compteur:=1; for i:=2 to n do if t[i]=t[i-1] then begin compteur:=compter+1; if compteur>occurence then begin occurence:=compteur; max:=t[i]; end; end else compteur:=1; writeln('le max est ',max,' son occurence est ',occurence');
ça pourra peut etre d' aider à sortir de ta galère.

Voici mon prog Pascal : il est exécutable mais le résultat n'est pas correct. Je ne sais pas où est le problème :cry:

Code:

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
66
67
68
69
70
71
72
73
74
        program occurence_max;
        uses wincrt;
        type tab =array [1..100] of integer;
        var t:tab;
         n:integer;
 
procedure recursive (t :tab;n:integer);
var  occurence,max,i,compteur:integer;
begin
occurence:=1;
max:=t[1];
compteur:=1;
for i:=2 to n do
 if t[i]=t[i-1] then
    begin
    compteur:=compteur+1;
    if compteur>occurence then
      begin
      occurence:=compteur;
      max:=t[i];
      end;
      end
else
 compteur:=1;
 
writeln('le max est ',max,' son occurence est:  ',occurence);
end;
 
 
procedure tri_selec (var t:tab;n:integer);
var i,posm:integer;
 
    procedure permute (var x,y:integer);
    var z :integer;
    begin
    z :=x;
    x:=y;
    y:=z;
    end;
 
   function mini (t:tab;j,n:integer):integer;
   var i,q:integer  ;
   begin
   j:=i+1;
   q:=j;
   for i := j+1 to n do
   if t[i]< t[q] then
   q:=i;q:=mini(t,j,n);
   end; 
begin
for i:=1 to n-1 do
posm:=mini (t,i+1,n);
 if t[posm]< t[i]
 then permute ( t[i],t[posm]);
 end;
 
 
 procedure saisie ( var t:tab;n:integer);
 var i:integer;
 begin
  write ('saisir n:') ; read (n);
  for i := 1 to n do
  begin
  writeln ('t[',i,']:');readln (t[i]);
  end;
   end;
 
 
 
begin
saisie (t,n);
tri_selec (t,n);
recursive (t,n);
end.

10/01/2008, 19h58
darrylsite
Code:

1 2 3 4 5 6 7 8 9 function mini (t:tab;j,n:integer):integer; var i,q:integer ; begin j:=i+1; q:=j; for i := j+1 to n do if t[i]< t[q] then q:=i;q:=mini(t,j,n); end;
Je n' ai pas lu tout le code mais je vois dejà des erreurs.
Quand au debut tu ecris j:=i+1, d' apres toi, i contient quelle valeur ?
Ensuite à la fin tu mets q:=mini(t,j,n). Je crois tu ne sais pas ce ça fait-la recursivité. Tu ne sortiras jamais vivant de cette boucle à moins qu' un overflow se produit.
Si tu veux chercher le minimun, tu peux utiliser cet algorithme :
Code:

1 2 3 4 5 mini:=t[1]; for i:=2 to n do if t[i]<mini then mini:=t[i]; writeln('le mini est ',mini);
10/01/2008, 22h32
sidahmed

Bonjour,

Le même problème a déjà été traité ici.

Cordialement,
Sidahmed