xiranda/тест.срб

75 lines
2.0 KiB
Plaintext
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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