Boucle while en Pascal
abdelkarim_jb
Messages postés
31
Statut
Membre
-
zyxx Messages postés 25 Statut Membre -
zyxx Messages postés 25 Statut Membre -
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.
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.
1 réponse
-
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;
