Matice otoceni – Pascal – Fórum – Programujte.com

Ahojky, mám problém s jedním programem, upozorňuji, že jsem uplný začatečník....mám otočit matici o 180stupňů, ale nějak si nevím rady......chtěla bych ji nejspíš otočit 2x o 90stupňů...

program maticee;
const max=10;

var n,x,y:integer;
    matice: array[1..max,1..max] of integer;

//matice+obracena o 90 stupnu

  begin
    write('napiste rozmer matice: ');
    readln(n);
    for x:=1 to n do begin
      for y:=1 to n do begin
        write('zadej radek ',x,' sloupec ',y,'  :  ');
        readln(matice[x,y]);

      end;
    end;
    writeln;
    writeln;
    writeln;
      for x:=1 to n do begin
      for y:=1 to n do begin
        write(matice[x,y],'  ');
      end;
      writeln();
     end;
    writeln;
    writeln;

    for x:=1 to n do begin
    for y:=n downto 1 do

 write (matice[y,x], '  ');

    writeln;

     end;

    writeln;

    readln();
  end.

Jenže ji zvládnu otočit pouze jednou o 90 a dál si nevím rady, poradil by mi někdo?

Popřípadě i jak se dá otočit rovnou o 180 stupnu?

Mockrát děkuji.

pokud mozno bez procedur :-)

nema smysl otacet to 2x po 90 ... jednou po 180 to bude rychlejsi

jen se musi vedet, co se s cim prohazuje a asi to bude neco ve stylu:

tmp := matice[x,y];
matice[x,y] := matice[n-x+1,n-y+1];  // tusim ze tam to +1 bude muset byt, jelikoz index nezacina od 0 ale od 1
matice[n-x+1,n-y+1] := tmp; 

a nezapomenout skoncit v pulce :D jinak se to zase prohazi na puvodni mista v druhy polovine

Slovy: první prvek prvního řádku skončí jako poslední prvek posledního řádku, druhý prvek prvního řádku jako předposlední prvek posledního řádku... a pak stačí tuhle šarádu zapsat pomocí indexů pole a nezapomenout, že při výměně obsahu dvou proměnných (prvků pole) je potřeba použít pomocnou proměnnou (jak napsal KIIV)

hu

Mockrát děkuji, sice jsem to moc nepochopila, ale od každého jsem si vzala něco a zkoušela to dotý doby než to začlo fungovat   

tak jsem kus kodu od KIIVA napsala do vypisu matice akorát jsem teda nikdě nepotřebovala tu pomocnou proměnnou 

   for x:=1 to n do begin
    for y:=1 to n do
write(matice[n-x+1,n-y+1], '  '); 

Hlavní je, že to funguje, takže ještě jednou Vám moc děkuji   

#5 Radulinka
jo jestli to stacilo jen vypsat, tak to zadnou pomocnou promennou nepotrebuje

ja to bral jako ze se to otoci primo v tom poli...

o trosku jednodussi by to bylo otocit do jineho pole a priblizne stejne slozity je to jen otocene vypsat :)