HyperLink
Bejelentkezés
E-mail: 
Jelszó: 





Skip Navigation Links
 

Másodfokú egyenletet megoldó komponens készítése
Példaprogram letöltése

4405 bájt

Készítünk egy komponenst, amely segítségével könnyedén meghatározhatjuk egy teljes másodfokú egyenlet két gyökét, amennyiben azok léteznek. A gyökök meghatározásához a megoldó képletben szereplő A, B, C tagok értékét kell megadnunk.

A mellékelt példaprogram megnyitása előtt a SecondFormula.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
A komponens működésének alapja a másodfokú egyenlet megoldó képlete. A képlet A, B, C tagjainak értékét a komponens megfelelő nevű property-jében adhatjuk meg.
Az eredményt a Calculate eljárás meghívásával kapjuk meg. 
procedure Calculate(var r: TSecFormResult);
Az eredményt az eljárásnak paraméterként megadott, TSecFormResult típusú változóban kapjuk vissza. 
TSecFormResult = record
  x1: Extended;
  x2: Extended;
  ResIsAvailable: Boolean;
end;
Ha az egyenletnek létezik megoldása, akkor a két gyököt az x1 és x2 tagokban kapjuk meg, a ResIsAvailable értéke pedig igaz, ezzel jelezve, hogy van megoldás.
Ha nincs megoldás, akkor a ResIsAvailable értéke hamis, és az x1, x2 egyaránt 0 értéket tartalmaz.
A komponens Calculate eljárásában a megoldó képletet használjuk fel. 
Disc:=Sqr(FB)-4*FA*FC;
if (Disc>=0) and (FA>0) then begin
  r.x1:=(-FB+Sqrt(Disc))/(2*FA);
  r.x2:=(-FB-Sqrt(Disc))/(2*FA);
  r.ResIsAvailable:=True;
end;
Egy másodfokú egyenletnek akkor nincs megoldása, ha a diszkrimináns (gyökjel alatti rész) értéke kisebb 0-nál, vagy ha az A tag értéke 0.

Cikksorozat

#IDKategóriaCikk címeSorozat
2591WindowsTippek és trükkök - RAS - Modem csengetési szám állítása1. rész
2622WindowsTippek és trükkök - Program futtatása más felhasználóként2. rész
2640WindowsA Windows ikonméretének megváltoztatása és Windows 2000 Asztaltémák3. rész
2657WindowsTippek és trükkök - Internet Explorer4. rész
2667WindowsTippek és trükkök5. rész
2684WindowsAlapértelmezések állítása, telepítési fájlok helye, intéző nézetek6. rész
2696WindowsBiztonsági trükkök7. rész
2702WindowsWindows XP trükkök8. rész
2729WindowsWindows 2000 és XP tippek, trükkök9. rész
2757WindowsRegistry trükkök10. rész
2784WindowsTippek, trükkök11. rész
2829WindowsTippek, trükkök12. rész
2889WindowsWindows XP tippek13. rész
2909WindowsTippek Windows XP-hez14. rész
2919WindowsWindows tippek15. rész
2924WindowsWindows tippek16. rész
2963WindowsWindows tippek17. rész
2973WindowsWindows Tippek18. rész
2981WindowsWindows tippek19. rész
2990WindowsTippek-trükkök20. rész
3027WindowsIIS tippek21. rész
3034WindowsWindows XP tippek-trükkök22. rész
3088WindowsWindows 2000/XP tippek, trükkök23. rész
3133WindowsWindows XP tippcsokor24. rész
3140WindowsWindows XP tippek, trükkök25. rész
3152WindowsXP és IIS tippek - trükkök26. rész
3158WindowsWindows XP tippek, trükkök27. rész
3168WindowsTippek, trükkök28. rész
3170WindowsRegistry trükkök29. rész
3179WindowsTippek, trükkök30. rész
3197WindowsWindows XP tippek, trükkök31. rész
3205WindowsTippek, trükkök32. rész
3214WindowsTippek, trükkök33. rész
3223WindowsTippek, trükkök34. rész
3233WindowsTippek, trükkök35. rész
3271WindowsTippek, trükkök36. rész
3307WindowsTippek, trükkök37. rész
3370WindowsTippek, trükkök38. rész
3399WindowsTippek, trükkök39. rész
3510WindowsTippek, trükkök40. rész
3611WindowsHardverrel kapcsolatos tippek, trükkök41. rész
3668WindowsRegistry trükkök42. rész
3711WindowsTippek, trükkök43. rész
3771WindowsTippek, trükkök44. rész
3801WindowsTippek, trükkök45. rész
3831WindowsTippek, trükkök46. rész
3891WindowsTippek, trükkök47. rész
3921WindowsTippek, trükkök48. rész
3981WindowsTippek, trükkök49. rész
4041WindowsTippek, trükkök50. rész
4071WindowsTippek, trükkök51. rész
4151WindowsTippek, trükkök52. rész
4171C#Tippek, trükkök53. rész
4211WindowsTippek, trükkök54. rész
4251WindowsTippek, trükkök55. rész
4281WindowsTippek, trükkök56. rész
3589DelphiTippek, trükkök57. rész
3718DelphiTippek, trükkök58. rész


Könyv
Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2003 évkönyv 342. oldal

Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!

Copyright © 1999-2012 Animare Software Kft. Minden jog fenntartva!
| Készült: Animare Stúdió | Adatvédelem | Kapcsolat |