Magasság- és befogótétel

újat

Szuper!!! :-)

Sajnos nem jó! :-(

m =

................................................................................................................
   Az ABC háromszög derékszögű. (A derékszög a C csúcsnál van.)   
   Számold ki az átfogóhoz tartozó “m” magasságot, az “a” és a “b” 
   oldalak hosszát, s ezen értéket kettő tizedesjegyre kerekítve írd be 
   a megfelelő szövegmezőkbe!
   Tizedespontot használj a beíráskor!
   (Az adatbevitel végét az ENTER jelenti!)
................................................................................................................

a =

b =

Sajnos nem jó! :-(

Szuper!!! :-)

Szuper!!! :-)

Sajnos nem jó! :-(

B = (0, 0)
pSzam = Random(2, 20)
qSzam = Random(2, 20)
qUj = If(pSzam + qSzam > 20, qSzam / 2, qSzam)
pUj = If(pSzam + qSzam > 20, pSzam / 2, pSzam)
melyik = Random(1, 3)
F = If(pSzam + qSzam > 20, (pSzam / 2, 0), (pSzam, 0))
p = Segment(B, F)
A = If(pSzam + qSzam > 20, (pSzam / 2 + qSzam / 2, 0), (pSzam + qSzam, 0))
q = Segment(F, A)
aSzam: sqrt((pSzam * (pSzam + qSzam)))
mSzam: sqrt((pSzam * qSzam))
bSzam: sqrt((qSzam * (pSzam + qSzam)))
C = If(pSzam + qSzam > 20, (pSzam / 2, mSzam / 2), (pSzam, mSzam))
poligon1, c, b, a = Polygon(B, A, C)
Pontpoligon1 = PointIn(poligon1)
m = Segment(C, F)
kerekitesM: round(sqrt((pUj * qUj)), 2)
eredmenyM = 0
beviteliMező1 = Textfield(eredmenyM)
φ = Angle(C, F, B)
γ = Angle(B, C, A)
eredmenyA = 0
eredmenyB = 0
beviteliMező2 = Textfield(eredmenyA)
beviteliMező3 = Textfield(eredmenyB)
kerekitesA: round(sqrt((pUj * (pUj + qUj))), 2)
kerekitesB: round(sqrt((qUj * (qUj + pUj))), 2)