aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

35
Task/Leonardo-numbers/MSX-Basic/leonardo-numbers.basic
View file

@ -1,17 +1,18 @@
100 LIMIT = 25
110 L0 = 1
120 L1 = 1
130 SUMA = 1
140 PRINT "Numeros de Leonardo (";L0;",";L1;",";SUMA;"):"
150 GOSUB 220
160 LET L0 = 0
170 LET L1 = 1
180 LET SUMA = 0
190 PRINT "Numeros de Fibonacci (";L0;",";L1;",";SUMA;"):"
200 GOSUB 220
210 END
220 FOR I = 1 TO LIMIT
230 IF I = 1 THEN PRINT L0; : ELSE IF I = 2 THEN PRINT L1; : ELSE PRINT L0+L1+SUMA; : TMP = L0 : L0 = L1 : L1 = TMP+L1+SUMA
240 NEXT I
250 PRINT CHR$(10)
260 RETURN
10 REM Leonardo numbers
20 LIMIT = 25
30 L0 = 1: L1 = 1: SUMA = 1
40 PRINT "Numeros de Leonardo (";L0;",";L1;",";SUMA;"):"
50 GOSUB 100
60 L0 = 0: L1 = 1: SUMA = 0
70 PRINT "Numeros de Fibonacci (";L0;",";L1;",";SUMA;"):"
80 GOSUB 100
90 END
100 IF LIMIT >= 1 THEN PRINT L0;
110 IF LIMIT >= 2 THEN PRINT L1;
120 IF LIMIT < 3 THEN 170: REM In MSX, FOR works like REPEAT
130 FOR I = 3 TO LIMIT
140 PRINT L0 + L1 + SUMA;
150 TMP = L0: L0 = L1: L1 = TMP + L1 + SUMA
160 NEXT I
170 PRINT
180 RETURN