[es] - eksponent

bags

Član broj: 10072
Poruke: 715
*.teol.net

+2 Profil

^{10.06.2003. u 01:59 - pre 254 meseci}

Ima li dodjavola ugradjena funkcija u paskalu da mi moze
uraditi nesto ovako:

for x:=1 to n do
writeln(2^x);

Pregledao sam help,ali ne bas duboko.
Ako nekog ne mrzi neka odgovori.

Znam to uraditi preko rekurzivne funkcije ,ali ima li ugradjena?

Free advice is seldom cheap.

Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
80.93.225.*

+62 Profil

Re: eksponent

^{10.06.2003. u 19:31 - pre 254 meseci}

Pitas za eksponent ili sta?
Ako je eksponent, pogledaj ovo ispod

writeln(Int64(1) shl x);

Ogranicenje je u velicini Int64 - 'samo' osam bajtova, sto znaci najveca pozitivna vrednost bi bila 2^63.
Poz

Rajko

Odgovor na temu

Che-Lik
Milan Milosavljevic
Novi Sad, Kragujevac

Član broj: 11392
Poruke: 15
*.ptt.yu

Sajt: www.MilanChe.tk

Profil

Re: eksponent

^{18.06.2003. u 04:02 - pre 253 meseci}

x^y moze da se odradi rekurzivno ali uzastopnim kvadriranjem. Ne znam da li si i ti mislio na ovu verziju stepenovanja ali u svakom slucaju i da nisi evo source-a pa iskoristi ako ti se svidi

Code:

function Stepen (x,y : Integer) : Integer ;
begin
  if y = 0 then
    Stepen := 1
  else begin
    pom := Stepen (x, y DIV 2) ;
    If Odd ( y ) Then
      Stepen := x * pom * pom
    else
      Stepen := pom * pom ;
  end ;
end ;

Kod je napisan u Pascal/Delphi.
Toliko od mene! U zdravlje!

__________________
Che-gevara
Che-mpres
Che-kic
Che-LIK

Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
*.pexim.co.yu

+62 Profil

Re: eksponent

^{18.06.2003. u 11:04 - pre 253 meseci}

A...hteo si univerzalnu funkciju tipa x^y? Pa imas Power funkciju.
A mozes i ovako nesto:

function Exponent(x, y: double): double;
begin
result := Exp(Ln(x)*y);
end;

Rajko

P.S. Sad sam pogledao u VCL-u: Power funkcija ti je ovaj kod gore + provere opsega za base i exponent.

Odgovor na temu