|
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?
|
Registrovani: 67 ( losmipfc, crowder, zorro23, pitikovski, p3j4, mali genije, bvuli12, ogfil, markonny94, Mrki brk, idjuka, Milan Gligorijevic, paskal, enigma78, Tex707, zelja019, mperisic, Časlav Ilić, ranke, valazdin, vbbojan, flx, Milan86, erngab, rsinisa, bugsu, big boss, TEXASSrbija, germanchc, boki71, Kernel-1, websurfer, Nothingman, sdusan2002, Compo, Flash411, legend, CVELE NS, combuster, dexxx, eloiza, zlata.vipic, smars, operic, duksi1993, maxxex, letal3891, etjen, banja_luka, pedja_st, ilija1, sanja2010, drvlada75, euripyd, sava84, ybeelsec, nakal, sholastik, mrHenkey, kumkat, bakancs, boccio, rankez, Horvat., darko_zr, Horvat, mladi MAJSTOR )
računanje determinante matrice
