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ággot, s ezt az értéket 
   kettő tizedesjegyre kerekítve írd be a szövegmezőbe!
   Tizedespontot használj a beíráskor!
   (Az adatbevitel végét az ENTER jelenti!)
............................................................................................................

B: (0, 0)
melyik = Random(1, 3)
qSzam = Random(2, 20)
pSzam = Random(2, 20)
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)
eredmeny: 5.48
kerekites: round(sqrt((pSzam * qSzam)), 2)
beviteliMező1 = Textfield(eredmeny)
φ = Angle(C, F, B)
γ = Angle(B, C, A)