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

[amin a.^2]

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

والا من نمي دونم وسط اين بلوك چجوري اين تابع را بذارم شما بگين
كد:
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;
حتماَ من خيلي خرم مگه نه

[amin a.^2]

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

[AbbasGholami]

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

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

[amin a.^2]

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

[AbbasGholami]

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

[amin a.^2]

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

[AbbasGholami]

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

[amin a.^2]

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

[AbbasGholami]

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

[amin a.^2]

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