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