Развернуть матрицу на 90* по часовой стрелке. Заполнить секторы матрицы, которые лежат выше и ниже главной и побочной диагоналей линейной последовател

@hoochie · Регистрация: 16.12.2009

Author24 — интернет-сервис помощи студентам

Напишите пожалуйста программу!!!!!СПАСИБО!!!!!!!
Развернуть матрицу на 90o по часовой стрелке. Заполнить секторы матрицы, которые лежат выше и ниже главной и побочной диагоналей линейной последовательностью от левого верхнего угла вниз - вправо. Ввод, вывод и манипуляции с элементами матрицы оформить в виде подпрограмм, которые должны содержаться в отдельном модуле.

Добавлено через 20 часов 27 минут

Сообщение от hoochie

Напишите пожалуйста программу!!!!!СПАСИБО!!!!!!!
Развернуть матрицу на 90o по часовой стрелке. Заполнить секторы матрицы, которые лежат выше и ниже главной и побочной диагоналей линейной последовательностью от левого верхнего угла вниз - вправо. Ввод, вывод и манипуляции с элементами матрицы оформить в виде подпрограмм, которые должны содержаться в отдельном модуле.

вот матрицу развернул,а что дальше делать не знаю.
Подскажите плиз!!!!

Добавлено через 1 минуту

Сообщение от hoochie

Напишите пожалуйста программу!!!!!СПАСИБО!!!!!!!
Развернуть матрицу на 90o по часовой стрелке. Заполнить секторы матрицы, которые лежат выше и ниже главной и побочной диагоналей линейной последовательностью от левого верхнего угла вниз - вправо. Ввод, вывод и манипуляции с элементами матрицы оформить в виде подпрограмм, которые должны содержаться в отдельном модуле.

вот матрицу развернул,а что дальше делать не знаю.
Подскажите плиз!

Pascal

uses crt;
const n =8;
var a,at:array[1..n,1..n]of integer;
    i,j:integer;
begin
clrscr;
writeln('Ishodnaia matrica:');
for i:= 1 to n do
  begin
    for j:=1 to n do
       begin
         a[i,j]:=10*i+j;
         write(a[i,j]:4);
       end;
    writeln;
 end;
writeln('Transponirovannaia matrica:');
for i:= 1 to n do
  begin
    for j:=1 to n do
       begin
         at[i,j]:=a[j,i];
         write(at[i,j]:4);
       end;
    writeln;
 end;
readln
end.

!!!

	17.12.2009, 20:36

Опции темы