Palindrome dates: Difference between revisions
Palindrome dates en BASIC
(Palindrome dates en Yabasic) |
(Palindrome dates en BASIC) |
||
Line 448:
=={{header|
==={{header|QBASIC}}===
{{trans|FreeBASIC}}
<lang basic>
dateTest$ = ""
total = 0
PRINT "Siguientes 15 fechas palindr¢micas al 2020-02-02:"
FOR anno = 2021 TO 9999
dateTest$ = LTRIM$(STR$(anno))
FOR mes = 1 TO 12
IF mes < 10 THEN dateTest$ = dateTest$ + "0"
dateTest$ = dateTest$ + LTRIM$(STR$(mes))
FOR dia = 1 TO 31
IF mes = 2 AND dia > 28 THEN EXIT FOR
IF (mes = 4 OR mes = 6 OR mes = 9 OR mes = 11) AND dia > 30 THEN EXIT FOR
IF dia < 10 THEN dateTest$ = dateTest$ + "0"
dateTest$ = dateTest$ + LTRIM$(STR$(dia))
FOR Pal = 1 TO 4
IF MID$(dateTest$, Pal, 1) <> MID$(dateTest$, 9 - Pal, 1) THEN EXIT FOR
NEXT Pal
IF Pal = 5 THEN
total = total + 1
IF total <= 15 THEN PRINT LEFT$(dateTest$, 4); "-"; MID$(dateTest$, 5, 2); "-"; RIGHT$(dateTest$, 2)
END IF
IF total > 15 THEN
EXIT FOR: EXIT FOR: EXIT FOR
END IF
dateTest$ = LEFT$(dateTest$, 6)
NEXT dia
dateTest$ = LEFT$(dateTest$, 4)
NEXT mes
dateTest$ = ""
NEXT anno
END
</lang>
{{out}}
<pre>
Igual que la entrada de FreeBASIC.
</pre>
==={{header|BASIC256}}===
{{trans|FreeBASIC}}
<lang lb>
| |||