SaveText.Ru

Без имени
  1. program lr6
  2.       dimension A(4,5),B(4),C(5)
  3.         open(100,file='lr6.rez')
  4.         data A(1,1),A(1,2),A(1,3)/1.325,2.047,3.303/
  5.         data A(1,4),A(1,5)/4.861,-5.565/
  6.       data A(2,1),A(2,2),A(2,3)/-0.524,7.333,1.675/
  7.         data A(2,4),A(2,5)/3.212,2.744/
  8.         data A(3,1),A(3,2),A(3,3)/3.111,1.987,2.676/
  9.         data A(3,4),A(3,5)/-4.168,0.999/
  10.       data A(4,1),A(4,2),A(4,3)/0.095,-4.705,5.505/
  11.         data A(4,4),A(4,5)/3.133,-0.333/
  12.         data B(1),B(2),B(3),B(4)/1.594,2.757,0.333,-3.456/
  13.         data C(1),C(2),C(3),C(4),C(5)/0.,0.,0.,0.,0./
  14.  
  15.         X = A(1,1)
  16.         print 10 , X
  17.         do 1 , I=1,4
  18.         do 2 , J=1,I
  19.       if (X.GT.A(I,J)) X=A(I,J)
  20.         print 10 , X
  21. 2     continue
  22. 1     continue
  23.         print 10 , X
  24.         write(100,11)
  25.         write(100,10) X
  26. 11    format('minimum')
  27. 10    format (F7.3)
  28.      
  29.         write(100,14)
  30.         do 20, I=1,4
  31.       do 20 ,J=1,2
  32.         D = A(I,J)
  33.         A(I,J) = A(I,6-J)
  34.         A(I,6-J) = D
  35.         print 10 , A(I,J)
  36. 20    continue
  37. 14    format('new matrix A')
  38.       write(100,13) A(1,1),A(1,2),A(1,3),A(1,4),A(1,5)
  39.         write(100,13) A(2,1),A(2,2),A(2,3),A(2,4),A(2,5)
  40.         write(100,13) A(3,1),A(3,2),A(3,3),A(3,4),A(3,5)
  41.         write(100,13) A(4,1),A(4,2),A(4,3),A(4,4),A(4,5)
  42.  
  43.         write(100,12)
  44.       do 3 , I=1,5
  45.       X = A(1,1)
  46.       do 4 , J=1,4
  47.         do 5 , K=1,5
  48.       LV=X.LE.A(J,K)
  49.         LV1=I.NE.1
  50.         if(LV1) THEN
  51.         do 6 F=1,(I-1)
  52.       LV=LV*(X.NE.C(F))
  53. 6     continue
  54.       end if
  55.       if (LV) then
  56.         X=A(J,K)
  57.         A(J,K)=0
  58.         end if
  59. 5     continue
  60. 4     continue
  61.       C(I) = X
  62.         print 10, C(I)
  63. 12    format('vector c')
  64. 13    format(5F7.3)
  65. 3     continue
  66.         write(100,13) C(1),C(2),C(3),C(4),C(5)
  67.      
  68.       stop
  69.       end

Share with your friends:

Print