Stepenovanje u Pascalu!Help!

Stepenovanje u Pascalu!Help!

offline
  • Student informatike
  • Pridružio: 26 Mar 2008
  • Poruke: 293
  • Gde živiš: Novi Sad

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? Confused

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! Smile



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

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.



offline
  • Student informatike
  • Pridružio: 26 Mar 2008
  • Poruke: 293
  • Gde živiš: Novi Sad

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

offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

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:
http://dn.codegear.com/article/20026

offline
  • Student informatike
  • Pridružio: 26 Mar 2008
  • Poruke: 293
  • Gde živiš: Novi Sad

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

offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

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.

offline
  • Student informatike
  • Pridružio: 26 Mar 2008
  • Poruke: 293
  • Gde živiš: Novi Sad

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

offline
  • Pridružio: 02 Jul 2008
  • Poruke: 125

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;

offline
  • Student informatike
  • Pridružio: 26 Mar 2008
  • Poruke: 293
  • Gde živiš: Novi Sad

Radi funkcija! Hvala zorane!

Ko je trenutno na forumu
 

Ukupno su 1019 korisnika na forumu :: 71 registrovanih, 9 sakrivenih i 939 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: ajo baba, Arsenije, bavar357, Ben Roj, black venom, bladesu, Bobrock1, bojank, Brada i Gibanica, BraneS, Branke90, brundo65, Bubimir, Buda Baba, dejanbenkovic, Denaya, draganl, Drug pukovnik, Duh sa sekirom, goran.vvv, havoc995, hyla, ILGromovnik, ivan1973, JOntra, kairos, komkom, krlebgd77, kunktator, kybonacci, mercedesamg, Miki01, Miskohd, nikoladim, Nobunaga, nuke92, opt1, oreno, pajtos, panzerwaffe, Paor, Parker, pein, peruni, Rakenica, RiV, rkekoke, Rogan33, royst33, samsung, Shinobi, Singidunumac, skvara, Skywhaler, slonic_tonic, Snorks, Srle993, Steeeefan, StepskiVuk, Stuka76, Toni, upitnik, Vlada1389, vladetije, vukovi, Webb, Zerajic, Zmaj001, Zvrk, zxstole, |_MeD_|