37 lines
697 B
Plaintext
37 lines
697 B
Plaintext
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
|