У меня вопрос по программе
Помогите пожалуйста по паскалю
у меня вопрос по программе . Вот смотрите вводим матрицу 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. |
Опишите закон (правило), по которому происходит преобразование матрицы. А то, знаете ли, восстанавливать его из вашей (к тому же неверно работающей) программы и примера и сложно и нет ни малейшего желания.
|
Часовой пояс GMT +4, время: 09:19. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.