|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.01.2011, 22:49 | #1 |
Регистрация: 12.12.2010
Сообщений: 8
|
2мерные массивы
Помогите пожалуйста доделать))))
Квадратный массив С(m,n) перобразовать в массив D(m,n) в котором элементы из массива поменяются местами симметрично относително главной диагонали . var D,a:array[1..10,1..10] of integer; o,j,i,m,n,e:integer; begin clrscr; write ('Кол-во строк '); read (m); write ('кол-во столбцов'); read (n); for i:=1 to m do for j:=1 to n do begin gotoxy (1,3); write ('Введите a[',i,',',j,']'); read (a[i,j]); gotoxy (e+5*j,4+i); write (a[i,j]); e:=5*e; if j=n then e:=0; end; for i:=1 to m do for j:=1 to n do begin D[i,j]:=a[i,j]; gotoxy(e+j,14+i); gotoxy (1,8); write('Массив D :'); gotoxy (e+j,9+i); write (D[i,j]); e:=e+6; if j=n then e:=0 end; readkey; end. |
19.01.2011, 08:36 | #2 |
Форумчанин
Регистрация: 20.11.2010
Сообщений: 221
|
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Динамические массивы и массивы варианты | N@stya | Помощь студентам | 0 | 11.06.2010 21:09 |
2мерные массивы и не только...вы же добрые-посмотрите =) | KristiNochka | Помощь студентам | 3 | 28.01.2010 18:57 |
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент | LyaLya | Помощь студентам | 15 | 20.12.2009 14:12 |
Pascal: 2мерные массивы, файлы | bycahf | Помощь студентам | 3 | 31.05.2009 20:49 |
помогите решить задачку на 2мерные масивы | xartion | Помощь студентам | 2 | 15.05.2009 18:11 |