pascal-odmocnina

imagination · Napísal **imagination**: 13.10.2007 15:18

neviete nahodou, ci v turbo pascale (alebo v pascale vobec) existuje funkcia, ktora zisti tretiu odmocninu cisla?

qacer · Napísal **qacer**: 13.10.2007 15:31

skus "sqr" alebo skôr "sqrt"

imcold · Napísal **imcold**: 13.10.2007 15:48

AFAIK taká funkcia nie je v štandartnej knižnici. A sqrt je druhá odmocnina...

imagination · Napísal autor témy **imagination**: 13.10.2007 16:36

to je smola...

imagination · Napísal autor témy **imagination**: 13.10.2007 17:01

vies o kniznici, ktoru by som mohla skusit?

imcold · Napísal **imcold**: 13.10.2007 17:39

Nie, ale na internete sa určite nájdu algoritmy na jej vypočítanie.
edit: http://www.edn.com/archives/1998/011598/02di_04.htm (prepis z C do pascalu):

Kód:

program cuberoot;
var
  c: real;

function cube_root(num: real): real;
const
  ERR = 0.00001;
  ROOT_START = 2;
  ITER_MAX = 50;
var
  root: real;
  iter: integer;
  negative: boolean;
begin
  if num < 0 then begin
      negative := true;
      num := -num;
  end
  else
      negative := false;
  root := ROOT_START;      
  iter := 0;

  while (abs(root * root * root - num) >= ERR)
    and (iter < ITER_MAX) do begin
      root := (num / (root * root) + root) / 2;
      iter := iter + 1;
  end;
  
  if negative then 
      cube_root := -root
  else
      cube_root := root;
end;  

begin
  write('zadaj cislo: ');
  readln(c);
  writeln('tretia odmocnina: ', cube_root(c):6:3);
end.

ERR je presnosť, ITER_MAX je maximálny počet iterácií pre vylúčenie nekonečného cyklu, ktorý by vznikol, ak by sa nenašlo dostatočne presné číslo.

juho · Napísal **juho**: 14.10.2007 11:44

pocuvajte mali ste vy niekedy matiku sak hadam cez exponencialnu a logaritmicku funkciu.
(^mocnina) priklad
2^3 = 8 (/log zlogarimovanie)
log 2^3 = log 8 (upravenie mocniny)
3 * log 2 = log 8 (/exp logaritmicka funkcia je inverzna k exponencialnej tak sa rusia)
exp(3 * log 2) = 8 (log pri 2 sa zrusi az po vynasobeni cisla 3)

a odmocnina sa pise v zlomkovom tvare mocninoveho zakladu.

Kód:

var cislo,odmocnina,vysledok:real;
begin
vysledok:=exp((1/odmocnina)*ln(cislo));
writeln(vysledok);
end.