Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Переставить местами элементы побочной диагонали

Автор: crus 26.12.2006, 12:46

задача:
Переставить местами элементы побочной диагонали матрицы , симметричные относительно её центра.

0 3 0
1 0 4
0 2 0

1 надо поменять с 2
3 поменять с 4.

Автор: Zero 26.12.2006, 16:01

Код


...
buf := a[2,1];
a[2,1] := a[3,2];
a[3,2] := buf;
...
buf := a[1,2];
a[1,2] := a[2,3];
a[2,3] := buf;
...

а как оформить начало и конец попробуйте сами додуматься, если не получиться, то создавайти тему в разделе центра помощи. Тут только помогают, но не работают за бесплатно.