23 lines
468 B
Text
23 lines
468 B
Text
PROGRAM NTH_SOLVE
|
|
|
|
!
|
|
! for rosettacode.org
|
|
!
|
|
|
|
PROCEDURE NTH(S%,E%)
|
|
LOCAL I%,SUFF$
|
|
FOR I%=S% TO E% DO
|
|
SUFF$="th"
|
|
IF I% MOD 10=1 AND I% MOD 100<>11 THEN SUFF$="st" END IF
|
|
IF I% MOD 10=2 AND I% MOD 100<>12 THEN SUFF$="nd" END IF
|
|
IF I% MOD 10=3 AND I% MOD 100<>13 THEN SUFF$="rd" END IF
|
|
PRINT(STR$(I%)+SUFF$+" ";)
|
|
END FOR
|
|
PRINT
|
|
END PROCEDURE
|
|
|
|
BEGIN
|
|
NTH(0,25)
|
|
NTH(250,265)
|
|
NTH(1000,1025)
|
|
END PROGRAM
|