From 5e18ac75dcd82dd1c0075051f2c7047e684d220c Mon Sep 17 00:00:00 2001 From: xolatile Date: Wed, 3 Apr 2024 11:06:19 -0400 Subject: [PATCH] Serbian test... --- тест.срб | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 тест.срб diff --git a/тест.срб b/тест.срб new file mode 100644 index 0000000..1313550 --- /dev/null +++ b/тест.срб @@ -0,0 +1,52 @@ +тип број = бајт (4) +тип слово = бајт (1) + +тип логика ( + лаж, + истина) + +тип системски_позив ( + линукс_системски_позив_читај = 0, + линукс_системски_позив_пиши = 1, + линукс_системски_позив_отвори = 2, + линукс_системски_позив_затвори = 3, + линукс_системски_позив_изађи = 60) + +тип фајл_описивач ( + класични_улаз, + класични_излаз) + +процедура дужина_текста (текст) врати број је + дужина је број = 0 + док текст (дужина) није 0 + ради + дужина ++ + крај + врати (дужина) +крај + +процедура штампај (текст) је + системски_код (линукс_системски_позив_пиши, класични_излаз, текст, дужина_текста (текст)) +крај + +здраво () штампај ("Здраво!") +видимо_се () штампај ("Видимо се!") + +глобална_константа = 666 + +процедура главна је + здраво () + док а је 1 ... 17 је + ако а % 3 је 0 или а % 5 је 0 онда + штампај ("физ + баз") + иначе ако а % 3 је 0 онда + штампај ("физ") + иначе ако а % 5 је 0 онда + штампај ("баз") + иначе + штампај ("<->") + штампај ("\n") + крај + видимо_се + врати 60 +крај