Advertisement
Guest User

Untitled

a guest
Aug 13th, 2017
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
XBasic 1.32 KB | None | 0 0
  1. CLS
  2.  
  3. INPUT tmp$
  4.  
  5. FOR i = 1 TO LEN(tmp$)
  6.  
  7.         IF MID$(tmp$, i, 1) = " " THEN
  8.  
  9.                 n = VAL(LEFT$(tmp$, i - 1))
  10.  
  11.                 p = VAL(RIGHT$(tmp$, LEN(tmp$) - i))
  12.  
  13.         END IF
  14.  
  15. NEXT i
  16.  
  17. DIM a(n - 1)
  18.  
  19. FOR i = 1 TO n - 1
  20.  
  21.         a(i) = 0
  22.  
  23. NEXT i
  24.  
  25. FOR i = 1 TO p
  26.  
  27.         INPUT tmp$
  28.  
  29.         tmp$ = tmp$ + " "
  30.  
  31.         start = 0
  32.  
  33.         finish = 0
  34.  
  35.         j = 1
  36.  
  37.         quit = 0
  38.  
  39.         WHILE quit = 0
  40.  
  41.                 IF j = LEN(tmp$) THEN
  42.  
  43.                         quit = 1
  44.  
  45.                 END IF
  46.  
  47.                 IF MID$(tmp$, j, 1) = " " THEN
  48.  
  49.                         IF start = 0 THEN
  50.  
  51.                                 start = VAL(LEFT$(tmp$, j - 1))
  52.  
  53.                         ELSE
  54.  
  55.                                 finish = VAL(LEFT$(tmp$, j - 1))
  56.  
  57.                         END IF
  58.  
  59.                         tmp$ = RIGHT$(tmp$, LEN(tmp$) - j)
  60.  
  61.                         j = 1
  62.  
  63.                 END IF
  64.  
  65.                 j = j + 1
  66.  
  67.         WEND
  68.  
  69.         FOR j = start TO finish - 1
  70.  
  71.                 a(j) = a(j) + 1
  72.  
  73.         NEXT j
  74.  
  75. NEXT i
  76.  
  77. FOR i = 1 TO n - 1
  78.  
  79.         IF a(i) < p THEN
  80.  
  81.                 p = a(i)
  82.  
  83.         END IF
  84.  
  85. NEXT i
  86.  
  87. FOR i = 1 TO n - 1
  88.  
  89.         IF a(i) = p THEN
  90.  
  91.                 PRINT i, "-", i + 1
  92.  
  93.         END IF
  94.  
  95. NEXT i
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement