exo d'algo a resoudre

Version imprimable

27/02/2008, 10h49
bansan

exo d'algo a resoudre

Bonjour,
Je cherche a resoudre cet exercice d'algorithme que j'ai commencé sans vraiment savoir si c'est bon
Merci de m'aider

Ecrire un algorithme dont le role est de saisir une serie de nombres entiers positifs et de donner en fin de saisie la plus grande valeur saisie
Un nombre egal a zero indiquera la fin de la saisie (O n'est pas pris en compte)
Si aucune valeur n'est saisie, un message d'erreur(ex: impossible de rechercher la valeur max") doit etre affiché

Voici ce que j'ai fait

Algo_max

Variables

num,max,i: entiers

Debut

Afficher("Saisissez un nombre")
Saisir(num)
max <--- 0
Tant que num>= 0
Afficher("Saisissez un nombre")
Saisir(num)
Si nim>max Alors
max<---num
Finsi
Si num="" Alors
Afficher("Impossible de rechercher un valeur max")
Finsi

Fintantque
Afficher ("La valeur max est:", max)

Est ce que c'est Bon??
Merci

Bonjour,

c'est presque ça, j'aurais toutefois plutôt mis les choses dans cet ordre :

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
 
Algo_max
 
Variables
num, max : entiers
 
Debut
 
num <--- max <--- 0
 
Faire 
	Afficher("Saisissez un nombre")
	Saisir(num)
 
	Si num>max Alors
		max <--- num
	Finsi
Tant que num> 0
 
Si num=0 Alors
	Afficher("Impossible de rechercher un valeur max")
Sinon
	Afficher ("La valeur max est:", max)
Finsi

Citation:

Envoyé par ToTo13

Code:

1
2
3
4
5
6
7
8
(...)

Si max=0 Alors
	Afficher("Impossible de rechercher un valeur max")
Sinon
	Afficher ("La valeur max est:", max)
Finsi