projekt z infy.txt

(0 KB) Pobierz

c Projekt nr1 z cwiczen
       real A(100,100),N,M,I,J,D,K,W

       write(*,*)'podaj wymiar N,M'

       read(*,*)N,M

       Do I=1,N

       Do J=1,M

       write(*,*)'podaj wartość A(',I,',',J,')'

       read(*,*)A(I,J)

       end Do

       end Do

       Do I=1,N

       D=A(I,1)*A(I,2)

       K=A(I,J)*A(I,J+1)

       Do J=2,M

       if(D.lt.K)then

       K=A(I,J)*A(I,J+1)

       if(D.gt.K)then

       Do J=J+1,M

       read(*,*)W(N,M)

       Do I=I+1,N

       read(*,*)W(N,M)

       end Do

       end Do

       end Do

       end Do

       end

projekt z infy.txt

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika: