Don't like ads? PRO users don't see any ads ;-)
Guest

Untitled

By: a guest on May 24th, 2012  |  syntax: Fortran  |  size: 2.05 KB  |  hits: 20  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. program prog
  2. integer m,n,i,j,c
  3.       real A,B,x,y,max
  4.           dimension A(9,9),B(9,9), H(9)
  5.           ! ввод размера матрицы
  6.           print*, 'vvedite razmer i'
  7.           read*, i
  8.           print*, 'vvedite razmer j'
  9.           read*, j
  10.           !ввод элементов
  11.           do m=1,i
  12.            do n=1,j
  13.                   print*, 'vvedite' , m,'X',n
  14.                   read*, A(m,n)
  15.             enddo
  16.           enddo
  17.           ! печать матрицы
  18.           do m=1,i
  19.           print*, (A(m,n),n=1,j)
  20.           enddo
  21.                  print*, '_________________________________________________'
  22.                  print*, A(2,2)
  23.                  print*, '_________________________________________________'
  24.           !поиск максимальных элементов
  25.            do n=1,i
  26.            max=A(n,1)
  27.              do m=1,j
  28.                   if(A(m,n)>max)then
  29.                   max=A(m,n)!максимальный элемент  N столбца           
  30.                   endif
  31.                   H(n)=max !передаю макс элементы в массив
  32.              enddo
  33.            enddo
  34.           print*, H !печать массива
  35.           print*, '_________________________________________________'
  36.           c=0
  37.           max=H(1)
  38.            do m=1,8
  39.            c=m+1
  40.             if(H(m)<H(m+1))then !сортирую массив в порядке убывания
  41.             x=H(m)
  42.             H(m)=H(m+1)
  43.             H(m+1)=x
  44.                 print*, m,'perestanovka zavershena'
  45.                 !print*, A(:,c)
  46.                 print*, '_________________________________________________'
  47.             B(:,m)=A(:,c)
  48.             else
  49.             B(:,m)=A(:,m)
  50.             endif
  51.            enddo
  52.            print*, H !печать массива
  53.            print*, '_________________________________________________'
  54.             !do n=1,9  !при условии перестановки местами элементов
  55.                 ! массива присваиваю столбец N матрицы А метрицt B на нужное место
  56.             !B(m,n)=A(c,n)
  57.                  !enddo
  58.                  !else
  59.                  !do n=1,9  !при условии  НЕ перестановки
  60.                 ! ц N матрицы А метрицt B на нужное место
  61.            ! B(m,n)=A(m,n)
  62.                 !enddo
  63.                 !endif
  64.            !enddo
  65.          do m=1,i
  66.           print*, (B(m,n),n=1,j)
  67.           enddo
  68.                  print*, '_________________________________________________'
  69.           end