Anonymous user
N'th: Difference between revisions
→{{header|Microsoft Small Basic}}
Line 1,584:
=={{header|Microsoft Small Basic}}==
{{trans|Ada}}
<lang microsoftsmallbasic>
loLim = 0
hiLim = 25
PrintImages()
loLim = 250
hiLim = 265
PrintImages()
loLim = 1000
hiLim = 1025
PrintImages()
Sub PrintImages
For i = loLim To hiLim
nr = i
GetSuffix()
TextWindow.Write(i)
TextWindow.Write(suffix)
TextWindow.Write(" ")
EndFor
TextWindow.WriteLine("")
EndSub
Sub GetSuffix
rem10 = Math.Remainder(nr, 10)
rem100 = Math.Remainder(nr, 100)
If rem10 = 1 Then
If rem100 <> 11 Then
suffix = "st"
EndIf
ElseIf rem10 = 2 Then
If rem100 <> 12 Then
suffix = "nd"
EndIf
ElseIf rem10 = 3 Then
If rem100 <> 13 THEN
suffix = "rd"
EndIf
Else
suffix = "th"
EndIf
EndSub
</lang>
=={{header|Modula-2}}==
| |||