|
|
| Тема |
 Vinagi li delphi smiata pravilno?... |
|
| Автор | Biser (Нерегистриран) | |
| Публикувано | 25.09.00 00:57 |
|
|
|
Tezi dni se sblaskah s edin mnogo-strashen bug na Delphi ,ne presmiata pravilno niakoi izrazi.
I predi tova mi se e sluchvalo da ne izpolzuvam niakoia promenliva po natatuk v programata i za neia debugera da me laje za stoinosta i.Tova go priemam za neshto logichno, no sega e savsem drugo.
Stava na bapros za edna programa koiato reshava uravnenie ot 4-ta stepen.Napravil sam si procedurata naprimer
TetraEcu (a0,a1,a2,a3,a4:Extended ;
var x1,x2,x3,x4:Extended;
var StatusTetra:TStatusTetra);
t.e. zadavam koeficientite i vmi vrashta korenite
i kolko realni korena ima.
sled tova iskam da ia testvam i naprimer za (x1)
pisha:
x1:=7;
a0:=....niakakvo chislo;
a1:=...
a2:=...
a3:=..., i za svobodnia clen poluchavam
a4:=-(a0*x1*x1*x1*x1+a1*x1*x1*x1+a2*x1*x1+a3*x1)
reshavam ..
TetraEcu(a0,a1,a2,a3,a4,v1,v2,v3,v4,st);
tuk poluchavam za ednoto ot v-tata =7
opredeliam chetirite razliki
Raz1:=abs(x1-v1);
....
Raz2:=abs(x1-v4);
namiram nai-malkoto i
v:=RazMin
zamestvam
Test:=a0*v*v*v*v+a1*v*v*v+a2*v*v+a3*v+a4;
kogato coeficientite sa celi naistina se poluchava v=7 tochno.
i az ochakvam Test=0 obache Test>2000??????????
Sled tova izpolzuvam Test za pokazvane na ekrana
taka che toia sluchai ne e podoben na tezi za koito kazah v nachaloto.
Sled tova pravih dosta opiti i za moia goliama iznenada:
Test:=(a0*v^4+a1*v^3+a2*v^2+a3*v+a4)-
(a0*x1^4+a1*x1^3+a2*x1^2+a3*x1+a4);=0
Vtoroto po zadanie e nula, togava koe e tova
chislo ot koeto kato izvadim 0 shte poluchim nula?
taka az si reshih problema s testa ,no nai-interesnoto e che ne za vsichki koeficienti Delphi greshi, i az ako ne biah se zadulbochil s testa niamashe i da znam za tova,a posledstviata sa....
Ako niakoi ima interes ot sluchkata moga da sloja kartinkite ot debugstvaneto na tazi programa v niakoia stranica i da obiava tuk adresa i.
ako na niakoi mu se e sluchilo neshto podobno
neka kaje.Az si preinstalirah Delphi-to no problema si ostana, no vse pak se sumniavam vav
exzempliara mi.
Izvinete me za mnogoto pisane ,no pokrai tozi test izpisah mnogo poveche za nishto.
| |
| |
| 
|
|
