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

بچه هاي فعال انجمن دلفي سلام
من يه تابع مي خوام براي توان اعداد در دلفي اين پرسشا من ماه پيش هم پرسيده بودم ولي جز سولجر كسي محلم نذاشت سولجر تابع اس اچ ال را به من داد و خودشم گفت كه اشكال داره اما اشكالش خيلي بزرگه
(فقط باش ميشه توان هاي 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 خط فقط براي تبديل ... :) اونوقت فقط تبديل بقيه اش خوب ديگه خدا ميدونه :)
در ضمن طولاني بودن دليل نيست كه بدرد نخوره . بايد به پروسيجر هاي طولاني هم عادت كني
باي

---

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

راه درستش همونه كه مرد مباح گفت (البته چند تا سوتي داره مثلا 0 به توان 0 رو خواهد نوشت 0 در صورتي كه 0 به توان 0 تعريف نشده به طور كل فكر كنم با توان 0 مشكل پيدا كنه).... بقيه به درد دهن پر كني مي خوره ....به خصوص كه آدمو گيج مي كنه و آدم نمي دونه الگوريتم كار اونا چيه ... اينجوري ممكنه به مشكل بر بخوريم ....

نقل قول:

---

راه درستش همونه كه مرد مباح گفت (البته چند تا سوتي داره مثلا 0 به توان 0 رو خواهد نوشت 0 در صورتي كه 0 به توان 0 تعريف نشده به طور كل فكر كنم با توان 0 مشكل پيدا كنه).... بقيه به درد دهن پر كني مي خوره ....به خصوص كه آدمو گيج مي كنه و آدم نمي دونه الگوريتم كار اونا چيه ... اينجوري ممكنه به مشكل بر بخوريم ....

---

از همون الگوريتم مردمباح استفاده مي كنيم :)
من قبلآ يه همچين چيزي ساخته بودم اما نمي دونم واسه چي يك حلقه بي نهايت ايجاد ميشد
و كامپيوتر گير مي كرد. ;) اما این یکی خیلی عالیه :);) این مشکل رو هم نداره .
بای

سلام
براي كنترل و مقايسه زمان اجراي يك قسمت از كد مي تونيد اينطوري عمل كنيد :

کد:

---

var
  CPUClock: extended;

function GetCPUTick: Int64;
asm
  DB $0F,$31 // this is RDTSC command. Assembler, built in Delphi,
              // does not support it,
              // that is why one needs to overcome this obstacle.
end;

function CalibrateCPU: int64;
var
  t: cardinal;
begin
  t := GetTickCount;
  while t=GetTickCount do;
  Result := GetCPUTick; //get the time-stamp counter value
  while GetTickCount<(t+400) do;  // delay for 0,4 sec
  Result := GetCPUTick - result; // clock cycle number in 0,4 second
  CPUClock := 2.5e-6*Result; // clock cycle number in 1 microsecond
end;

function TicksToStr(const Value: int64): string;
begin
  Result := FloatToStrF(Value/CPUClock,fffixed,10,2)+ ' ms';
end;

---

حالا :

کد:

---

procedure TForm1.Button2Click(Sender: TObject);
var
 ticks: int64;
 s: string;
 CPUClock: extended;
begin
 CalibrateCPU;
 ticks := GetCPUTick; //get the time-stamp value
 Edit1.Text := floattostr(Power(35,12));
 ticks := GetCPUTick - ticks; //number of clock cycles
 Label1.Caption := Format('Execute time %s', [TicksToStr(ticks)]);
end;

---

نقل قول:

---

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

از همون الگوريتم مردمباح استفاده مي كنيم :)
من قبلآ يه همچين چيزي ساخته بودم اما نمي دونم واسه چي يك حلقه بي نهايت ايجاد ميشد
و كامپيوتر گير مي كرد. ;) اما این یکی خیلی عالیه :);) این مشکل رو هم نداره .
بای

---

اولاَ اون تابع اوليه را كسي چيزي ازش نميدونه؟ :angry:
بعدشم من نمي دونم اون تابع مرد مباح جان را كجاي الگوريتمم بدارم
آخه الگوريتم من كه فقط توان حساب نمي كنه
تازه نان فرس جان نظر شما كه خودش ميشه باش يه برنامه ساخت :blink:

دوستان گرامي بازم سلام
مي گم بازم به سايت برنامه نويس كه جواب آدما مي دن
اينم جواب
power(b,a);
اما بازم یه مشکلی هست راه تبدیل تابع extendedبهinteger چیه
جون عزیزاتون جواب بدین نه اینکه هم دیگه را تایید کنید

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

من فقط سه ما هه که دلفی کار می کنم و عجیب که شما تا حالا اینا نفهمیدید
میگما جواب بدین دیگه!!!!

راستی مر مباح و بقیه ی دوستان نگفتید چجوری وسط یه الگوریتم تابع به این بزرگی بذارم

نقل قول:

---

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

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

---

اگر با حلقه نمیخوای بنویسی با چی می خوای بنویسی که سریعتر بشه! عزیز!
از توابع بازگشتی هم میشه استفاده کرد ولی حلقه سریعتره!

همون که مرد مباح نوشته عالیه و میتونی واسه باگش هم شرط تعریف کنی که محاسبه نکنه!
ولی طبق منطق کامپیوتر میتونی واسه 0 به توان 0 یک مقدار قراردادی بذاری که میتونه همون صفر باشه یا هر
مقداز دیگه.

کافیه اون تلبعی رو که مردمباح نوشته رو تو قسمت type برنامه جایی که procedure ها تعریف شدن بنویسی
و هر جا تو برنامه میخوای این کد رو بنویسی :

کد:

---

value := tvn (x,y);

---

