Napsali jsme si program pro řešení soustavy lineárních
rovnic Gaussovou eliminací.
CV7Gauss.pas
Na začátku příštího cviční si řekneme ještě jednu poznámku
o potřebě tzv. pivotizace
v algoritmu Gaussově eliminaci. Program pro řešení soustavy
s provedením pivotizace je zde
CV7Pgaus.pas
Dále jsme si tošku hráli s typy definovanými výčtem a
pracovali s vektory ve 3D prostoru.
Zde uvádím program, který definuje množinu vektorů jejichž
koncové body tvoří čtyřstěn.
Definice se provádí v soustavě souřadnic, kde se čtyřstěn
dobře zadává. Poté se množina
bodů otočí tak, aby jeden z vrcholů a těžiště ležely
na ose z a spočte se moment setrvačnosti
kolem této osy.
CV7Vektor.pas