Discussion :

[Maliciouss]

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 :

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

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

[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 :

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

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;

[droggo]

Boi,

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 :

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

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.

[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 ...

[droggo]

Goe,

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 ...

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

[Dr.Who]

Code :

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

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;

[Maliciouss]

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!

[richard]

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 ...

[richard]

@ 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 ?

[Dr.Who]

on aura corrigé :

Code :

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

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;