ادامه دستورات بیسیک    بخش پنجم

زیر برنامه

زیر برنامه یا برنامه فرعی ، بخشی مستقل از برنامه اصلی را تشکیل می دهد . هر زیر برنامه مجموعه ای از دستورالعمل هاست که هدف خاصی را دنبال کرده و به دفعات در برنامه اصلی فراخوانده شده و اجرا گردد.به دلیل استقلال زیر برنامه در یک برنامه اصلی می تواند تعدادی زیر برنامه باشد .یکی از ویژگی های زیر برنامه این است که از مقادیر متغیرهای برنامه اصلی می توانند استفاده کنند .

با تقسیم یک برنامه به چند زیر برنامه می توان برنامه اصلی را قابل فهم و خوانتر نمود .

نکته : زیر برنامه بعد از دستور END برنامه اصلی قرار می گیرند .

دستور SUB  

با استفاده از این دستور می توان یک برنامه فرعی ایجاد کرد ، شکل کلی زیر برنامه :

( لیست پارامترها )   نام زیر برنامه   SUB

محتوای  زیر برنامه  

END SUB

لیست پارامترها : متغیرهایی هستند که باید از برنامهاصلی به زیر برنامه منتقل شوند .

فرا خوانی یک زیر برنامه : فراخوانی یک زیر برنامه به معنای اجرای زیر برنامه می باشد . دستور CALL این کار را انجام می دهد . شکل کلی دستور           ( آرگومان ها )   نام زیر برنامه       CALL

آرگومان : به مجموعه متغیرهای مختلف که موقع فراخوانی به زیر برنامه منتقل می شوند ، آرگومان گفته مشود .

نکته : متغیرهای زیر برنامه ، مقادیر خود را فقط در داخل آن زیر برنامه حفظ می کنند به چنین متغیرهایی متغیر محلی می گویند.

برنامه ای بنویسید که بتواند عددی را از ورودی خوانده سپس با استفاده از برنامه فرعی FACT  فاکتوریل آنرا محاسبه کرده نمایش دهد .

CLS

INPUT  n

CALL  FACT(n)

END

----------------

SUB   FACT (n)

    Mul = 1

    FOR  I = 1   To   n

        Mul = Mul * I

    NEXT  I

    PRINT  n”!”,Mul

END SUB

دستور  GOSUB  ,  RETURN

از دستور GOSUB به منظور انتقال کنترل به زیر برنامه استفاده می گردد و دستور RETURN  کنترل را به دستور بعد از    GOSUB هدایت می نماید . شکل کلی                               

شماره خط یا برچسب   GOSUB

--

--

--

شماره خط یا برچسب  RETURN

شماره خط یا برچسب :  برچسب یا شماره خط ، خطی از برنامه اصلی را مشخص می کند که زیر برنامه مربوطه از آنجا آغازمی گردد و ذکر آن در این دستور اجباری است .

نکته : شماره خط نمی تواند به صورت متغیر یا عبارت بیان شود .

اجرای زیر برنامه تا زمان برخورد به اولین دستور RETURN  ادامه می یابد ؛ سپس کنترل به دستور بعد از دستور GOSUB  هدایت می شود . اگر در دستور RETURN  برچسب یا شماره خطی ذکر شود کنترل بعد از اجرای زیر برنامه به شماره خط یا برچسب انتقال می یابد.

مثال : نمایش سه رشته کنار یکدیگر با اجرای یک زیر برنامه

CLS

GOSUB  40

END

---------------

40 PRINT  “ SubrotINE” ;

    PRINT  “  IN” ;

    PRINT  “  Progress”

RETURN

مثال 2: برنامه زیر نام چهار نفر را از ورودی دریافت کرده سپس حروف دوم آن ها را کنار هم قرداده و نمایش می دهد .

CLS

GOSUB  100

PRINT  y$

END

--------------

100  FOR  I = 1   To   4

           INPUT x$

           Y$ = y$ MID$( x$ , 2 1 )

     NEXT  I

RETURN