|
|
@@ -1,32 +1,31 @@ |
|
|
|
тип број = бајт (4) |
|
|
|
тип слово = бајт (1) |
|
|
|
тип број је 4 бајт; |
|
|
|
тип слово је 1 бајт; |
|
|
|
|
|
|
|
тип логика ( |
|
|
|
тип логика је ( |
|
|
|
лаж, |
|
|
|
истина) |
|
|
|
|
|
|
|
тип системски_позив ( |
|
|
|
линукс_системски_позив_читај = 0, |
|
|
|
линукс_системски_позив_пиши = 1, |
|
|
|
линукс_системски_позив_отвори = 2, |
|
|
|
линукс_системски_позив_затвори = 3, |
|
|
|
линукс_системски_позив_изађи = 60) |
|
|
|
тип системски_позив је ( |
|
|
|
системски_позив_читај = 0, |
|
|
|
системски_позив_пиши = 1, |
|
|
|
системски_позив_отвори = 2, |
|
|
|
системски_позив_затвори = 3, |
|
|
|
системски_позив_изађи = 60) |
|
|
|
|
|
|
|
тип фајл_описивач ( |
|
|
|
класични_улаз, |
|
|
|
класични_излаз) |
|
|
|
тип описивач је ( |
|
|
|
стандардни_улаз, |
|
|
|
стандардни_излаз) |
|
|
|
|
|
|
|
процедура дужина_текста (текст) врати број је |
|
|
|
улаз програм је главна |
|
|
|
|
|
|
|
процедура дужина_текста (текст је низ слово) је |
|
|
|
дужина је број = 0 |
|
|
|
док текст (дужина) није 0 |
|
|
|
ради |
|
|
|
док текст (дужина) није 0 онда |
|
|
|
дужина ++ |
|
|
|
крај |
|
|
|
врати (дужина) |
|
|
|
крај |
|
|
|
назад |
|
|
|
|
|
|
|
процедура штампај (текст) је |
|
|
|
системски_код (линукс_системски_позив_пиши, класични_излаз, текст, дужина_текста (текст)) |
|
|
|
системски_код (системски_позив_пиши, класични_излаз, текст, дужина_текста (текст).дужина) |
|
|
|
крај |
|
|
|
|
|
|
|
здраво () штампај ("Здраво!") |
|
|
|