Jak na odmocninu v pascalu?
Napsal: pon 5. kvě 2008, 16:40
Tak se pochlubte pánové... Mně by dokonce zajímal i matematický postup. Víte to někdo?
Diskuze o hardware, software a overclockingu
https://forum.pctuning.cz/
nepamatam presne, ale myslim ze na to je funkciaPavel.P. píše:Tak se pochlubte pánové... Mně by dokonce zajímal i matematický postup. Víte to někdo?
Kód: Vybrat vše
//vypocet druhe odmocniny
double OP_sqrt(double a,const TParams *par)
{
if (a<0)
{ //chyba!
return NAN;
}
else if (a==0)
{
return 0;
}
double pom,Y=a;
while (pom>(par->presnost)) //test presnosti
{
pom=Y;
Y=(0.5*((a/Y)+Y)); //Newtonuv iteracni vztah
pom=fabs(pom-Y);
}
return Y;
}Díky, já to už nějak podle toho naprogramuju€agle píše:SQR je podle druhá mocnina, SQRT odmocnina... Pokud tě zajímá, jak se to matematicky počítá, tak koukni sem.