Minor fooling around...
This commit is contained in:
parent
40f30e0bbb
commit
250310a0c9
@ -145,7 +145,7 @@ int main (void) {
|
||||
} else kill ("Expected marker, number or string: ", offset);
|
||||
} else kill ("Expected equal symbol: ", offset);
|
||||
} else kill ("Expected type: ", offset);
|
||||
} else kill ("Expected colon symbol: ", offset);
|
||||
} else kill ("Expected colon, open bracket or equal symbol: ", offset);
|
||||
}
|
||||
}
|
||||
|
||||
|
37
тест.срб
37
тест.срб
@ -1,32 +1,31 @@
|
||||
тип број = бајт (4)
|
||||
тип слово = бајт (1)
|
||||
тип број је 4 бајт;
|
||||
тип слово је 1 бајт;
|
||||
|
||||
тип логика (
|
||||
тип логика је (
|
||||
лаж,
|
||||
истина)
|
||||
|
||||
тип системски_позив (
|
||||
линукс_системски_позив_читај = 0,
|
||||
линукс_системски_позив_пиши = 1,
|
||||
линукс_системски_позив_отвори = 2,
|
||||
линукс_системски_позив_затвори = 3,
|
||||
линукс_системски_позив_изађи = 60)
|
||||
тип системски_позив је (
|
||||
системски_позив_читај = 0,
|
||||
системски_позив_пиши = 1,
|
||||
системски_позив_отвори = 2,
|
||||
системски_позив_затвори = 3,
|
||||
системски_позив_изађи = 60)
|
||||
|
||||
тип фајл_описивач (
|
||||
класични_улаз,
|
||||
класични_излаз)
|
||||
тип описивач је (
|
||||
стандардни_улаз,
|
||||
стандардни_излаз)
|
||||
|
||||
процедура дужина_текста (текст) врати број је
|
||||
улаз програм је главна
|
||||
|
||||
процедура дужина_текста (текст је низ слово) је
|
||||
дужина је број = 0
|
||||
док текст (дужина) није 0
|
||||
ради
|
||||
док текст (дужина) није 0 онда
|
||||
дужина ++
|
||||
крај
|
||||
врати (дужина)
|
||||
крај
|
||||
назад
|
||||
|
||||
процедура штампај (текст) је
|
||||
системски_код (линукс_системски_позив_пиши, класични_излаз, текст, дужина_текста (текст))
|
||||
системски_код (системски_позив_пиши, класични_излаз, текст, дужина_текста (текст).дужина)
|
||||
крај
|
||||
|
||||
здраво () штампај ("Здраво!")
|
||||
|
Loading…
Reference in New Issue
Block a user