Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Programowanie, matura
anonim




Typ: Nie zarejestrowany
Programowanie, matura

Witam, zdaje w tym roku mature z informatyki(trzeba bylo wybrac sobie jezyk w ktorym bede pisal zarowno w czesci pisemnej-na arkuszu, bez dostepu do kompa- jak i na kompie), wybralem Visual Basic .NET
Teraz chodzi mi o ta czesc na arkuszu gdzie trzeba przedstawic dane rozwiazanie problemu za pomoca wybranego przez siebie jezyka. W VB.NET dany kod przyporzadkowuje sie danej kontrolce. Czy piszac wiec program np. wyszukujacy pierwiastki rownania kwadratowego mam pisac na tym arkuszu rowniez nazwy tych kontrolek, gdzie sprawdzajacy nie widzi "formy"? Np. taki progam przeze mnie napisany tak wyglada:

    Dim a, b, c As Double
    Dim nieKoniec As Boolean

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        czytajDane()
        If nieKoniec Then Exit Sub
        If delta() < 0 Then
            brakPierw()
        ElseIf delta() = 0 Then
            jedenPierw()
        Else
            dwaPierw()
        End If
    End Sub
    Sub czytajDane()
        nieKoniec = True
        If Not IsNumeric(TextBox1.Text) OrElse (TextBox2.Text = 0) Then
            MessageBox.Show("Argument a nie jest liczba, badz jest rowny 0!"
            Exit Sub
        End If
        a = TextBox1.Text
        If Not IsNumeric(TextBox2.Text) Then
            MessageBox.Show("Argument b nie jest liczba!"
            Exit Sub
        End If
        b = TextBox2.Text
        If Not IsNumeric(TextBox3.Text) Then
            MessageBox.Show("argument c nie jest liczba!"
            Exit Sub
        End If
        c = TextBox3.Text
        nieKoniec = False
    End Sub
    Function delta()
        Return b * b - 4 * a * c
    End Function
    Sub brakpierw()
        Label4.Text = "To rownanie nie posiada pierwiastkow"
        Label5.Text = ""
        Label6.Text = ""
    End Sub
    Sub jedenpierw()
        Dim x As Double
        x = -b / (2 * 1)
        Label4.Text = "TO rownanie posiada jeden pierwiastek"
        Label5.Text = "x = " & x.ToString("n4"
        Label6.Text = ""
    End Sub
    Sub dwapierw()
        Dim x1, x2 As Double
        x1 = (-b - Math.Sqrt(delta)) / (2 * a)
        x2 = (-b + Math.Sqrt(delta)) / (2 * a)
        Label4.Text = "To rownianie posiada dwa pierwiastki"
        Label5.Text = "x1 = " & x1.ToString("n4"
        Label6.Text = "x2 = " & x2.ToString("n4"
    End Sub

12-02-2005 00:28
  
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Witam,
Ciezko mi sie wypowiadac w sprawie matury z informatyki bo takiej nie zdawalem aby sie dostac na informatyke, proponuje ci abys sprawdzil czy informacji tych nie da sie wydobyc ze strony MEN-u lub sprobuj porozmawiac ze swoim prowadzacym zajecia/ fakultet chyba on powinien ci udzielic odpowiedzi.
Mam jednak male ale co do programu przygladalem sie mu przez chwile ale to nie prawda ze jak delta jest ujemna to nie ma pierwiastkow rownania, pierwiastki sa i sa to pierwiastki zespolone. Nie wiem jak inni uzytkownicy forum ale ja mialem poruszany taki temat w liceum.
Pozdrawiam
Andrzej


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

12-02-2005 02:13
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Mnie jedynie wspominali o tym, że istnieją liczby zespolone, ale nie nie uczyli ich używania. Tym bardziej rozwiązywania równań kwadratowych z ich użyciem. Na informatyce mieliśmy równania kwadratowe rozwiązywane w podobny sposób. Ale sądzę, że najlepiej będzie, jeśli spytasz o to prowadzącego fakultety/zajęcia.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

12-02-2005 11:06
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1