-
Notifications
You must be signed in to change notification settings - Fork 0
/
Fibonacci.fprg
54 lines (54 loc) · 2.39 KB
/
Fibonacci.fprg
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
<?xml version="1.0"?>
<flowgorithm fileversion="3.0">
<attributes>
<attribute name="name" value=""/>
<attribute name="authors" value="csfay"/>
<attribute name="about" value=""/>
<attribute name="saved" value="2022-09-19 09:17:52 PM"/>
<attribute name="created" value="Y3NmYXk7REVTS1RPUC0xVUo3SDhFOzIwMjItMDktMTk7MDc6Mzk6MjcgUE07Mjg3NA=="/>
<attribute name="edited" value="Y3NmYXk7REVTS1RPUC0xVUo3SDhFOzIwMjItMDktMTk7MDk6MTc6NTIgUE07MjsyOTc5"/>
</attributes>
<function name="Main" type="None" variable="">
<parameters/>
<body>
<declare name="N, F1, F2, X, F3" type="Integer" array="False" size=""/>
<assign variable="F1" expression="0"/>
<assign variable="F2" expression="1"/>
<assign variable="F3" expression="F1+F2"/>
<output expression=""Please enter a positive integer number."" newline="True"/>
<input variable="N"/>
<if expression="N<=0">
<then>
<call expression="Main"/>
</then>
<else/>
</if>
<output expression=""The Fibonacci series is:"" newline="True"/>
<output expression="F1" newline="True"/>
<output expression="F2" newline="True"/>
<output expression="F3" newline="True"/>
<while expression="F3<=N">
<assign variable="F1" expression="F2"/>
<assign variable="F2" expression="F3"/>
<assign variable="F3" expression="F1+F2"/>
<if expression="F3<=N">
<then>
<output expression="F3" newline="True"/>
</then>
<else/>
</if>
</while>
<declare name="Answer" type="String" array="False" size=""/>
<output expression=""Would you like to play the program again? Respond with y or n."" newline="True"/>
<input variable="Answer"/>
<if expression="Answer == "y"">
<then>
<call expression="Main"/>
</then>
<else>
<output expression=""OK. Goodbye, dear. Pleased to meet you."" newline="True"/>
</else>
</if>
</body>
</function>
</flowgorithm>