Bonjour
Je suis une débutante dans la programmation en pascal, et j'ai un problème dans un cours. J'ai un devoir et j'ai de la difficulté à faire afficher ma matrice. Voici les consignes de mon devoir:
Créez un programme qui permettra d’inverser les lignes et les colonnes d’une matrice de N lignes et de N colonnes, c’est-à-dire prendre les informations de la ligne 1 et de les transférer dans la colonne 1.
Le programme devra saisir la matrice, l’inverser, puis faire imprimer la matrice originale et la matrice inversée.
Alors voilà le code que j'ai écrit:
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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61 program Project1; {$APPTYPE CONSOLE} uses SysUtils; type MATRICE1=ARRAY[1..10]OF ARRAY[1..10]OF INTEGER; //MATRICE D'ORIGINE MATRICE2=ARRAY[1..10]OF ARRAY[1..10]OF INTEGER; //MATRICE INVERSÉE Tnombre=record nombre: integer; end; var liste: ARRAY[1..10,1..10] of Tnombre; TABLEAU_1:MATRICE1; TABLEAU_2:MATRICE2; x, y, ligne, colonne, i, grandeur: INTEGER; begin writeln('Inscrire le nombre de lignes et de colonnes de votre matrice ici'); readln(grandeur); writeln(''); colonne:=0; ligne:=0; i:=0; for y:=colonne+1 to grandeur do begin i:=i+1; for x:=ligne+1 to grandeur do begin writeln('Inscrire le nombre de la position:',x, '-',y); readln(liste[i].nombre); liste[i].nombre:=TABLEAU_1[x,y]; end; end; write(TABLEAU_1[x,y]); end; end; write('Appuyez sur ENTREE pour quitter...'); readln; end.
Donc, j'en suis à entrer les données dans la première matrice. Je m'occuperai plus tard de l'inversion. Mais voilà, mes nombres ne s'affiches pas : ce ne sont que des 0 qui apparaissent. De plus, ça ne ressemble même pas à une matrice.![]()
Quelqu'un pourrait m'aider à trouver mon problème??
Merci à l'avance...
[edit]Balises de code ajoutées par Pascal Jankowski[/edit]
Partager