Serbian test...
This commit is contained in:
parent
dfd402721d
commit
5e18ac75dc
52
тест.срб
Normal file
52
тест.срб
Normal 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
|
||||
крај
|
Loading…
Reference in New Issue
Block a user