Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


andragrads ekvation

Postades av 2004-10-15 20:14:40 - Christina Antonsson, i forum vb.net, Tråden har 8 Kommentarer och lästs av 740 personer

har gjort en formel (((-b) + Math.Sqrt(b ^ 2 - 4 * a * c)) / (2 * a))
den fungerar
men jag vill få i mitt svarsruta att :

x1 = ngt och x2 = ngt
x1 = x2 = ngt
ingen lösning

när jag kör mitt program så kan jag inte få att den visar det sista alternativet och då undrar jag vad jag ska göra för att det ska göra detta
programet visa istället x1 = NaN och x2 = NaN


Svara

Sv: andragrads ekvation

Postades av 2004-10-15 20:22:43 - Per Hultqvist

Troligen har du i din ekvation dividerat noll med noll eller liknande. Om t ex a=0 och b=0 så får du nog detta felet. Använd funktionen Double.IsNaN() för att kolla om resultatet blir NaN (=Not a number)...

Ex:

<code>
MessageBox.Show(Double.IsNaN(0 / 0).ToString())
</code>

Visar texten "True"....


Svara

Sv: andragrads ekvation

Postades av 2004-10-15 20:24:14 - Per Persson

Princip:
<code>
Let d = b^2 - 4*a*c

If d < 0 Then
Ingen lösning

ElseIf d = 0 Then
x1 = x2 = -b/(2*a)

Else 'If d > 0
x1 = (-b + sqrt(d))/(2*a)
x2 = (-b - sqrt(d))/(2*a)
</code>


Svara

Sv: andragrads ekvation

Postades av 2004-10-15 21:12:54 - Christina Antonsson

det lutar åt att din lösning är den jag behöver men jag förstår inte hur jag ska få den till det
x1 = rotenurplus(a, b, c)
x2 = rotenurminus(a, b, c)

Dim svar1 As String = " x1 = "
Dim svar2 As String = "; x2 = "
Dim svar3 As String = "x1 = x2 = "
Dim svar4 As String = "No solution"

If x1 <> x2 Then
TextBox4.Text = svar1 & x1 & svar2 & x2
ElseIf x1 = x2 Then
TextBox4.Text = svar3 & x1

men sen är det hur jag ska få din lösning att fungera i detta, det är så att jag är nybörjare och har precis börjat läsa vb.net till denna övning så ska jag kolla tre olika värden

a b c
1 -11 28 denna fungerar
1 -6 9 denna fungerar
1 4 5 men inte denna utan jag får NaN som svar

så var är det jag gör fel, tänker fel,....


Svara

Sv: andragrads ekvation

Postades av 2004-10-15 22:06:00 - Per Persson

Du får inte räkna ut x1 och x2 om b^2 - 4*a*c är negativt.

<code>
Dim d As Integer ' om a, b och c bara kan vara heltal, annars är Double lämpligt
d = b^2 - 4*a*c

Dim svar As String

If d < 0 Then
svar = "Ingen lösning"

ElseIf d = 0 Then
svar = "x1 = x2 = " & -b/(2*a)

Else 'If d > 0
svar = "x1 = " & (-b + sqrt(d))/(2*a) & "; x2 = " & (-b - sqrt(d))/(2*a)

TextBox4.Text = svar
</code>


Svara

Sv: andragrads ekvation

Postades av 2004-10-15 23:11:42 - Christina Antonsson

Tack, nu blev det rätt
det hade tagit längre tid för mig att lösa detta


Svara

Sv: andragrads ekvation

Postades av 2004-10-15 23:12:44 - Christina Antonsson

Tack, nu blev det rätt
det hade tagit längre tid för mig att lösa detta


Svara

Sv: andragrads ekvation

Postades av 2004-10-15 23:40:44 - Per Persson

Se bara till att du förstår lösningen också.


Svara

Sv: andragrads ekvation

Postades av 2004-10-16 12:07:39 - Christina Antonsson

jag tror att jag gör det, hade gjort 2 funktioner och var på väg att göra en tredje men så blev jag osäker och fick för mig att jag var fel ute, tog fram mina matteböcker för att friska upp minnet, men i programmering så gör man lite annorlunda, eller är det bara jag som tycker detta


Svara

Nyligen

  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players
  • 19:38 Rekommendera något intressant
  • 19:13 Международная перевозка грузов
  • 00:01 DL Van Tuning | Exclusive Body Kit

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 888
27 965
271 777
7 054
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies