Conjugate a Latin verb: Difference between revisions
Content added Content deleted
(→{{header|jq}}: Part 2) |
(Conjugate a latin verb in FreeBasic) |
||
Line 197: | Line 197: | ||
dant they give |
dant they give |
||
</pre> |
</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}}== |
=={{header|Go}}== |