Discussion :

[leratx]

Bonjour à tous

je veux faire un algorithme qui permet de saisir des nombres quelconque de valeur et qui les range au fur et à mesure dans un tableau un fois la saisie terminée le programme doit dire si les élèments du tableau sont tous consécutifs ou noms par exemple

si je saisie: 1 2 3 4 5 6 7 8 9 le programme dira que les nombres sont consicutifs

sinon le programme dira qu'ils ne le sont pas

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
 
var
t(4),i:entier
debut
écrire(" entrez 4 nombre")
pour i =0 à 4
       lire t(i)
fin pour i
pour i=0 à 4
       si t(i)=t(i)+1 alors 
              écrire(" les nombres sont consécutifs")
       sinon
              écrire("les nombres sont pas concécutis")
       fin si
fin pour i
fin

Merci à tous.

[PRomu@ld]

Et ta question est ?

[leratx]

Et ta question est ?

voir ce que j'ai fait est juste ou pas

[Nemerle]

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
 
var
t(4),i:entier
debut
écrire(" entrez 4 nombres:")
pour i =0 à 4
       lire t(i)
fin pour i
b=vrai
pour i=0 à 3
       si t(i+1)<>t(i)+1 alors 
              b=faux
              i=3
       fin si
fin pour
si b=faux alors
       écrire(" les nombres ne sont pas consécutifs")
sinon
       écrire("les nombres sont pas concécutis")
fin si
fin

Merci à tous.[/QUOTE]

[leratx]

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
 
var
t(4),i:entier
debut
écrire(" entrez 4 nombres:")
pour i =0 à 4
       lire t(i)
fin pour i
b=vrai
pour i=0 à 3
       si t(i+1)<>t(i)+1 alors 
              b=faux
              i=3
       fin si
fin pour
si b=faux alors
       écrire(" les nombres ne sont pas consécutifs")
sinon
       écrire("les nombres sont pas concécutis")
fin si
fin

[/QUOTE]
ça pas marcher j'ai traduit ce code en vb il affiche toujours les nombre sont pas consécutif

[Nemerle]

ça alors gros problème de VB... peut-être que COMPRENDRE avant ça aiderait?

[Ghilas1985]

cette solution est juste ou nn

[zendeine88]

et si les 4 valeur serons comme ça 2 8 10 3
moi je pense

Code :

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

1
2
3
4
5
6
7
8
9
 
pour i de1 a 4 faire 
    si t[i] > t[i]+1  alors 
        ecrire" les valeurs sont arrange consecuti..";
    sinon
        ecrire" les vals ne sont pas..."
    finsi;
    i<---i+1;
finpour

[pseudocode]

Code :

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

1
2
3
 
si t[i] > t[i]+1  alors 
        ecrire" les valeurs sont arrange consecuti..";

Là tu testes s'ils sont en ordre croissant, et pas forcément consécutifs