نوشتن تابع در دلفی [بایگانی]

Fastdesign

یک شنبه 01 مرداد 1391, 21:34 عصر

با سلام

این تابع رو نوشتم :
implementation

function recrsive(n:Integer):Integer;
begin
if n=1 then
recrsive:=1
else
recrsive:=recrsive(n-1)+recrsive(n-1);
end;

حالا می خوام برای recrsive(5) خروجی بگیرم . ولی نمی دونم چجوری ازش خروجی بگیرم به این صورت که برام داخل کادر متن جواب نمایش بده .

با تشکر

عقاب سیاه

یک شنبه 01 مرداد 1391, 22:01 عصر

فکر کنم منظورتون این بوده:
Edit1.text:=inttostr(recrsive(5));

Ananas

یک شنبه 01 مرداد 1391, 22:10 عصر

سلام.
چرا به جای : recrsive:=recrsive(n-1)+recrsive(n-1); نمینویسی : recrsive := 2 * recrsive(n-1); ؟

Fastdesign

یک شنبه 01 مرداد 1391, 22:33 عصر

تو این خط integer دومی برای چیه ؟
function recrsive(n:Integer):Integer;

عقاب سیاه

یک شنبه 01 مرداد 1391, 22:36 عصر

خروجی تابع را مشخص می کنه
یعنی نوع Result مربوط به function

Felony

یک شنبه 01 مرداد 1391, 22:39 عصر

دوست عزیز این سوالات دیگه پرسیدن نداره ، کافیه تو گوگل بنویسی "نحوه نوشتن تابع در دلفی" یا ... تا برات 1000 مقاله و توضیح بیاره !

http://barnamenevis.org/showthread.php?162729-%D8%B2%DB%8C%D8%B1-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%87%D8%A7-(-%D8%B1%D9%88%DB%8C%D9%87-%D9%88-%D8%AA%D8%A7%D8%A8%D8%B9-)-%D8%AF%D8%B1-%D8%AF%D9%84%D9%81%DB%8C