Keskustelu: Koodit: QB: Toisen asteen yhtälö

Tein iltapuhteiksi QBasicilla tällaisen pienen ohjelman, joka ratkaisee 2. asteen yhtälön. Ohjelmasta saattaa olla hyötyä vaikkapa matematiikan läksyjen tarkastamisessa.

DEFDBL A-Z

INPUT "#x², #x, #: ", x2, x1, x0

juuret = x1 ^ 2 - 4 * x2 * x0

IF juuret > 0 THEN
  PRINT "Yhtälöllä on kaksi ratkaisua:"
  PRINT (-x1 + SQR(juuret)) / (2 * x2)
  PRINT (-x1 - SQR(juuret)) / (2 * x2)
ELSEIF juuret = 0 THEN
  PRINT "Yhtälöllä on yksi ratkaisu:"
  PRINT -x1 / (2 * x2)
ELSE
  PRINT "Yhtälöllä ei ole ratkaisua"
END IF

Minulle on hyötyä laskimeeni.

TI-86:lla pystyy ratkaisemaan aina 30. asteen yhtälöihin saakka. Tosin laskin saattaa ratkaista 30. asteen yhtälöä jopa puoli tuntia ;)

Näyttää ihan hyvältä vaikka en voi testata koska olen poistanut oman QB:n.
Pitänee kokeilla tehdä itselleni Visual Basic versio ja jos onnistun niin vielä sellainen joka ratkaisee toisen asteen epäyhtälön. Helpottais nimittäin matikan läksyjen tekoo :)

Arvasinhan :D

Epäyhtälöt tulevat vasta lukiossa ja kirjojen takaa löytyy vastaukset että tuskinpa paljon helpottaa ;)

Epäyhtälöt tulivat meille ainakin 8. luokalla ja tuskin kaikkiin kirjoihin sisältyvät vastaukset?

Ostakaa Graafiset laskimet ;) Ja on kyllä huono kirjasarja jos ei sisällä vastauksia..

Mikä ihmeen epäyhtälö? ;)

niin ja siis jos diskriminantti on < 0, niin yhtälöllä ei ole REAALISIA ratkaisuja, mutta kompleksisia kylläkin :P

Tuosta tosin tulisi PALJON nopeampi Cllä.

mikko: paperilla (ja tavallisella laskimella) voi ratkaista vaikka 100. asteen yhtälön. Aikaa se vaan vie. Kun haarukointia siinä käytetään.
KimmoKM: ja tämä vie sekunnin murto-osiakaan vaikka olisi tehty millä.

Matematiikan läksyjen tarkistamiseen > Matematiikan läksyjen lunttaamiseen :)

KimmoKM: Ja kimmot.