ob:o7:generator
Различия
Показаны различия между двумя версиями страницы.
| Предыдущая версия справа и слеваПредыдущая версия | |||
| ob:o7:generator [2026/09/11 23:15] – iadenisov | ob:o7:generator [2026/09/11 23:16] (текущий) – iadenisov | ||
|---|---|---|---|
| Строка 42: | Строка 42: | ||
| < | < | ||
| MODULE Main; | MODULE Main; | ||
| + | |||
| IMPORT SYSTEM, | IMPORT SYSTEM, | ||
| ARMv7M := MicroARMv7M, | ARMv7M := MicroARMv7M, | ||
| Строка 51: | Строка 52: | ||
| VAR | VAR | ||
| delay: INTEGER; ledOn: BOOLEAN; | delay: INTEGER; ledOn: BOOLEAN; | ||
| + | |||
| PROCEDURE Setup; | PROCEDURE Setup; | ||
| BEGIN | BEGIN | ||
| Строка 63: | Строка 65: | ||
| delay := FLOOR(Rnd.Uniform() * 1000.0); | delay := FLOOR(Rnd.Uniform() * 1000.0); | ||
| END Setup; | END Setup; | ||
| - | + | ||
| PROCEDURE Loop; | PROCEDURE Loop; | ||
| BEGIN | BEGIN | ||
| Строка 83: | Строка 85: | ||
| UNTIL FALSE | UNTIL FALSE | ||
| END Loop; | END Loop; | ||
| + | |||
| BEGIN | BEGIN | ||
| Setup; | Setup; | ||
ob/o7/generator.1789168552.txt.gz · Последнее изменение: — iadenisov