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