N'th: Difference between revisions
N'th en BASIC
m (... and moved Quackery into correct place. I do know the alphabet, honestly.) |
(N'th en BASIC) |
||
Line 615:
1020th 1021st 1022nd 1023rd 1024th 1025th
-20 -19 -18 -17 -16 -15 -14 -13 -12 -11</pre>
=={{header|BASIC}}==
{{works with|QBasic}}
<lang basic>
DECLARE FUNCTION sufijo$ (n%)
DECLARE SUB imprimeOrdinal (loLim%, hiLim%)
imprimeOrdinal 0, 25
imprimeOrdinal 250, 265
imprimeOrdinal 1000, 1025
END
DEFINT A-Z
SUB imprimeOrdinal (loLim, hiLim)
loLim = INT(loLim)
hiLim = INT(hiLim)
FOR i = loLim TO hiLim
PRINT STR$(i) + sufijo$(i) + " ";
NEXT i
PRINT
END SUB
FUNCTION sufijo$ (n)
n = INT(n)
NMod10 = n MOD 10
NMod100 = n MOD 100
IF (NMod10 = 1) AND (NMod100 <> 11) THEN
sufijo$ = "st"
ELSE
IF (NMod10 = 2) AND (NMod100 <> 12) THEN
sufijo$ = "nd"
ELSE
IF (NMod10 = 3) AND (NMod100 <> 13) THEN
sufijo$ = "rd"
ELSE
sufijo$ = "th"
END IF
END IF
END IF
END FUNCTION
</lang>
=={{header|Batch File}}==
| |||