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