Boucle while en Pascal

abdelkarim_jb Messages postés 25 Date d'inscription   Statut Membre Dernière intervention   -  
zyxx Messages postés 21 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Est ce que vous pouvez me donner des idées sur comment resoudre ce probleme : " l'utilisateur introduit une serie de nombres positifs ( minmum 2 nombres ) et termine la serie avec la valeur sentinelle -1, et le program doit determiné si la serie et ( strictemen ) croissante, decroissante ou non trié "

Merci.

A voir également:

1 réponse

Réponse 1 / 1
zyxx Messages postés 21 Date d'inscription   Statut Membre Dernière intervention  
 
salut comment vas tu? Moi je suis élève en Terminale H. Pour résoudre ton problème:
Program Boucle_whyle;
var Nb : Array [1..15] OF INTEGER;
Begin
I:=1;
Rep:=0;
Croi:=True;
Decroi:=True;
Notri:= True;
WHYLE Rep<>-1 DO BEGIN
REPEAT
WRITE ('Nombre ', I,':'); READLN (Nbre); UNTIL Nbre>=0;
Nb [I]:=Nbre;
I:=I+1;
WRITE ('Avez-vous un autre nombre?'');
READLN (Rep);
END;
FOR J:=1 TO I-1 DO BEGIN
FOR K:=J+1 TO I DO BEGIN
IF Nb[J]<Nb[K] THEN BEGIN
Tamp:=Nb[K];
Nb[K]:=Nb[J];
Nb[J]:=Tamp;
0

Discussions similaires

Mon pc s'allume et s'éteint en boucle
Jack -
Daniel -

16 réponses
[BASH] Existe t-il un boucle do while?
niernier -
niernier -

3 réponses
Mon ordinateur s'allume et s'eteint en boucle
mhmd_elmrni -
BiGaMeRz10 -

10 réponses
tele s'eteind et s'allume en boucle
avion386 -
txiki -

4 réponses
problème tv décodeur orange
N.Look -
Mylord -

4 réponses