Navigace
· administrace sešitů· Domů
· TWIDDLA-whiteboard
· Kvízy - Kahoot!
· Testy-Socrative
· Tematické plány IVT
· Literatura
· Výuka IVT
· Program - seminář 3.r. 2016/17
· Program-seminář 4.r. - 2016/17
· Program IVT 1.A 2016/17
· IVT 1.A - 2015/16
· Seminární práce
· Maturita z IVT
· Ke stažení
· Odkazy
· Galerie fotek
· Kontakt
· FAQ
· Vyhledávání
· Rozvrh hodin + supl
· KALKULAČKA
· DIGI III
· Pokusná výuka - ONENOTE
Kdo je on-line
· Hosté on-line: 4· Členové on-line: 0
· Registrovaní členové: 3
· Nejnovější člen: zavadil
Přihlášení
Nejste členem?
Klikněte sem
a zaregistrujte se.
Zapomněli jste heslo?
Pro zaslání nového
Klikněte sem.
Photo cloud
Dodavatelem školní verze konstrukčního 2D&3D programu progeCAD Professional je konstrukční a vývojová kancelář SoliCAD, s.r.o.
13. Příklad na podmíněné příkazy a matematické funkce – kořeny kvadratické rovnice
V tomto příkladu využijeme známý vzorec pro výpočet kořenů kvadratické rovnice:
Stejně jako my bude program počítat jen tehdy, když bude diskriminant kladný nebo nulový. V opačném případě bude vypsáno hlášení, že daná rovnice nemá řešení.
Vzhled aplikace – jeho vytvoření, úprava formuláře
PictureBox: obohatíme formulář o obrázek – v našem případě jako obrázek budou sloužit vzorce kvadratické rovnice a obrázek pejska. Nastavením vlastnosti Image nastavíme název souboru s obrázkem, který hodláme načíst. Vlastnost Visible určuje, má-li být viditelný při spuštění obrázku. (V tomto případě True)
SizeMode: Normal – obrázek zústane ve své skutečné velikosti, StretchImage – obrázek se přizpůsobí zadaným rozměrů
Zdrojový kód aplikace
Dim A As Single
Dim B As Single
Dim C As Single
Dim D As Single
Dim X1 As Double
Dim X2 As Double
A = Val(txtA.Text)
B = Val(txtB.Text)
C = Val(txtC.Text)
D = B ^ 2 - (4 * A * C)
If D >= 0 Then
X1 = (-B + (D ^ (1 / 2))) / (2 * A)
X2 = (-B - (D ^ (1 / 2))) / (2 * A)
txtX1.Text = X1
txtX2.Text = X2
Else
MsgBox("Nemá řešení")
End If
Je určitě zřejmé, co program dělá.
Kód dále doplníme o část, která ošetřuje případ, kdy zadáme za koeficient A nulu – tím pádem neřešíme kvadratickou, ale lineární rovnici!!
If D >= 0 Then
If A <> 0 Then
X1 = (-B + (Sqrt(D))) / (2 * A)
X2 = (-B - (Sqrt(D))) / (2 * A)
txtX1.Text = X1
txtX2.Text = X2
Else
X1 = (-C / B)
txtX1.Text = X1
MsgBox("Není to kvadratická rovnice")
End If
Else
MsgBox("Nemá řešení")
End If
A takto vypadá spuštěný program:
Úkoly:
Vytvořte samostatně výše uvedený program.
Přidat komentář
Pro přidání komentáře musíte být přihlášený.Hodnocení
Hodnotit mohou pouze přihlášení uživatelé.
Prosím přihlaště senebo se registrujte pro možnost hodnocení.
Prosím přihlaště senebo se registrujte pro možnost hodnocení.
Zatím nikdo nehodnotil.