مقدار Value رو x به توان y قرار میده.

:biggrin:

بايد توي تعاريف تابع رو تعريف كني و ازش جداگانه استفاده كني !
اگه با كتاب دلفي رو ياد گرفتي يك سر به بخش رويه ها بزن.
وگرنه بگو تا بيشتر برات توضيح بدم.

نقل قول:

---

نوشته شده توسط مرد مباح

بايد توي تعاريف تابع رو تعريف كني و ازش جداگانه استفاده كني !
اگه با كتاب دلفي رو ياد گرفتي يك سر به بخش رويه ها بزن.
وگرنه بگو تا بيشتر برات توضيح بدم.

---

والا من نمي دونم وسط اين بلوك چجوري اين تابع را بذارم شما بگين
كد:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,i,d:integer;
sum:int64;
begin
a:=StrToInt(voroudi.text);
i:=0;
sum:=0;
d:=a mod 10;
a:=a div 10;
b:=0;
c:=0;
while (a>0) do
begin
b:=a mod 10;
a:=a div 10;
c:=power(7,i);
i:=i+1;
c:=c*b;
sum:=sum+c;

end;
حتماَ من خيلي خرم مگه نه

در ضمن شما عزيزان هنوز نگفتين كه چجوريextendedرا به integerتبدیل میکنند اون وقت گیر دادین به تابع
مر مباح

نقل قول:

---

نوشته شده توسط amin a.^2

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

---

همه رو از جنس real تعریف کن. مطمئناٌ جواب میده.

همه يهني حتي انهايي كه از جنسinteger هستند و به این قسمت ربطی ندارند

راستی من توی کارهایی که کردم از توان زیاد استفاده کردم. این روشی رو که گفتم بهت هر کجاش ایراد داشت بگو تا برات توضیح بدم.

عباس جان اولاً دست شما درد نکنه بعدشم شما سوال قبلی منا جواب ندادینا!!!
در ضمن به راه حل شما تو همون پرانتزا گیر میده

امین جان اگه همین الان هستی بیا تو yahoo messeger برات آف گذاشتم. منم اونجا هستم حالا

در ضمن من اینجا الگوریتم برنامه را گذاشتم شما می تونید بخش توان(p0wer) را ویرایش کنید تا من ببینم اشکال از چیزی یه که شما گفتید با از برنامه ی من

میتونی برنامه خودتو برام upload کنی تا اگه تونستم حلش کنم؟؟؟

عباس جان من الان یا هو مسنجرم نصب نیست چون تازه ویندوز نصب کردم اگه تو جی میل عضوی بیا اونجا
بابا الگوریتم برنامه تو پست#21 هست دیگه نیازی نیست که من برنامه آپلود کنم

می گما بیان تو پیغام خص.صی حرف بزنیم
البته من که می خوام بفرستم یه چرت وپرتی ارر می ده و میگه اگه یه بار دیگه این کار رو بکنبد عضویت شما به تعلیق در میاد

باشه من الان برنامه رو میبرم توی دلفی روش کار میکنم و بهت جواب میدم.

خیلی ممنون

کد زیر رو بنویس. من امتحان کردم درست بود. به تعریف متغیرها هم دقت کن:

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,i,d:integer;
  c,sum:real;
begin
  a:=StrToInt(edit1.text);
  i:=0;
  sum:=0;
  d:=a mod 10;
  a:=a div 10;
  b:=0;
  c:=0;
  while (a>0) do
  begin
    b:=a mod 10;
    a:=a div 10;
    if i=0 then
      c:=1
    else
      c:=exp(7*ln(i));
    i:=i+1;
    c:=c*b;
    sum:=sum+c;
  end;
end;

---

البته به جای edit1.text به صورت voroudi.text بنویس.

جواب گرفتی یا نه.

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

کد:

---

اول در قسمت private می نویسیم
]function tvn(x,y:integer):intege;
بعدشمctrl+shift+c تا یه بلوک بیاد با عنوان
TForm1.function tvn(x,y:integer):integer;
بعد تو اون قسمت تابع مرد مباح را میذاریم
و تو هر جا که به توان نیاز داشتیم مینویسیم
result:=tvn(a,b);

---

البته این موضوع تجربه ی خوبی برام شد چون تاحالا بااینجور functionها کار نکرده بودم و بلد هم نبودم
به امید اینکه هر کسی روزی تابع توان را خواست به بد بختی من نیوفته
باز هم از عباس جان و مرد مباح سپاس گذاری فراوان میکنم و
special thanks to dear ALI(kheradmand)that helped me to solve this problem
اینم به زبون بیگانگان نوشتم هویجوری

در ضمن بچه ها شما چي كار مي كنيد كه كداتون تو اين قابا مياد من كه هر كاري مي كنم نميشه (تو كروشم مي ذارم ولي فايده نداره)

کد:

---

private
  function tvn(x,y:integer):integer;

---

کد:

---

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

---

جواب گیری

کد:

---

result:=tvn(a,b);

---

سولجر جان چيزي كه من نوشته بودم با مال شما چه فرقي داره
در ضمن كسي جواب نداد چجوري كدهارا در اين قالب ها بذارم

سلام
كدي كه نوشته بودي چند تا مشكل داشت.
من هم اصلاحش كردم و كاملش كردم و گذاشتمش توي كد.
*اگر باعث ناراحت نشده باشه .
در ضمن اگر مي خواهي بزاري توي كد اينطوري :
قبل از كد اين رو مي نويسي : [ code ]
و بعد از کد این رو بنویس : [ /code ]
چون می خواستم به صورت کد بیاد بین کروشه و نوشته فاصله گذاشتم. اما تو اون فاصله رو نزار.
موفق باشی.بای