|
- тип број је 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;
-
- главна_процедура ():
- изврши (пиши, излаз, #текст, дужина);
- врати;;
|