آموزش (پیشرفته) : توابع بازگشتی در Pascal و C/C++

سلام این دفعه حضور دوستان انجمن C
برای این که آموزش بهتر باشه و انسجام بیشتری بین مطالب
باشه این دوتا آموزش رو در یک تاپیک زدم
اگه سوالی داشتین می تونین توی این تاپیک بپرسین
اگه بلد بودم جواب بدم
چون C#.Net و C++.Net رو روی سیستمم ندارم
نمی تونم توابع رو برای .Net بنویسیم اما فکر نکنم
بردن این توابع از C++ تحت داس به محیط .Net کاری
داشته باشه

سلام
در مورد توابع بازگشتی بگم که بعضی
از مسائل فقط با توابع بازگشتی قابل حل هستن
معروف ترین این توابع : برج های هانوی هستن هر دو versionشم

سلام این هم تابع بازگشتی برای برجهای هانوی تو سی

کد:

---

#include <stdio.h>
#include <conio.h>

void tow_hanoi(int n,char peg_A,char peg_B,char peg_C);
void main(){
        int n;
        printf("enter the number of disks\n");
        scanf("%d",&n);
        tow_hanoi(n,'A','B','C');
        getch();
}

void tow_hanoi(int n,char peg_A,char peg_B,char peg_C){
        if (n<=0)
                printf("number of disk must be positive\n");
        else if(n==1)
                printf("\nmove from %c to %c",peg_A,peg_C);
        else{
                tow_hanoi(n-1,peg_A,peg_C,peg_B);
                tow_hanoi(1,peg_A,peg_B,peg_C);
                tow_hanoi(n-1,peg_B,peg_A,peg_C);
        }
}

---

سلام
netspc عزیز
از توجه هتون ممنون
گفتم که

نقل قول:

---

چون توابع رو خودم می نویسم ممکن بهینه تر هم پیدا بشه
اما قبل از قرار دادن تست شون میکنم

---

نقل قول:

---

در ضمن اگر اشتباه نکنم سری فیبو از 0 شروع میشه

---

تا اونجای که من می دونم از 1 شروع میشه
اگه با 0 هم شروع بشه تفاوت چندانی نمی کنه تابع جواب می ده
چندتا تابع ریاضی دارم می نویسم که می ذارم

منتظر توابع سایر دو ستان نیز هستیم

آموزش4:برعکس کردن رشته


در Pascal


اول تابع زیر رو در private قسمت تعریف کنید

کد:

---

function revers(MyString:string;StartChar,EndChar:Integer):string;

---

حالا برای بدنه revers تابع قبلش یه متغییر به نام MyCha; از نوع Char تعریف کنید

کد:

---

var
  MyChar:Char;
begin
  if ((StartChar=EndChar) or (StartChar>EndChar))then
    Result:=MyString
  else
    begin
      MyChar:=MyString[StartChar];
      MyString[StartChar]:=MyString[EndChar];
      MyString[EndChar]:=MyChar;
      Result:=revers(MyString,StartChar+1,EndChar-1);
    end;
end;;

---

دو تا Edit رو فرم بذارین و یه Button
حالا توی رویداد Click مربوط به Button بنویسید

کد:

---

Edit2.Text:=revers(Edit1.Text,1,StrLen(PChar(Edit1.Text)));

---

حالا در C/C++
محیط C++ تحت داس

[PHP]

کد:

---

#include<stdio.h>
#include<fstream.h>
#include<conio.h>
char * revers(char MyString[30],int StatrChar,int EndChar);
void main()
{
char a[30];
cout<<"Enter String: ";
gets(a);
cout<<endl<<"Revers is : ";
puts(revers(a,0,strlen(a)-1));
getch();
}

char * revers(char MyString[],int StatrChar,int EndChar)
{
        if ((StatrChar==EndChar)||(StatrChar>EndChar))
          return  MyString;
  else
          {
                        char MyChar;
              MyChar=MyString[StatrChar];
        MyString[StatrChar]=MyString[EndChar];
        MyString[EndChar]=MyChar;
        return revers(MyString,StatrChar+1,EndChar-1);
      }
}

---

[/PHP]
برای زبان C هم تغییرات کمی لازمه
تبدیل Cout به Printf و ....
ولی ساختار همینه



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

واقعآ دستتون درد نکنه...
اگه میشه برنامه فیبوناچی را بصورت ران شده بزارین تا من تو دلفی 7 اجرا کنم... چو ن با تیکه دستورهای قبلی نتونستم خودم ردیفش کنم... متشکرم

با سلام
میشه این برنامه رو ردیابی و تریس کنید و توضیح بدید.(مرحله به مرحله)
برنامه ای که ذو عدد از ورودی خوانده هریک از ارقام ان را در یک سطر چاپ کنه. اگه عدد کوچکتر از 10 باشه ان عدد را در خروجی چاپ کنه و تابع به برنامه فراخوانی بگرده.

کد:

---

#include <stdio.h>
#inclide <conio.h>
void write_v(int);
int main()
{
  int x;
  clrscr();
  printf("enter an number");
  scanf("%d",&x);
  write_v(x);
  getche();
  return 0;
}

void write_v(int x)
{
  if (x<10)
    printf("%d\n",x);
  else{
    write_v(x/10);
    printf("%d\n",x%10);
    }
}

---

1. دوست عزيز اسن تالاز مربوط به دلفي است. اگه جاي ديگه اين سوال رو ميپرسيدين بهتر بود.
2. خوشحالم كه يك نفر رو ديدم كه سرچ ميكنه و به همين دليل با كمال ميل توضيحات رو خدمتتون ميدم :
در ابتداي برنامه كه كاملا واضح است و برنامه يك عدد رو ميگيره.
در ادامه از تابع Wirte_V براي نمايش روي مونيتور استفاده ميكنه.
وقتي عدد ورودي وارد اين تابع ميشه چك ميكنه ببينه كه آخرين عدد هست يا نه. وقتي تقسيم يك عدد صحيح بر 10 مقدار صفر باشه و يا اينكه خود عدد كمتر از 10 باشه، يعني آخرين عدد موجود هست.
اگر يك عدد بزرگتر باشه مقدار تقسم اون بر 10 باعث ميشه كه يك رقم از سمت راست آن عدد كم بشه.

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

اميدوارم كه مطلب رو درست تونسته باشم توضيح بدم.
ولي اگه مشكلي بود، بگو تا يك عدد رو برات توي برنامه تريس كنم.

موفق باشي.

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

فرض كن عدد 4251 وارد شده.
بنابر اين در مرحله اول Write_V(4251)i اجرا ميشه. داخل اين فانكشن برسي ميشه كه عدد از 10 كوچيكتر نيست. بنابراين عدد بر 10 تقسيم ميشه و دوباره به فاكنشن لينك ميشه. عدد دوم 425 و عدد سوم 42 و عدد چهارم 4 است. وقتي به عدد آخر ميرسه چون از 10 كوچكتره چاپش ميكنه.
بعد يك مرحله به عقب بر ميگرده. يعني عدد 42. باقيمانده اين عدد بر 10 عدد 2 هست كه اونو چاپ ميكنه و يك مرحله ميره عقب و براي عدد 425 و 4251 هم باقيمانده ها رو بر 10 مينويسه.
به اين ترتيب تمام ارقام زيدر هم نوشته ميشن. البته دليل زير هم نوشته شدن آن نيز استفاده از n/ هست.

موفق باشي.