Recherche du max d'un tableau d'entiers

Version imprimable

salut à tous

j'ai ce programme
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 program max; uses wincrt; type tab=array[1..54]of integer; var v:tab; maxi,i,n:integer; procedure lecture(var v:tab); begin writeln('entrer les elements du tableau'); readln(n); for i:=1 to n do end; procedure affichage(v1:tab); begin for i:=1 to n do writeln(v1[i]); end; function maximum(v1:tab):integer; begin maxi:=v1[1]; for i:=2 to n do if maxi<v[i] then maxi:=v1[i]; maximum:=maxi; end; procedure calcule(v1:tab;var max:integer); begin max:=v1[1]; for i:=2 to n do if max<v1[i] then max:=v1[i]; end; begin lecture(v); affichage(v); maximum(v); maxi:=maximum(v); writeln('le resultat de la fonctin est:',maxi); calcule(v,maxi); writeln('le resultat de la procedure est:',maxi); end. begin readln(n); lecture; writeln('affichage'); affichage(v); maxi:=maximum(v); writeln('les maximum est',); end.
pour résultat aprés l'exécution sur turbo pascal version 5 j'ai trouvé :

Citation:

entrer les elements du tableau
3
0
0
0
le resultat de la fonction est :0
le resultat de la procedure est :0

et pour turbo pascal version 7 j'ai trouvé des erreurs comme
6 / 24 untitl~1.pas
Hint: Parameter V not used
càd dans la ligne 6
svp est ce que vous pous pouvez essayer ce programme pour confirmer mon résultat ?
merci

18/12/2009, 21h30
mick605

Salut

Commence par bien indenter ton code, et la on pourra peut être mieux lire ton programme.
18/12/2009, 22h32
krachik

Bonjour

Je rajoute à ce que dit mick605 que tu avais indenté ton code tu verrais tout de suite que ce code ne compilerait pas sous TP7, ou alors tu as dû mal recopier en postant sur le forum.

Je n'ai jamais utilisé TP5 mais si ce code compile dessus 8O :aie: 2 blocs begin/end.

En plus le code en soi n'est pas tres propre, regardes bien la construction des procédures etc, utilisation du variable global n qui est lu/initialié dans une procedure et apres utilisé dans les autres procédures :roll:

max _tab

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
program max;
 
uses wincrt;
 
type tab=array[1..54]of integer;
 
var v:tab;
    maxi,i,n:integer;   
 
procedure lecture(var  v:tab;var n:integer);
begin
   for i:=1 to n do
   begin
   writeln('entrer le ',i,' element du tableau');
   readln(v[i]);
   end;
end;
 
procedure affichage(var v1:tab;var n:integer);
begin
  for i:=1 to n do
    writeln(v1[i]);
end;
 
function maximum(var v1:tab;var n:integer):integer;
begin
  maxi:=v1[1];
  for i:=2 to n do
    if maxi<v[i] then
      maxi:=v1[i];
  maximum:=maxi;
end;
 
procedure calcule(var v1:tab;var max:integer;var n:integer);
begin
  max:=v1[1];
  for i:=2 to n do
    if max<v1[i] then
      max:=v1[i];
end;
 
begin
  lecture(v,n);
  affichage(v,n);
  maximum(v,n);
  maxi:=maximum(v,n);
  writeln('le resultat de la fonctin est:',maxi);
  calcule(v,maxi,n);
  writeln('le resultat de la procedure est:',maxi);
end.
 
begin
 writeln('entrer les elements du tableau');
  readln(n);
  lecture(v,n);
  writeln('affichage');
  affichage(v,n);
  maxi:=maximum(v,n);
  writeln('les maximum est',maxi);
  readln;
end.

vous avez besoin que de lafct et non pas la procedure et la fonction

20/12/2009, 15h37
Alcatîz

Bonjour,

En enlevant le 1er bloc principal begin..end, ton programme tourne. ;) Le compilateur indique que le tableau v n'est pas initialisé, c'est juste un avertissement.

A présent, il y a une amélioration à apporter au programme : vérifier que l'utilisateur n'entre pas un nombre d'éléments du tableau inférieur à 2 et supérieur à 54. L'idéal est de faire cela dans une procédure ou fonction séparée.