Преобразовать матрицу, осуществив поворот элементов вокруг центра на 90 градусов против часовой стрелки

18.12.2012, 18:23. **Показов** 2190. **Ответов** 1

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

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

@palva · 18.12.2012, 21:42

Fortran

    program Console2
    implicit none
    parameter n=6
    integer a(n,n), i, j, s
    do i=1,n
        do j=1,n
            a(i,j)=100*i+j
        end do
    end do
    print '(<n>i6)', ((a(i,j),j=1,n),i=1,n)
    print *
    do i=1,n/2
        do j=1,n/2.0+0.6
            s=a(i,j)
            a(i,j)=a(j,n-i+1)
            a(j,n-i+1)=a(n-i+1,n-j+1)
            a(n-i+1,n-j+1)=a(n-j+1,i)
            a(n-j+1,i)=s
        end do
    end do
    print '(<n>i6)', ((a(i,j),j=1,n),i=1,n)
    end program Console2

asdf2012
		1
	Преобразовать матрицу, осуществив поворот элементов вокруг центра на 90 градусов против часовой стрелки 18.12.2012, 18:23. Показов 2190. Ответов 1 Метки нет (Все метки) Помогите пожалуйста с заданием никак не получается. Преобразовать массив,осуществив поворот элементов вокруг центра массива на 90 градусов против часовой стрелки. За ранние спасибо.

	18.12.2012, 21:42