11.01.2011, 20:12 | #1 (permalink) |
Новичок
Регистрация: 11.01.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
У меня вопрос по программе
у меня вопрос по программе . Вот смотрите вводим матрицу 1122 1122 4433 4433 после перемещений она должна стать 3344 3344 2211 2211 ну у меня максимум получался один квадрат правельный) изначально была другая праграмма просто препод попрасил переделать) Помогите пожалуйста) program laba; var i,j,k,l:integer; a: array[1..100, 1..100] of integer; b: array[1..100, 1..100] of integer; c: array[1..100, 1..100] of integer; n,y,x:integer; begin write('BBedi N='); readln(n); For i:=1 to n do for j:=1 to n do begin write('a[',i,j,']='); readln(a[i,j]); end; writeln('ishodnay'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln(); end; b:=a; for i:=1 to n do begin b[i,i]:=a[n-i+1,n-i+1]; b[n-i+1,n-i+1]:=a[i,i]; end; for i:=1 to n do begin b[i,n-i+1]:=a[n-i+1,i]; b[n-i+1,i]:=a[i,n-i+1]; end; for i:=1 to n do begin for j:=1 to n do begin Write(b[i,j] :4); end; writeln; end; end. |
11.01.2011, 20:12 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Информация которая содержится в этих обсуждениях должна вам помочь Как работать в программе Speed Video Splitter4.3.31? Ошибки в программе Помощь в программе Вопрос о программе Помощь в программе Параметр AUX в программе Speedfan |
11.01.2011, 20:31 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Опишите закон (правило), по которому происходит преобразование матрицы. А то, знаете ли, восстанавливать его из вашей (к тому же неверно работающей) программы и примера и сложно и нет ни малейшего желания.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|