Advertisement
Guest User

Untitled

a guest
Jun 24th, 2019
111
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. CASE #iKrok OF
  2.     0:  //  Krok inicjalizacji
  3.         "Akcja_0"();
  4.         //warunek tranzycji
  5.         IF #Start THEN
  6.             #iKrok := 10;
  7.         END_IF;
  8.     10:  //  Krok 10
  9.         "Akcja_10"();
  10.         //warunek tranzycji        
  11.         IF #WarunekTranzycji10 THEN
  12.             #iKrok := 15;
  13.             #iKrokSubSekwencji := 20;
  14.         END_IF;
  15.     15:  //  Krok 20, 30, 40
  16.         CASE #iKrokSubSekwencji OF  //sekwencja zagnieżdżona
  17.             20:
  18.                 "Akcja_20"();
  19.                 IF #WarunekTranzycji20 THEN
  20.                     #iKrokSubSekwencji := 40;
  21.                 END_IF;
  22.             40:
  23.                 "Akcja_40"();
  24.         END_CASE;
  25.         "Akcja_30"();
  26.         //warunek tranzycji        
  27.         IF #WarunekTranzycji30 AND (#iKrokSubSekwencji=40 AND #WarunekTranzycji40) THEN
  28.             #iKrok := 0;
  29.         END_IF;
  30. END_CASE;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement