Forum IV roku Budownictwa

wojhob

moglby ktos zamiescic zadania jakie byly na kole a jak ktos bedzie mial wieksza chwile to opisac rozwiazanie tez... z gory dzieki!!

Pietruch

Jakie były zadania na kole u Kusia? Dało się ściągać? Ma ktoś ogólnie jakieś przydatne 'pomoce' na koło? Wink

sztanior

Zad 1 : Napisac program w fortranie ktory wypelnia macierz
Zad 2 : napisac program w fortranie ktory liczy sume nad przekatna macierzy

Zad2: Program nr 2

Integer I,J,M,N,A(100,100),S

100 Write (*,*) 'Podaj liczne wierszy: N<= 100'
Read (*,*) N

Write (*,*) 'Podaj liczne kolumn: M<= 100'
Read (*,*) M

IF(N.GT.100.OR.M.GT.100.OR.N.LT.1.or.m.lt.1)then
GO TO 100
end if

Write (*,*) 'N=', N, 'M=', M

DO I=1,N
DO J=1,M
WRITE (*,*) 'Podaj element A(',I,',',J,')'
READ (*,*) A(I,J)
END DO
END DO

S=0
DO I=1,N
DO J=1,M
If(I.LT.J)Then
S=S+A(i,j)
End if
end do
end do

Write(*,*)'Suma elementow nad przekatna=',S

pause
end

Pietruch

Dzięki