BunoCS
Messages postés15476Date d'inscriptionlundi 11 juillet 2005StatutModérateurDernière intervention 3 mai 2024103 12 déc. 2007 à 19:28
Salut,
Cela revient à inverser les lignes et les colonnes ça, non?
En gros tab[i][j]=tab[j][i].
Attention à prendre en compte le fait que ton tableau 2D n'est pas forcément carré...
Buno
----------------------------------------
L'urgent est fait, l'impossible est en cours. Pour les miracles, prévoir un délai...
Le site de mon mariage
f0xi
Messages postés4205Date d'inscriptionsamedi 16 octobre 2004StatutModérateurDernière intervention12 mars 202235 13 déc. 2007 à 01:17
const
N = 3;
type
tableau = array[0..n-1, 0..n-1] of integer;
procedure Rotate90H(const src: tableau; out dest: tableau);
var x,y: integer;
begin
for y := 0 to n-1 do
for x := 0 to n-1 do
dest[n-y-1,x] := src[x,y];
end;
procedure Rotate90AH(const src: tableau; out dest: tableau);
var x,y: integer;
begin
for y := 0 to n-1 do
for x := 0 to n-1 do
dest[y,n-x-1] := src[x,y];
end;