Palindrome dates: Difference between revisions
Content added Content deleted
(Palindrome dates en BASIC256) |
(Palindrome dates en FreeBASIC) |
||
Line 802: | Line 802: | ||
10,000th palindrome date after 2020-02-02: 1250101-05-21 |
10,000th palindrome date after 2020-02-02: 1250101-05-21 |
||
</pre> |
</pre> |
||
=={{header|FreeBASIC}}== |
|||
<lang freebasic> |
|||
Dim As String dateTest = "" |
|||
Dim As Integer Pal =0, total = 0 |
|||
Print "Siguientes 15 fechas palindr¢micas al 2020-02-02:" |
|||
For anno As Integer = 2021 To 9999 |
|||
dateTest = Ltrim(Str(anno)) |
|||
For mes As Integer = 1 To 12 |
|||
If mes < 10 Then dateTest = dateTest + "0" |
|||
dateTest += Ltrim(Str(mes)) |
|||
For dia As Integer = 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 += "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 += 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 |
|||
dateTest = Left(dateTest, 6) |
|||
Next dia |
|||
dateTest = Left(dateTest, 4) |
|||
Next mes |
|||
dateTest = "" |
|||
Next anno |
|||
Sleep |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
Siguientes 15 fechas palindrómicas al 2020-02-02: |
|||
2021-12-02 |
|||
2030-03-02 |
|||
2040-04-02 |
|||
2050-05-02 |
|||
2060-06-02 |
|||
2070-07-02 |
|||
2080-08-02 |
|||
2090-09-02 |
|||
2101-10-12 |
|||
2110-01-12 |
|||
2111-11-12 |
|||
2120-02-12 |
|||
2121-12-12 |
|||
2130-03-12 |
|||
2140-04-12 |
|||
</pre> |
|||
=={{header|Go}}== |
=={{header|Go}}== |