Conjugate a Latin verb: Difference between revisions
Conjugate a latin verb in FreeBasic
(→{{header|jq}}: Part 2) |
(Conjugate a latin verb in FreeBasic) |
||
Line 197:
dant they give
</pre>
=={{header|FreeBASIC}}==
{{trans|Wren}}
<lang freebasic>Sub conjugate(infinitive As String)
Dim As String ending(1 To 6) => {"o", "as", "at", "amus", "atis", "ant"}
If Not (Right(infinitive, 3) = "are") Then Print "'"; infinitive; !"' non prima coniugatio verbi.\n" : Exit Sub
Dim As String stem = Left(infinitive, Len(infinitive)-3)
If Len(stem) = 0 Then Print !"\'"; infinitive; !"\' non satis diu conjugatus\n" : Exit Sub
Print Using "Praesens indicativi temporis of '&':"; infinitive
For i As Byte = 1 To 6
Print Spc(5); stem; ending(i)
Next i
Print
End Sub
conjugate("amare")
conjugate("dare")
conjugate("qwerty")
conjugate("are")
Sleep</lang>
{{out}}
<pre>Praesens indicativi temporis of 'amare':
amo
amas
amat
amamus
amatis
amant
Praesens indicativi temporis of 'dare':
do
das
dat
damus
datis
dant
'qwerty' non prima coniugatio verbi.
'are' non satis diu conjugatus</pre>
=={{header|Go}}==
| |||