|
tdzo
Član broj: 92798
Poruke: 6
*.lascina.sczg.hr.
|
program zadaca
implicit none
integer ::q,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p
print*,'unesi dimeziju matrice n (za oblik n*n)najviše do 4'
read*,q
if((q.le.0).and.(q.gt.5)) then !program te baca van!
print*,'promašio si velicinu'
else if(q.eq.1) then
print*,'unesi jedan clan matrice 1*1'
read*,a
print*,'iznos determinante je',a
else if(q.eq.2) then
print*,'unesi 4 clana matrice 2*2'
read*,a,b,c,d
print*,'iznos determinante je',a*d-b*c
else if(q.eq.3) then
print*,'unesi 9 clanova matrice 3*3'
read*,a,b,c,d,e,f,g,h,i
print*,'iznos determinante je',a*e*i+b*f*g+c*d*h-c*e*g-d*b*i-a*f*h
else if(q.eq.4) then
print*,'unesi 16 clanova matrice 4*4'
read*,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p
print*,'iznos determinante je',a*f*k*n+b*g*l*m+c*h*i*n+d*l*j*o-d*g*j*m-c*f*i*n-b*e*l*o-a*h*k*n*m
endif
endprogram
evo programa....napravio sam ga na brzinu....bez ikakvih do petlji....arraya.....(nismo još radili ih)(u fortranu)
samo jedno pitanje:
if((q.le.0).and.(q.gt.5)) then !program te baca van!
print*,'promašio si velicinu'
zašto neće da mi ovo ispiše pod print?
|
računanje determinante matrice
