Transformation d'une matrice en un tableau à une seule dimension

Version imprimable

Salut à tous,
j'ai un problème : je veux transformer ma matrice n*m en un tableau à une seule dimension. Voilà, j'ai essayé mais ça n'a pas marché.
Aidez-moi s'il vous plaît ..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
program heh;
uses crt;
var
  t:array[1..10,1..1à] of integer;
  k:array[1..1)] of integer;
  i,n,j,l,m:integer;
begin
  clrscr;
  readln(n);readln(m);
  clrscr;
  for i:= 1 to n do
    for j:=1 to m do 
      begin
        readln(t[i,j]);
      end;
  for i:= 1 to n do
    for j:=1 to m do 
      begin
        l:=1;
        while l<m*n do 
          begin
            k[l]:=t[i,j];
            l:=l+1;
          end;
      end;
  for l:=1 to m*n do 
    begin
      writeln(k[l]);
    end;
  readln;
end.

19/05/2014, 08h38
Stellar7
Bonjour,

Tu étais "un peu" fatigué en écrivant (vu l'heure du post) ? Rien qu'en lisant les déclarations de t & k on note un gros problème de la gestion de la touche Shift, gauche ou droite. Bref, le compilateur doit te recracher le code dès ces lignes, je pense.

Ensuite, un conseil : déclare les dimensions maximales en constantes (p.ex. m_max et n_max), et déclare t et k à partir de ces constantes. Ce sera toujours ça de gagné si tu dois adapter/réutiliser ce code plus tard.
Quand tu veux lire m et n : écris un message (write) avant de lire la donnée, ça permet de savoir où on en est. Ensuite, il est préférable de contrôler l'entrée avant de passer à la suite avec soit un if un peu brutal, soit avec une boucle si c'est passé dans ton cours (mais déjà, fais en sorte que ça fonctionne avant de faire ces contrôles si tu ne te sens pas encore à l'aise).

Lecture de t : ok pour la double boucle. Mais idem, affiche quelques mots pour savoir où l'on en est. Comme :
Code:

1 2 write ('valeur de t[', i, ',', j, '] : '); readln (t[i,j]);
Passer de t à k : la double boucle suffit, puisque tu parcours t. Et ta variable l a une valeur qui dépend directement d'une combinaison de i et j : boucle while inutile. Si on y regarde de plus près, on peut même directement affecter :

Code:

k[la_bonne_formule] = t[i,j]

Ton dernier readln ne sert à rien tant que le programme se termine juste après.
Regardes cela à tête reposée, tu y es presque !
19/05/2014, 13h12
droggo

Jia,

Et j'ajoute que vouloir utiliser ce tableau

Code:

k:array[1..1)] of integer;

pour y stocker les données d'une matrice à 2 dimensions est pour le moins curieux. :)
20/05/2014, 00h31
med.ycf

ouii :p c'etait trop tard bon j'ai pas encore arrivè ...pour la bonne formule (k[bonne formue]) j'ai reflèchi a k[i+j-1] mais ça n'a pass marchè alors qu'est ce que je peux faire ???
20/05/2014, 11h03
Stellar7

Que faire : réveiller les neurones ?

Cela ne semble pas nécessiter beaucoup de réflexion, pourtant...:weird:
Les meilleurs amis du programmeur : papier et crayon.

Bon, reprenons : je suppose une matrice t de n lignes par m colonnes.
- on parcours les lignes de 1 à n, donc i varie de 1 à n.
- la i-ème ligne, c'est t[i,1] à t[i,m], donc j varie de 1 à m,

Ce qui donne, à la queue-leu-leu (c'est à dire pour remplir k[]) :
t[1,1] à t[1,m], t[2,1] à t[2,m], ... , t[n,1] à t[n,m]

- la première ligne (i=1) remplit k[1] à k[m],
- la seconde ligne (i=2) remplit k[m+1] à k[m+m],
- la troisième ligne (i=3) remplit k[2m+1] à k[2m+m],
etc
Et là, cela doit faire tilt pour la formule.

Essaye avec un crayon avant de lire le résultat :
k[ ((i-1)*m) + j] = t[i,j]
Pour le coup, j'espère bien ne pas faire d'erreur... :mouarf:
20/05/2014, 17h15
med.ycf

regarde mon ami moi je fais pas le grand j'ai aps pu le faire c pour ça je vous demande j'ai bien essayè mais ça n'a pas marchè alors je veux bien la solution ;)
20/05/2014, 19h35
AdmChiMay

Peut-être ne connais-tu pas l'astuce ?
Tu places ta souris au début de l'avant-dernière ligne, tu tiens le bouton de souris enfoncé, et tu sélectionnes la ligne.
ET paf ! Magie !:D La formule devient visible !
(elle est écrite en blanc)