Aufgabe 2 b)

2. b)Prozedur Suchealle

Funktionsweise:
Die Funktion Suchealle sucht alle zu suchenden Werte in einem Array.

Prozedurname: Suchealle

Parameter: such     Der zu suchende Wert
             groesse Die Anzahl der im Array gespeicherten Werte
                 arr        Array in dem die Werte gesuchtwerden sollen
             rueck    Array in dem die Positionen der gefundenenWerte gespeichert
   werden.

Pseudocode

i := 1; (* Laufvariable initialisieren *)
j := 0;
solange (i <= groesse) mache
  (* Ist der aktuelle Wert im Array der gesuchte *)
  Wenn arr[i] = such Dann
    j := j + 1
    rueck[j] := i; (* Rueckgabewert uebergeben *)
  Ende Wenn
  i := i + 1; (* Laufvariable erhoehen *)
Ende Solange

Quellcode

(* Gewerbeoberschule „Max Valier“ Bozen
   3ia
   Thomas G. *)
PROCEDURE Suchealle (such : INTEGER;
                     groesse : INTEGER;
                     arr : t_tab;
                     VAR rueck : t_tab);

VAR
  i : INTEGER;
  ende : BOOLEAN;
  j : INTEGER;

BEGIN
  ende := FALSE;
  i := 1; (* Laufvariable initialisieren *)
  j := 0;
  WHILE NOT(ende) AND (i < groesse) DO BEGIN
    (* Ist der aktuelle Wert im Array der gesuchte *)
    IF arr[i] = such THEN BEGIN
      j := j + 1
      rueck[j] := i; (* Rueckgabewert uebergeben *)
    END;
  END; (* OF WHILE *)
  i := i + 1; (* Laufvariable erhoehen *)
END; (* OF FUNCTION *)