SHARE
TWEET

Untitled

a guest Aug 25th, 2018 83 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. MODULE Jul2003;
  2. FROM InOut IMPORT WriteLn,WriteString;
  3. FROM Stek IMPORT StekTip,Push,Top,Pop,MakeNull,Empty;
  4. FROM Info IMPORT InfoTip;
  5.  
  6. PROCEDURE zanimljiv(broj : CARDINAL) : BOOLEAN;
  7. BEGIN
  8.   IF broj <= 1 THEN
  9.  RETURN FALSE
  10.   ELSIF broj MOD 7 = 2 THEN
  11.     RETURN TRUE
  12.   ELSIF zanimljiv(broj DIV 10) OR zanimljiv(broj DIV 9) THEN
  13.     RETURN zanimljiv(broj DIV 8)
  14.   ELSE
  15.     RETURN FALSE
  16.      END
  17. END zanimljiv;
  18.  
  19. PROCEDURE Szanimljiv(broj: CARDINAL) : BOOLEAN;
  20. VAR
  21.    rez: BOOLEAN;
  22.    ok,jos: BOOLEAN;
  23.    s: StekTip;
  24.    el: InfoTip;
  25. BEGIN
  26. MakeNull(s);
  27. REPEAT
  28.    WHILE (broj > 1) AND (broj MOD 7 <> 2) DO
  29.       el.broj:= broj;
  30.       el.adr:= 1;
  31.       Push(s,el,ok);
  32.       broj:= broj DIV 10;
  33.    END;
  34.    IF broj <= 1 THEN
  35.       rez:= FALSE;
  36.    ELSE
  37.       rez:= TRUE;
  38.    END;
  39.    jos:= TRUE;
  40.    WHILE jos AND NOT Empty(s) DO
  41.       Top(s,el,ok);
  42.       Pop(s,ok);
  43.       broj:= el.broj;
  44.       IF el.adr = 1 THEN
  45.          el.PrviRez:= rez;
  46.      el.adr:= 2;
  47.      Push(s,el,ok);
  48.      broj:= broj MOD 9;
  49.      jos:= FALSE;
  50.       ELSIF el.adr = 2 THEN
  51.          el.DrugiRez:= rez;
  52.      IF el.PrviRez OR el.DrugiRez THEN
  53.         el.adr:= 3;
  54.         Push(s,el,ok);
  55.         broj:= broj DIV 8;
  56.         jos:= FALSE;
  57.      ELSE
  58.         rez:= FALSE;
  59.      END;
  60.        END;
  61.     END;
  62. UNTIL Empty(s);
  63. RETURN rez;
  64. END Szanimljiv;
  65.  
  66. BEGIN
  67.    IF zanimljiv(93) THEN
  68.       WriteLn;
  69.       WriteString("Zanimljiv");
  70.    ELSE
  71.       WriteLn;
  72.       WriteString("nije");
  73.    END;
  74.    IF Szanimljiv(93) THEN
  75.       WriteLn;
  76.       WriteString("Zanimljiv");
  77.    ELSE
  78.       WriteLn;
  79.       WriteString("nije");
  80.    END;
  81. END Jul2003.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top