Tekst źródłowy strony CSL-CROOK - Instrukcje złożone z łańcuchami badań

Opisane dotychczas instrukcje warunkowe były uzależnione od pojedynczego testu. Możliwe jest jednak takie połączenie szeregu instrukcji testowych, aby ich rezultat końcowy był pojedynczy TRUE lub FALSE. Instrukcja złożona składa się z instrukcji tytułowej, po której następuje ciąg instrukcji tworzący łańcuch badań. Instrukcje z łańcucha badań to arytmetyczne instrukcje badające oraz instrukcje badania zbiorów. łańcuch badań stanowi grupę wciętą instrukcji o wspólnym stopniu wcięcia. Instrukcja tytułowa łańcucha steruje powtarzaniem łańcucha, podobnie jak to się odbywa z instrukcjami znajdującymi się w zakresie instrukcji FOR. Powtarzanie łańcucha testów sterowane jest przez indeksowanie według zbioru. Instrukcja nagłówkowa określa nazwę zbioru i zmienną indeksową, która kolejno przybiera wartości indeksu obiektu każdego elementu zbioru.

Ostateczny rezultat instrukcji złożonej jest zależny od liczby elementów zbioru, które spełniają warunki łańcucha testów oraz różnych kryteriów ustalonych przez poszczególne typy opisanych poniżej instrukcji tytułowych.

= Instrukcja CHAIN =

Postać instrukcji:

: <tt>CHAIN e1 @ e2</tt>
: <tt>:</tt>
: <tt>: (instrukcje łańcucha badań)</tt>

Jeżeli wszystkie instrukcje warunkowe łańcucha badań są spełnione (TRUE), to następuje skok do instrukcji o etykiecie <tt>e1</tt>. Natomiast jeżeli chociaż jedna instrukcja z łańcucha nie jest spełniona (TRUE), to nastąpi skok do etykiety <tt>e2</tt>.

= Instrukcja ALL =

Postać instrukcji:

: <tt>ALL n Z1 e1 @ e2</tt>
: <tt>:</tt>
: <tt>: (instrukcje łańcucha badań)</tt>

Łańcuch badań jest powtarzany ze zmienną <tt><n></tt> przyjmującą  kolejne wartości indeksów obiektu elementów zbioru <tt>Z1</tt>. Skok do etykiety <tt>e1</tt> nastąpi wtedy gdy wszystkie instrukcje warunkowe z łańcucha będą miały wartość TRUE, w przeciwnym wypadku nastąpi skok do etykiety <tt>e2</tt>.

= Instrukcja UNIQUE =

Postać instrukcji:

: <tt>UNIQUE  (w)  n Z1 e1 @ e</tt>
: <tt>:</tt>
: <tt>: (instrukcje łańcucha badań)</tt>

Skok do etykiety <tt>e1</tt> nastąpi wtedy, gdy dokładnie tyle obiektów zbioru <tt>Z1</tt> spełnia warunkowe instrukcje z łańcucha badań, ile wynosi wartość wyrażenia <tt><w></tt>. W innym przypadku skok następuje do etykiety <tt>e2</tt>.

= Instrukcja COUNT =

Postać instrukcji:

: <tt>COUNT n Z1</tt>
: <tt>:</tt>
: <tt>: (instrukcje łańcucha badań)</tt>

Jeżeli instrukcja tytułowa występuje z łańcuchem badań, to zliczana jest ilość obiektów należących do zbioru <tt>Z1</tt>, dla których są spełnione instrukcje badające łańcucha. Wynik liczenia jest pamiętany pod nazwą <tt><n></tt> i stanowi produkt do wykorzystania w innych instrukcjach. W przypadku gdy instrukcja '''COUNT''' występuje bez łańcucha badań, to służy do obliczania ilości elementów w zbiorze <tt>Z1</tt>.

= Instrukcja EXISTS =

Postać instrukcji:

: <tt>EXISTS  (w)  n Z1 e1 @ e2</tt>
: <tt>:</tt>
: <tt>:  (instrukcje łańcucha badań)</tt>

Wykonywany jest skok do etykiety <tt>e1</tt>, gdy co najmniej tyle obiektów zbioru <tt>Z1</tt> spełnia warunkowe instrukcje łańcucha ile wynosi wartość wyrażenia <tt><w></tt>. W innym przypadku skok następuje do etykiety <tt>e2</tt>. Wyrażenie <tt><w></tt> wraz z zamykającymi je nawiasami może być pominięte. W takim przypadku przyjmuje się, że jego wartość jest równa 1.

= Instrukcja SUM =

Postać instrukcji:

: <tt>SUM   (w)  n = Z1</tt>

lub

: <tt>SUM   (w)  n = m1, m2, m3</tt>
: <tt>:</tt>
: <tt>:  (instrukcje łańcucha badań</tt>

Pierwsza z dwóch instrukcji '''SUM''' jest wykonywana z indeksowaniem według zbioru. łańcuch badań w tym przypadku jest powtarzany ze zmienną <tt><n></tt> przyjmującą kolejne wartości indeksów obiektów ze zbioru <tt>Z1</tt>. Dla każdego obiektu ze zbioru <tt>Z1</tt>, spełniającego warunki łańcucha badań obliczana jest wartość wyrażenia <tt><w></tt>. Wartości obliczone są sumowane. Po zakończeniu wykonywania instrukcji '''SUM''' łączny wynik sumowania jest podstawiony w miejsce wartości, jaką miała zmienna <tt><n></tt>. Zmienna <tt><n></tt> może stanowić treść innych instrukcji.

Druga postać instrukcji przypomina swym działaniem instrukcję '''FOR'''. Zmienna <tt><n></tt> przybiera wartość pomiędzy <tt>m1</tt> i <tt>m2</tt> z przyrostem <tt>m3</tt>. Wartość wyrażenia <tt><w></tt> jest obliczana, dla każdej wartości indeksu a po zakończeniu wykonywania instrukcji zmienna <tt><n></tt> przybiera wartość równą sumie tych obliczonych wartości. Parametr <tt>m3</tt> można pominąć, wtedy przyjmuje się, że posiada on wartość 1.

{{source|title=Translator języka CSL-CROOK dla minikomputera MERA-400 w systemie operacyjnym CROOK-4, Instrukcja Programisty (wersja-17/2)|author=Janusz Gocałek, Jacek Klauziński|date=Poznań, 1985}}