pomoc u vezi sa visual basicom. hitno!!!

auh...a jel znas kako se resava sistem jednacina?

17 mod 5 = 2, tj. 5*3 +2 = 17

sistem je oblika
a1x + b1y + c1z = d1
a2x + b2y + c2z = d2
a3x + b3y + c3z = d3

e sad, tu ima nekih nezgodnih stvari...ali posto si verovatno u srednjoj skoli tebe to u ovom slucaju ne interesuje posebno vec ti treba program koji ce da ispise resenje ako ga ima, ili prijavi da ga nema. najjednostavnije je da koristis kramerov postupak

D = a1b2c3 + a2b3c1 + a3b1c2 - a1b3c2 - a2b1c3 - a3b2c1
Dz = a1b2d3 + a2b3d1 + a3b1d2 - a1b3d2 - a2b1d3 - a3b2d1
Dy = a1d2c3 + a2d3c1 + a3d1c2 - a1d3c2 - a2d1c3 - a3d2c1
Dx = d1b2c3 + d2b3c1 + d3b1c2 - d1b3c2 - d2b1c3 - d3b2c1

ako je D <> 0 onda su resenja x=Dx/d, y=Dy/d, z=Dz/D
ako je D = 0 onda nema resenja, ili ih ima beskonacno

e sad, ne znam vb, pa cu da ti opisno ispisem kako bi to trebalo da izgleda

--pocetak

ispisi 'Unesi koeficijente a,b,c i resenje d prvog sistema'
ucitaj (a1,b1,c1,d1)

ispisi 'Unesi koeficijente a,b,c i resenje d drugog sistema'
ucitaj (a2,b2,c2,d2)

ispisi 'Unesi koeficijente a,b,c i resenje d treceg sistema'
ucitaj (a2,b2,c2,d2)

D = ... (po formuli gore)

ako D=0 ispisi 'Nema resenja'
u suprotnom
{
Dx = ...
Dy = ...
Dz = ...
ispisi ('x =', Dx)
ispisi ('y=',Dy)
ispisi('z=',Dz)
}

kraj--
 

Back
Top