Discussion :

[TheSpecialOneDZ]

Bonjour !

J'ai un problème à résoudre qui est : Ecrire un programme qui demande à l'utilisateur 10 valeurs réelles, qui les stocke dans un tableau et qui affiche la plus grande valeur ainsi que son rang dans le tableau .

J'ai résolu une partie, et il me reste comment afficher le rang du max ??? Alors si vous pouvez m'aider !! et merci d'avance

[Aymenxy]

Salut
chacun a sa propre méthode pour résoudre un problème et voilà une simple fonction pour trouver le max :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
fonction max (tab )
{ 
      i: entier ;
      max,j : entier ;
   max=>t[1] ;
 pour i de 2 a t[la longueur du tableau] faire 
   {  si( t[i] > max )
        { max=> t[i] ;
           j=>i;
        }
   }
  ecrire(max) ; 
  ecrire("le rang du max =" , j);

[TheSpecialOneDZ]

Merci pour la solution.
J'ai trouvé une autre solution pour les personnes qui n'ont pas encore appris les fonctions

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
program ppp;
uses wincrt ;
 
Var Tab : array [1..10] of real ;
     rang,i:integer ; max: real ;
 
	Begin
 
	     Writeln ('Entrez 5 valeurs reelles');
 
	         For i:=1 to 5 Do
 
			     Begin
 
                 Write ('Valeur',i, '=') ;
 
				          Readln ( Tab[i] ) ;			
 
		         END;
 
		 max := Tab [1] ;
 
		     For i:=2 to 5 Do
 
			     Begin
 
		               If ( max < Tab [i] ) Then 
 
					        Begin 
 
					   max := Tab [i] ;
 
					   rang:=i ; 
 
 
				             end;
				  End;
 
				  writeln ('max=',round(max));
 
					Writeln ('Rang =',  rang);
 
				  readln ;
 
	END.