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

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

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

خیلی ممنون

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

کد:

---

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 ]
چون می خواستم به صورت کد بیاد بین کروشه و نوشته فاصله گذاشتم. اما تو اون فاصله رو نزار.
موفق باشی.بای