Generate Fibonacci series using Sub Routine

REM a, b, n parameters represents first term, second term and number of terms respectively
DECLARE SUB fibo(a, b, n)
CLS
INPUT "First Term="; x
INPUT "Second Term=";y
REM label number is for data validation that length of terms must be less or equal to 20
10:
INPUT "How many terms="; z
IF z>20 THEN 10
CALL fibo(x, y, z)
END


SUB fibo(a, b, n)
PRINT a, b,
REM first two terms are already printed so started from 3
FOR I = 3 to n
  s=a+b
  PRINT s,
  a=b
  b=s
NEXT I
END SUB

14 comments:

  1. UnknownFebruary 17, 2015 at 3:51 AM

    can we generate same output using function procedure? If we can please let me know!

    ReplyDelete
  2. UnknownFebruary 4, 2016 at 6:56 PM

    generate given series plz
    1 2 3 4 = 10
    5 6 7 8 = 26
    9 10 11 12 = 42
    ------------
    15 18 21 24

    ReplyDelete
    Replies
    1. uzumaki narutoJune 17, 2016 at 10:39 PM

      CLS
      C=1
      S=0
      DO
      PRINT C;
      C=C+1
      S=S+C
      LOOP WHILE C<=4
      PRINT"=";S
      DO
      PRINT C;
      C=C+1
      S=S+C
      LOOP WHILE C<=8
      PRINT "=";S
      ...........
      LIKE WISE

      Delete
    2. David BhattaraiSeptember 19, 2018 at 7:54 AM

      Arigato DATTEVAYO

      Delete
  3. Bikesh mehtaFebruary 21, 2016 at 3:33 AM

    1
    2 2
    3 3 3
    4 4 4 4
    5 5 5 5 5

    ReplyDelete
    Replies
    1. ArchnanaFebruary 23, 2016 at 9:19 PM

      CLS
      FOR I = 1 TO 5
      FOR j = 1 TO I
      PRINT I;
      NEXT j
      PRINT
      NEXT I

      Delete
  4. Bikesh mehtaFebruary 21, 2016 at 3:33 AM

    1
    2 2
    3 3 3
    4 4 4 4
    5 5 5 5 5

    ReplyDelete
    Replies
    1. Binay RanaJuly 11, 2016 at 4:59 AM

      This comment has been removed by the author.

      Delete
    2. UnknownFebruary 27, 2020 at 6:54 AM

      Declare sub series (A,b)
      Cls
      A=0
      B=9
      Call series (A,B)
      END
      SUB SERIES (A,B)
      FOR I =1 TO 6
      N=9
      PRINT;
      N=(N*10)+9
      NEXT I
      END SUM

      YO PROGRAMMING YESARI GARNE HO 😊😊👍 TAR NUMBER ANUSAR HUNXA 😏

      Delete
  5. UnknownJuly 9, 2017 at 5:40 PM

    How to display acronym???
    robin karki
    Display "robin k"

    ReplyDelete
  6. nishant khanalDecember 16, 2017 at 7:01 PM

    dear sir can you print fibonacci using function procedure

    ReplyDelete
  7. UnknownAugust 20, 2018 at 7:36 AM

    How to generate fibonacci series in qbasic with while loop

    ReplyDelete
  8. UnknownAugust 27, 2020 at 1:12 AM

    display the fibonacci series (1, 1, 2, 3, 5 upto 10th terms)

    ReplyDelete
  9. UnknownOctober 11, 2020 at 8:18 PM

    WAP to declare sub procedure to display fibonacci series of 1,1,2,3,5,8,.. up to 10 term

    ReplyDelete

Subscribe to: Post Comments (Atom)