تابعی برای توان

بچه هاي فعال انجمن دلفي سلام
من يه تابع مي خوام براي توان اعداد در دلفي اين پرسشا من ماه پيش هم پرسيده بودم ولي جز سولجر كسي محلم نذاشت سولجر تابع اس اچ ال را به من داد و خودشم گفت كه اشكال داره اما اشكالش خيلي بزرگه
(فقط باش ميشه توان هاي 2 را بدست اورد) حالا هر كسي در اين مورد چيزي مي دونه بگه چون خيلي نياز دارمك
فكر كنم به اندازه ي كافي توضيح دادم

بابا
يك پروسيجر ساده بنويس و خلاص.
كدشو زير نوشتم.

کد:

---

function Tvn(x,y:integer):integer;
var
  m,i : integer;
begin
  m := 1;
  for i := 1 to y do
    m := m * x;
  result := m;
end;

---

امتحان كن و خبرشو بده.
موفق باشي.

سلام
اينطوري كه سرعت برنامه مياد پايين!
من مي گردم اگر چيز بهتري پيدا كردم ميزارم! :)
موفق باشيد ! باي!

اصلا پايين نمياد.
اين سريعترين و مطمئن ترين راه براي اين محاسبس.
امتحانش كن.
خيلي سريع كار ميكنه.
از لحاظ الگوريتمي چيز بهتر از اين تا حالا نديدم.
قاعدتا خود اس اچ ال هم از همين روند استفاده ميكنه.

موفق باشيد.

سلام
از اونجا كه غربي ها هم بعضي وقتها از اين توابع پيچيده استفاده مي كنند پس خود بورلند اين تابع را ايجاد كرده است :

تابع توان :

کد:

---

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

---

بايد Math را به Uses اضافه كنيد.

سورس :

کد:

---

function Power(const Base, Exponent: Extended): Extended;
begin
  if Exponent = 0.0 then
    Result := 1.0              { n**0 = 1 }
  else if (Base = 0.0) and (Exponent > 0.0) then
    Result := 0.0              { 0**n = 0, n > 0 }
  else if (Frac(Exponent) = 0.0) and (Abs(Exponent) <= MaxInt) then
    Result := IntPower(Base, Integer(Trunc(Exponent)))
  else
    Result := Exp(Exponent * Ln(Base))
end;

---

مي تونيد يه نگاهي به Math.pas كه در Borland\Delphi6\Source\Rtl\Common قرار دارد بيندازيد.

فرض کن میخواهی مقدار a به توان b را به دست بیاوری. فقط با یک خط این کار را انجام بده. به صورت زیر:

exp(b*ln(a))

به موقعیت پرانتزها توجه کن.

سلام
ويرايش شد :

کد:

---

exp(b*ln(a));

---

لطفآ بزاریدش توی کد :)
بای

عباس جان از شما درسته ولی یه اروری میده
[Error] Unit1.pas(53): Incompatible types
اشکال از نوع متغیرهاست لطفاً بگین اون متغیر باید از چه نوعی باشه
مرد مباح دست شما درد نکنه ولی راه حل شما خیلی طولانیه

نقل قول:

---

راه حل شما خیلی طولانیه

---

:):):):):):):):):)
اين رو ميگي طولاني ؟:)
من يه پروژه ساختم! يك قسمت تبديل .... هست.
اگر ببينيش . قول 100% ميدم كه بي هوش مي شي :):)
تقريبآ 85 خط فقط براي تبديل ... :) اونوقت فقط تبديل بقيه اش خوب ديگه خدا ميدونه :)
در ضمن طولاني بودن دليل نيست كه بدرد نخوره . بايد به پروسيجر هاي طولاني هم عادت كني
باي

نقل قول:

---

نوشته شده توسط soldier

:):):):):):):):):)
اين رو ميگي طولاني ؟:)
من يه پروژه ساختم! يك قسمت تبديل .... هست.
اگر ببينيش . قول 100% ميدم كه بي هوش مي شي :):)
تقريبآ 85 خط فقط براي تبديل ... :) اونوقت فقط تبديل بقيه اش خوب ديگه خدا ميدونه :)
در ضمن طولاني بودن دليل نيست كه بدرد نخوره . بايد به پروسيجر هاي طولاني هم عادت كني
باي

---

سولجر جان حتماَ اين پروسيجر هاي طولاني ارزش كار شما را داره اما براي اين برنامه
من تلاش مي كنم از الگوريتم ها وتابع هاي خيلي كوچك استفاده كنم چون هم ارزششا نداره و هم مي خوام
تاپايان مهر تمام بشه