Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  abcd
Language: FORTRAN
Code:
      Program DANE
C     -------------------------------------------
C        Kody do wczytywania elementow macierzy
C     -------------------------------------------
      real A(10,10)
      integer i,j,n,m

C     -------------------------------------------
C     wczytywanie z pliku
C     -------------------------------------------
         open(1,file='dane.dat',status='old')
           read(1,*) n
           read(1,*) m
           do i=1,n
             read(1,*) (A(i,j), j=1,m)
           enddo
         close(1)
C     -------------------------------------------


C     -------------------------------------------
C     wczytywanie z klawiatury
C     -------------------------------------------
C         write(*,*) 'Podaj liczbe wierszy macierzy'
C         read(*,*) n
C         write(*,*) 'Podaj liczbe kolumn macierzy'
C         read(*,*) m
C
C         do i=1,n
C           do j=1,m
C             write(*,*) 'A[',i,' ,',j,']'
C             read(*,*) A(i,j)
C           enddo
C         enddo
C      ------------------------------------------


C      ------------------------------------------
C      drukowanie na ekranie
C      ------------------------------------------
         do i=1,n
           write(*,*) (A(i,j), j=1,m)
         enddo
C      ------------------------------------------
      END          
          
Comments: