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

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 1607 korisnika na forumu :: 50 registrovanih, 8 sakrivenih i 1549 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: AC-DC, Apok, Areal84, babaroga, Bobrock1, Brana01, bufanje, ccoogg123, cinoeye, darcaud, DejanSt, Denaya, DENIRO, DonRumataEstorski, dragoljub11987, Dukelander, elenemste, flash12, Georgius, gomago, GORDI, h8propaganda, Ivica1102, Karla, Koridor, Krvava Devetka, ljuba, LUDI, Marko Marković, Mercury, Mi lao shu, MiG-29M2, milenko crazy north, milutin134, Mixelotti, Nemanja.M, nemkea71, novator, oganj123, pein, raso7, rasok, Ripanjac, ruso, S2M, Sirius, theNedjeljko, vathra, Vladko, 1107