[ tdzo @ 26.04.2006. 10:24 ] @
pozdrav

imam za ovakav zadatk pa ak mi ga možete riješiti i u c++ i u fortranu (verzija 90 pa nadalje)

izračunaj determinantu matrice( dimenzija n<4) pa ju ispiši ...podaci se unose preko standardnog inputa...s time da se prvo unese red matrice

hvala

[Ovu poruku je menjao tdzo dana 26.04.2006. u 11:27 GMT+1]
[ Mali Misha @ 26.04.2006. 12:08 ] @
Znaci matrice 1., 2. i 3. reda









- Unos i kontrola n.
- Unos n2 brojeva koji bi redom bili a,b,c, ... .
- Izracunavanje i ispis trazenog broja po odgovarajucoj formuli.

*edit*
Fortran 90 Programmer's reference
C/C++ reference

[Ovu poruku je menjao Mali Misha dana 26.04.2006. u 13:11 GMT+1]
[ tdzo @ 26.04.2006. 17:32 ] @
hvala poslužit će....napravit ću ovakvo bez for i do petljanja samo s if kontrolom
[ reject @ 26.04.2006. 17:40 ] @
a sto ne bi napravio matricu
Code:

1 1 1
1 1 1
1 1 1

upisao samo onoliko vrednosti koliko user unese u startu
(naravno, na prava mesta) i uradio ko ono gore? Isto ti se vata. :)
[ Mali Misha @ 26.04.2006. 19:01 ] @
reject da ne mislis na matricu

umesto ?

jer je dok je
[ tdzo @ 26.04.2006. 19:14 ] @
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?


[ reject @ 26.04.2006. 19:36 ] @
hehehe, al sam ja zardjo. lele... :)
[ Mali Misha @ 26.04.2006. 20:30 ] @
tdzo, zasto ne rece da ti treba za n ≤ 4? pitam i jer mi se cini da ti algoritam za 4 bas i ne pasuje...

ako ti treba samo jos 4x4, mogao bi da napravis posebnu funkciju za 3x3 pa onda uradis sledece:



U suprotnom vidi npr. Lajbnicovu formulu.

Rezultate mozes da proveravas ovde: http://www.arndt-bruenner.de/mathe/scripts/determinanten.htm
[ tdzo @ 27.04.2006. 13:07 ] @
ma zaboravih..... inace hvala na algoritmima( sarusovo pravilo)....ja sam mislio ju riješit gauss-jordanovom metodom...
[ cloud1 @ 13.10.2014. 23:41 ] @
Zdravo

Dali ima nekoj koj moze da mi pomogne da resam nekoi zadaci, znam deka se lesni megutoa ne mozam da gi resam?

So pomosh na Kramerovo pravilo ili metod na matrici da se resi sistemot od linearni ravenki

A) {2x-y+2z=2
{x+10y-3z=5
{-x+y+z=-3

B) {2x-y+2z-t=2
{x-y+z+t=6
{2x-y-4z+3t=0
{3x+2y-3z+t=2

C) {2x-y+3z=8
{-x+2y+z=4
{3x+y-4z=0