so-un-bot/Ingegneria del Software/0621_6/correct.txt

16 lines
No EOL
208 B
Text

function next
input Integer x;
output Integer y;
algorithm
y := 1 - x;
end next;
class System
Integer x;
initial equation
x = 0;
equation
when sample(0, 1) then
x = next(pre(x));
end when;
end System;