Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
27
Task/Fibonacci-sequence/ERRE/fibonacci-sequence.erre
Normal file
27
Task/Fibonacci-sequence/ERRE/fibonacci-sequence.erre
Normal file
|
|
@ -0,0 +1,27 @@
|
|||
!-------------------------------------------
|
||||
! derived from my book "PROGRAMMARE IN ERRE"
|
||||
! iterative solution
|
||||
!-------------------------------------------
|
||||
|
||||
PROGRAM FIBONACCI
|
||||
|
||||
!$DOUBLE
|
||||
|
||||
!VAR F1#,F2#,TEMP#,COUNT%,N%
|
||||
|
||||
BEGIN !main
|
||||
INPUT("Number",N%)
|
||||
F1=0
|
||||
F2=1
|
||||
REPEAT
|
||||
TEMP=F2
|
||||
F2=F1+F2
|
||||
F1=TEMP
|
||||
COUNT%=COUNT%+1
|
||||
UNTIL COUNT%=N%
|
||||
PRINT("FIB(";N%;")=";F2)
|
||||
|
||||
! Obviously a FOR loop or a WHILE loop can
|
||||
! be used to solve this problem
|
||||
|
||||
END PROGRAM
|
||||
Loading…
Add table
Add a link
Reference in a new issue