Remplir un tableau à partir d'une valeur initiale

Salut, je me demandais comment pouvoir remplir un tableau automatiquement à partir d'une valeur initiale.

En temps normal, pour le remplir moi même je ferais quelque chose comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var tab1:array [1..20] of integer;   begin for i:=1 to 20 do   begin   writeln('Entrez une valeur comprise entre 1 et 100:'); readln(tab1[i]); end;   end;

---

mais je n'arrive pas à voir comment faire pour qu'il se remplisse lui-même,
du genre tab1[1] serais égale a la valeur initiale et le reste serait +1.

Des conseils ?
Merci et bonne journée

Bonjour

Le message n'est pas très clair. S'il s'agit de remplir un tableau avec des valeurs incrémentées de +1 à partir d'une valeur initiale, voici le code (sinon, préciser la question, merci)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var tab1:array [1..20] of integer; Valinit : integer;   begin for i:=1 to 20 do begin Valinit := 1; (* n'importe quelle valeur de départ*) tab1[i]:=(valinit - 1) + i; (* si "i" commence à 1 *) end; end;

---

Boi,

Citation:

---

Envoyé par richard

Bonjour

Le message n'est pas très clair. S'il s'agit de remplir un tableau avec des valeurs incrémentées de +1 à partir d'une valeur initiale, voici le code (sinon, préciser la question, merci)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var tab1:array [1..20] of integer; Valinit : integer;   begin for i:=1 to 20 do begin Valinit := 1; (* n'importe quelle valeur de départ*) tab1[i]:=(valinit - 1) + i; (* si "i" commence à 1 *) end; end;

---

---

Là, tu remplis le tableau avec [I]tab1 = i. :)

Certes oui, ceci ne m'avait pas échappé : ;)

Cependant, de ce que j'ai compris de la question, il s'agissait de remplir un tableau à partir d'une valeur initiale (que j'ai arbitrairement fixée à 1) incrémentée de +1 à chaque fois. Comme le pas de la boucle FOR ... TO est de 1, effectivement cela revient à cela dans ce cas précis. Disons que c'est un cas particulier, si la valeur initiale était de 32, cela donnerait d'autres résultats, et si en plus le pas était égal à 2 (avec une boucle "WHILE" ) pour des raisons particulières, ce serait encore différent.

C'était juste pour montrer la mécanique. Je n'ai pas voulu traiter le cas ci-dessus car je n'était pas sûr d'avoir compris l'énoncé du problème ...:aie:

Goe,

Citation:

---

Envoyé par richard

Certes oui, ceci ne m'avait pas échappé : ;)

Cependant, de ce que j'ai compris de la question, il s'agissait de remplir un tableau à partir d'une valeur initiale (que j'ai arbitrairement fixée à 1) incrémentée de +1 à chaque fois. Comme le pas de la boucle FOR ... TO est de 1, effectivement cela revient à cela dans ce cas précis. Disons que c'est un cas particulier, si la valeur initiale était de 32, cela donnerait d'autres résultats, et si en plus le pas était égal à 2 (avec une boucle "WHILE" ) pour des raisons particulières, ce serait encore différent.

C'était juste pour montrer la mécanique. Je n'ai pas voulu traiter le cas ci-dessus car je n'était pas sûr d'avoir compris l'énoncé du problème ...:aie:

---

Valinit devrait être initialisée hors de la boucle, ça éviterait la soustraction, et ce serait plus clair.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

var Tab : array[0..19] of integer; V, N : integer; begin write('Entrez une valeur comprise entre 1 et 100 : '); readln(V);   for N := low(Tab) to high(Tab) do tab1[n] := v; end;

---

Merci a vous deux.
je sais que la question etait pas clair mais ça repose sur cela
de remplir un tableau appartir d'une variable saisie.

ça m'éclair beaucoup!

Citation:

---

Envoyé par droggo

Valinit devrait être initialisée hors de la boucle, ça éviterait la soustraction, et ce serait plus clair.

---

C'est juste. Erreur vraiment stupide de ma part ...

@ DrWho,

Je dois être benêt mais je n'ai pas compris où était l'incrément automatique dans ton code, ou alors il en manque un bout ?

on aura corrigé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var Tab : array[0..19] of integer; V, N : integer; begin write('Entrez une valeur comprise entre 1 et 100 : '); readln(V);   for N := low(Tab) to high(Tab) do begin tab1[n] := v; inc(v); end; end;

---