home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 May / 64er_Magazin_86-05_1986_Markt__Technik_de.d64 / joseph < prev    next >
Encoding:
Text File  |  1986-01-01  |  783 b   |  35 lines
  1. PROGRAM JOSEPH;
  2. CONST ANZAHL=41;
  3.       REST=2;
  4.       ABZAEHL=3;
  5. VAR I,J,K:INTEGER;
  6.     REIHE:SET OF 1..ANZAHL;
  7. BEGIN
  8. (*INITIALISIEREN*)
  9.   REIHE:=[1..ANZAHL];
  10.  I:=ANZAHL;
  11.  K:=ANZAHL;
  12.  (*WIEDERHOLE BIS NUR NOCH 2
  13.    ELEMENTE IN DER REIHE SIND
  14.    DIESE GEBEN DIE GESUCHTEN
  15.    POSITIONEN AN *)
  16.  WHILE K>REST DO
  17.    BEGIN
  18.     FOR J:= 1 TO ABZAEHL DO
  19.        REPEAT
  20.         IF I<ANZAHL THEN I:=I+1
  21.           ELSE I:=1;
  22.        UNTIL I IN REIHE;
  23.  (* DER JEWEILS DRITTE WIRD GESTRICHEN *)
  24.     REIHE:=REIHE-[I];
  25.     K:=0;
  26.  (* JETZT WIRD FESTGESTELLT, WIEVIELE ELEMENTE DIE
  27.     MENGE NOCH ENTHAELT *)
  28.     FOR J:= 1 TO ANZAHL DO
  29.       IF J IN REIHE THEN K:=K+1;
  30.   END; (* ENDE DER WHILE-SCHLEIFE*)
  31.    FOR J:= 1 TO ANZAHL DO
  32.      IF J IN REIHE THEN
  33.         WRITELN('GESUCHTE POSITIONNR.: ',J)
  34. END.
  35.