MyCity » Pascal » Stepenovanje u Pascalu!Help!

Stepenovanje u Pascalu!Help!

Napisano na dan: 20.1.2009

Stepenovanje u Pascalu!Help!
Sledeća strana Pagination

Idi na vrh

Poslao: 20 Jan 2009 21:09
Idi na vrh
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.
Poslao: 20 Jan 2009 21:21
Idi na vrh
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.



Poslao: 20 Jan 2009 21:53
Idi na vrh
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?

Poslao: 20 Jan 2009 21:59
Idi na vrh
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:
[Link mogu videti samo ulogovani korisnici]

Poslao: 20 Jan 2009 22:26
Idi na vrh
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?

Poslao: 20 Jan 2009 22:32
Idi na vrh
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.

Poslao: 20 Jan 2009 22:43
Idi na vrh
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!

Poslao: 21 Jan 2009 07:54
Idi na vrh
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;

Poslao: 21 Jan 2009 11:23
Idi na vrh
offline
  • Student informatike
  • Pridružio: 26 Mar 2008
  • Poruke: 293
  • Gde živiš: Novi Sad

Radi funkcija! Hvala zorane!

MyCity » Pascal » Stepenovanje u Pascalu!Help!

Ko je trenutno na forumu
 

Ukupno su 2790 korisnika na forumu :: 109 registrovanih, 10 sakrivenih i 2671 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 6018 - dana 19 Dec 2025 13:41

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 9191vs, A.R.Chafee.Jr., ALEXV, amaterSRB, Aristotle2002, babaroga, Bobrock1, bojan313, bojank, Bosnjo, BOXRR, bpop, Branko Matić, cane2010, CCCP, darcaud, darkkran, debeli, Deki Duga Devetka, deLacy, Dimitrije Paunovic, Djokislav, DonRumataEstorski, draganca, eulereix, filiphr, g_g, gasazem, glados, gobrad, GrobarPovratak, Hans Gajger, icemilos, Igritelj, IQ116, Istman, Jakonjveliki, Joint Chief, Kalem, kalens021, koneks, Kozi-RS, Kruger, Kuroje, ladro, lakson001, lcc, lima, Limeni91, LostInSpaceandTime, madza, mainstream, markolopin, Mazo, mean_machine, MiGac, mile.ilic75, milenko crazy north, Miletić Zoran, Milometer, mir, Mitogna, mkukoleca, N.e.m.a.nj.a., Natuzzi, nikolapetkovic, paja69, Panter, Pohovani_00, Povratak1912, precan, raster12, Razdroid, Rebel Frank, renvoi, royst33, ruma, sasovsky, sevenino, sickmouse, Solunac na steroidima, SOVO515, starlights, StrahinjicOgnjen, suponik, suton, Szigetwar, tecataki, tmanda323, tooljan, trademark1982, troki1971, UAV operator, umpah-pah, uruk, US_Rank_0, VanZan, Velički, Vica1958, VJ, vranjanac29, vuksa72, VX1, wizzardone, YugoSlav, Zdenko, zhuki8, Zukov, Zvlade