N'th: Difference between revisions
Content added Content deleted
(N'th en BASIC) |
(N'th en True BASIC) |
||
Line 3,340: | Line 3,340: | ||
1000'th 1001'st 1002'nd 1003'rd 1004'th 1005'th 1006'th 1007'th 1008'th 1009'th 1010'th 1011'th 1012'th 1013'th 1014'th 1015'th 1016'th 1017'th 1018'th 1019'th 1020'th 1021'st 1022'nd 1023'rd 1024'th 1025'th |
1000'th 1001'st 1002'nd 1003'rd 1004'th 1005'th 1006'th 1007'th 1008'th 1009'th 1010'th 1011'th 1012'th 1013'th 1014'th 1015'th 1016'th 1017'th 1018'th 1019'th 1020'th 1021'st 1022'nd 1023'rd 1024'th 1025'th |
||
</pre> |
</pre> |
||
=={{header|True BASIC}}== |
|||
<lang basic> |
|||
SUB sufijo (n) |
|||
LET n = INT(n) |
|||
LET NMod10 = MOD(n, 10) |
|||
LET NMod100 = MOD(n, 100) |
|||
IF (NMod10 = 1) AND (NMod100 <> 11) THEN |
|||
LET sufi$ = "st" |
|||
ELSE |
|||
IF (NMod10 = 2) AND (NMod100 <> 12) THEN |
|||
LET sufi$ = "nd" |
|||
ELSE |
|||
IF (NMod10 = 3) AND (NMod100 <> 13) THEN |
|||
LET sufi$ = "rd" |
|||
ELSE |
|||
LET sufi$ = "th" |
|||
END IF |
|||
END IF |
|||
END IF |
|||
PRINT sufi$; |
|||
END SUB |
|||
SUB imprimeOrdinal (loLim, hiLim) |
|||
LET loLim = INT(loLim) |
|||
LET hiLim = INT(hiLim) |
|||
FOR i = loLim TO hiLim |
|||
PRINT i; |
|||
CALL sufijo (i) |
|||
PRINT " "; |
|||
NEXT i |
|||
PRINT |
|||
END SUB |
|||
CALL imprimeOrdinal (0, 25) |
|||
CALL imprimeOrdinal (250, 265) |
|||
CALL imprimeOrdinal (1000, 1025) |
|||
END |
|||
</lang> |
|||
=={{header|uBasic/4tH}}== |
=={{header|uBasic/4tH}}== |