Remplissage diagonale matrice en turbo pascal

Fermé
chaleur - 6 juil. 2010 à 22:49
Bonjour,


Bonjour,


j'aimerais avoir votre aide sur le remplissage de la diagonale d'une matrice carré (max 10), les nombres entrés par la diagonale se feront via le clavier,
on désignera avant tout la dimension de la matrice.
on obtiendra par exemple la matrice suivante:

2 - - -
- 5 - -
- - 12 -
- - - 8.

voici ce que j'ai réalisé, mais lorsque je compile, ca ne fonctionne pas.

program diago;
uses crt;
var tab:array[0..10,0..10] of interger;
var i,j, dim, nbre : integer;

BEGIN
writeln ('donnez la dimension de la matrice :' );
readln (dim);

begin
repeat
for i:= 1 to dim do
for j:= 1 to dim do

writeln ('entrer le nombre ' : nbre);
readln (nbre);
until i<>j

end;

for i:= 1 to dim do
for j:= 1 to dim do

write (tab[i,j]: 4);

readln

END.

A voir également: