VPF::[Pascal] поворот матрицы - Форум программистов

nitrak

Дата 5.6.2008, 13:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 25.12.2006

Репутация: нет
Всего: нет

Дана квадратная матрица NxN, состоящая из натуральных чисел.
Повернуть ее на 90 градусов по часовой стрелке и вывести результат на экран

вот то что у меня получилось

Код


Program Z15;

const
      NP = 127; 
var
   А, В : array[l..NP, 1..NP] of Shortint;
   N,J,I: Shoritnt; 

begin
   Write('Введите размер матрицы N = '); 
   Readln (N);

{ВВОД МАССИВА}
Writeln('Введите матрицу');
for I:= 1 to N do 
       for J:= 1 to N do
             read(A[I,J]);

{Поворот массива на 90 градусов}   
Writeln('Матрица после поворота на 90 Градусов'); 
   for I:= 1 to N do
     begin
           for J:= 1 to N do 
                        begin
                        B[I,J] :=A[N+1-J,I];
                                    if J<M then
                                            Write(B[I,J],' ')
                                    Else 
                                         Writeln(B[I,J],' ') 
                                    end;
           writeln;
        end;
   readln;
   readln;
end.

а нужно сделать с помощью процедур в тех местах где у меня{}....

Процедуру ввода массива я сделал:

Код


 procedure input(N:shortint; Var A;TM);
   var
   I,J: shortint;
   begin
   Writeln('Введите матрицу');
   for I:= 1 to N do 
             for J:= 1 to N do
                     read(A[I,J]);
   end;

А вот процедура поворота на 90 градусов не выходит..
вопрос как её сделать?

KasMP

Дата 5.6.2008, 22:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Завсегдатай
Сообщений: 586
Регистрация: 8.8.2006

Репутация: 1
Всего: 30

Оформлено немного не так, как ты просил (не процедура, а программа; элементы матрицы не считываются, а изначально заданы), но сути это не меняет.
Работает правильно smile

Код


const   n=5;

{создали тип для нужной нам матрицы}
type    Tm=array[1..n,1..n] of integer;

procedure WriteMatrix (var q: Tm);
    var    i, j: integer;
    begin
    writeln;
    for i:=1 to n do
        begin
        for j:=1 to n do write(q[i,j]:5);
        writeln;
        end;
    end;


var    i, j: integer;
    m, new: Tm;

begin
writeln;

{заполняем начальную матрицу; у тебя здесь будет твоя процедура "input"}
for i:=1 to n do
    for j:=1 to n do m[i,j]:=i*10+j;
WriteMatrix(m);

{заполняем перевернутую матрицу}
for i:=1 to n do
    for j:=1 to n do new[j,n-i+1]:=m[i,j];
WriteMatrix(new);

readln;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »