Stepenovanje u Pascalu!Help!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kako da u pascalu da stepenujem neki broj.Ok znam kada recimo imam 3,40-ti stepen idem sqrt(x)*sqrt(x)*sqt(x)...,ali sta kada je x ulazna promenljiva?

Recimo imam ulazne promenljive a,b i a treba da stepenujem sa b.Kako to da uradim.Ako neko moze da mi pomogne bio bi mu zahvalan!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Citat:Unit

Math

Category

Arithmetic routines

Delphi syntax:

function Power(const Base, Exponent: Extended): Extended;

C++ syntax:

extern PACKAGE Extended __fastcall Power(const Extended Base, const Extended Exponent);

Description

Power raises Base to any power. For fractional exponents or exponents greater than MaxInt, Base must be greater than 0.

SQRT je kvadratni koren, ne stepen.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da da pogresio sam sqrt kada sam napisao zurio sam,ako ja napisem ovaj Delphi syntax u Turbo Pascal hoce proci?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hmmm.... ne bih znao.
Je li uopste postoji unit Math u TP-u ?

Hajde, sada cu i ja da potrazim na netu, pa cu da ti javim ako nesto nadjem.

Dopuna: 20 Jan 2009 21:59

Imas ovde fin tekst za citanje:
[Link mogu videti samo ulogovani korisnici]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ima math,a jel moguce da to nema u Pascalu?Mislim da nema taj nacin stepenovanja?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Na linku koji sam ti dao imas custom funkciju za stepenovanje, pa mozes nju da iskoristis u tvom programu.
Ako neces ili ne mozes tako, onda imas one ugradjene: pow, powi itd.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da video sam evo upravo gledam na tom sajtu,pokusavam,ali mi bas nesto neide ,ali necu tako lako odustati hvala za pomoc!

• 1Ovo se svidja korisniku: nmcyber
  
  Registruj se da bi pohvalio/la poruku!

Evo jedna prosta funkcija za stepen, bez previše ispitivanja.

function stepen(x:real; n:integer):real; var i:integer; begin    result:=1;    for i:=1 to n do result:=result*x; end;

ili jedna rekurzivna

 function stepen(x:real; n:integer):real;  begin    if n<1 then result:=1    else result:=x*stepen(x, n-1)  end;

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Radi funkcija! Hvala zorane!