Serbian test...

This commit is contained in:
Ognjen Milan Robovic 2024-04-03 11:06:19 -04:00
parent dfd402721d
commit 5e18ac75dc

52
тест.срб Normal file
View File

@ -0,0 +1,52 @@
тип број = бајт (4)
тип слово = бајт (1)
тип логика (
лаж,
истина)
тип системски_позив (
линукс_системски_позив_читај = 0,
линукс_системски_позив_пиши = 1,
линукс_системски_позив_отвори = 2,
линукс_системски_позив_затвори = 3,
линукс_системски_позив_изађи = 60)
тип фајл_описивач (
класични_улаз,
класични_излаз)
процедура дужинаекста (текст) врати број је
дужина је број = 0
док текст (дужина) није 0
ради
дужина ++
крај
врати (дужина)
крај
процедура штампај (текст) је
системски_код (линукс_системски_позив_пиши, класични_излаз, текст, дужинаекста (текст))
крај
здраво () штампај ("Здраво!")
видимо_се () штампај ("Видимо се!")
глобалнаонстанта = 666
процедура главна је
здраво ()
док а је 1 ... 17 је
ако а % 3 је 0 или а % 5 је 0 онда
штампај ("физ + баз")
иначе ако а % 3 је 0 онда
штампај ("физ")
иначе ако а % 5 је 0 онда
штампај ("баз")
иначе
штампај ("<->")
штампај ("\n")
крај
видимо_се
врати 60
крај