Подскажите, как сделать генератор для Библии?

[Simple Hosting]

Если нужен генератор только для стихов книги Бытие, для первой главы тогда так:

Code: (Clickermann) [Select]

print(RND(1,31))
Если нужен генератор по главам книги Бытие, тогда так:

Code: (Clickermann) [Select]

print(RND(1,50))
Если нужен генератор по книгам, тогда так:

Code: (Clickermann) [Select]

print(RNDFROM("Бытие", "Исход", "Левит"))
Подскажите пожалуйста, как учесть вложение книг, глав и стихов?

[Simple Hosting]

Остановлюсь на таком варианте:

Code: (Clickermann) [Select]

$book = RND(1,3)

switch($book)
case(1)
   print("Книга: ", "Бытие")
   print("Глава: ", RND(1,4))

$verse = RND(1,4)
   if($verse = 1)
      print("Стих: ", RND(1,31))
   end_if

   if($verse = 2)
      print("Стих: ", RND(1,25))
   end_if
   if($verse = 3)
      print("Стих: ", RND(1,24))
   end_if
   if($verse = 4)
      print("Стих: ", RND(1,26))
   end_if

case(2)
   print("Книга: ", "Исход")
   print("Глава: ", RND(1,4))

$verse = RND(1,4)   
   if($verse = 1)
      print("Стих: ", RND(1,22))
   end_if
   if($verse = 2)
      print("Стих: ", RND(1,25))
   end_if
   if($verse = 3)
      print("Стих: ", RND(1,22))
   end_if
   if($verse = 4)
      print("Стих: ", RND(1,31))
   end_if

case(3)
   print("Книга: ", "Левит")
   print("Глава: ", RND(1,4))

$verse = RND(1,4)
   if($verse = 1)
      print("Стих: ", RND(1,17))
   end_if
   if($verse = 2)
      print("Стих: ", RND(1,16))
   end_if
   if($verse = 3)
      print("Стих: ", RND(1,17))
   end_if
   if($verse = 4)
      print("Стих: ", RND(1,35))
   end_if

end_switch

HALT

[Oraven]

switch можно вкладывать в switch

Code: (clickermann) [Select]

$book = RND(1,3)
switch($book)
     
   case(1)
      print("Книга: ", "Бытие")
      $verse = RND(1,4)
      print("Глава: ", $verse)
     
      switch($verse)
         case(1)
            print("Стих: ", RND(1,31))
         case(2)
            print("Стих: ", RND(1,25))
         case(3)
            print("Стих: ", RND(1,24))
         case(4)
            print("Стих: ", RND(1,26))
      end_switch
     
   case(2)
      print("Книга: ", "Исход")
      $verse = RND(1,4)
      print("Глава: ", $verse)
     
      switch($verse)
         case(1)
            print("Стих: ", RND(1,22))
         case(2)
            print("Стих: ", RND(1,25))
         case(3)
            print("Стих: ", RND(1,22))
         case(4)
            print("Стих: ", RND(1,31))
      end_switch
     
   case(3)
      print("Книга: ", "Левит")
      $verse = RND(1,4)
      print("Глава: ", $verse)
     
      switch($verse)
         case(1)
            print("Стих: ", RND(1,17))
         case(2)
            print("Стих: ", RND(1,16))
         case(3)
            print("Стих: ", RND(1,17))
         case(4)
            print("Стих: ", RND(1,35))
      end_switch
     
end_switch 

HALT

[Simple Hosting]

СПАСИБО!!!

[Simple Hosting]

Подытожим:

• case - 120 штук;
• print - 123 штуки;
• RND - 121 штука;
• Стих - 117 штук.

И это только 3-и книги, возможно ли уменьшить код программы?

Code: (Clickermann) [Select]

$book = RND(1,3)
switch($book)
 
   case(1)
      print("Книга: ", "Бытие")
      $verse = RND(1,50)
      print("Глава: ", $verse)
 
      switch($verse)
         case(1)
            print("Стих: ", RND(1,31))
         case(2)
            print("Стих: ", RND(1,25))
         case(3)
            print("Стих: ", RND(1,24))
         case(4)
            print("Стих: ", RND(1,26))
         case(5)
            print("Стих: ", RND(1,32))
         case(6)
            print("Стих: ", RND(1,22))
         case(7)
            print("Стих: ", RND(1,24))
         case(8)
            print("Стих: ", RND(1,22))
         case(9)
            print("Стих: ", RND(1,29))
         case(10)
            print("Стих: ", RND(1,32))
         case(11)
            print("Стих: ", RND(1,32))
         case(12)
            print("Стих: ", RND(1,20))
         case(13)
            print("Стих: ", RND(1,18))
         case(14)
            print("Стих: ", RND(1,24))
         case(15)
            print("Стих: ", RND(1,21))
         case(16)
            print("Стих: ", RND(1,16))
         case(17)
            print("Стих: ", RND(1,27))
         case(18)
            print("Стих: ", RND(1,33))
         case(19)
            print("Стих: ", RND(1,38))
         case(20)
            print("Стих: ", RND(1,18))
         case(21)
            print("Стих: ", RND(1,34))
         case(22)
            print("Стих: ", RND(1,24))
         case(23)
            print("Стих: ", RND(1,20))
         case(24)
            print("Стих: ", RND(1,67))
         case(25)
            print("Стих: ", RND(1,34))
         case(26)
            print("Стих: ", RND(1,35))
         case(27)
            print("Стих: ", RND(1,46))
         case(28)
            print("Стих: ", RND(1,22))
         case(29)
            print("Стих: ", RND(1,35))
         case(30)
            print("Стих: ", RND(1,43))
         case(31)
            print("Стих: ", RND(1,55))
         case(32)
            print("Стих: ", RND(1,32))
         case(33)
            print("Стих: ", RND(1,20))
         case(34)
            print("Стих: ", RND(1,31))
         case(35)
            print("Стих: ", RND(1,29))
         case(36)
            print("Стих: ", RND(1,43))
         case(37)
            print("Стих: ", RND(1,36))
         case(38)
            print("Стих: ", RND(1,30))
         case(39)
            print("Стих: ", RND(1,23))
         case(40)
            print("Стих: ", RND(1,23))
         case(41)
            print("Стих: ", RND(1,57))
         case(42)
            print("Стих: ", RND(1,38))
         case(43)
            print("Стих: ", RND(1,34))
         case(44)
            print("Стих: ", RND(1,34))
         case(45)
            print("Стих: ", RND(1,28))
         case(46)
            print("Стих: ", RND(1,34))
         case(47)
            print("Стих: ", RND(1,31))
         case(48)
            print("Стих: ", RND(1,22))
         case(49)
            print("Стих: ", RND(1,33))
         case(50)
            print("Стих: ", RND(1,26))
      end_switch
 
   case(2)
      print("Книга: ", "Исход")
      $verse = RND(1,40)
      print("Глава: ", $verse)
 
      switch($verse)
         case(1)
            print("Стих: ", RND(1,22))
         case(2)
            print("Стих: ", RND(1,25))
         case(3)
            print("Стих: ", RND(1,22))
         case(4)
            print("Стих: ", RND(1,31))
         case(5)
            print("Стих: ", RND(1,23))
         case(6)
            print("Стих: ", RND(1,30))
         case(7)
            print("Стих: ", RND(1,25))
         case(8)
            print("Стих: ", RND(1,32))
         case(9)
            print("Стих: ", RND(1,35))
         case(10)
            print("Стих: ", RND(1,29))
         case(11)
            print("Стих: ", RND(1,10))
         case(12)
            print("Стих: ", RND(1,51))
         case(13)
            print("Стих: ", RND(1,22))
         case(14)
            print("Стих: ", RND(1,31))
         case(15)
            print("Стих: ", RND(1,27))
         case(16)
            print("Стих: ", RND(1,36))
         case(17)
            print("Стих: ", RND(1,16))
         case(18)
            print("Стих: ", RND(1,27))
         case(19)
            print("Стих: ", RND(1,25))
         case(20)
            print("Стих: ", RND(1,26))
         case(21)
            print("Стих: ", RND(1,36))
         case(22)
            print("Стих: ", RND(1,31))
         case(23)
            print("Стих: ", RND(1,33))
         case(24)
            print("Стих: ", RND(1,18))
         case(25)
            print("Стих: ", RND(1,40))
         case(26)
            print("Стих: ", RND(1,37))
         case(27)
            print("Стих: ", RND(1,21))
         case(28)
            print("Стих: ", RND(1,43))
         case(29)
            print("Стих: ", RND(1,46))
         case(30)
            print("Стих: ", RND(1,38))
         case(31)
            print("Стих: ", RND(1,18))
         case(32)
            print("Стих: ", RND(1,35))
         case(33)
            print("Стих: ", RND(1,23))
         case(34)
            print("Стих: ", RND(1,35))
         case(35)
            print("Стих: ", RND(1,35))
         case(36)
            print("Стих: ", RND(1,38))
         case(37)
            print("Стих: ", RND(1,29))
         case(38)
            print("Стих: ", RND(1,31))
         case(39)
            print("Стих: ", RND(1,43))
         case(40)
            print("Стих: ", RND(1,38))
      end_switch
 
   case(3)
      print("Книга: ", "Левит")
      $verse = RND(1,27)
      print("Глава: ", $verse)
 
      switch($verse)
         case(1)
            print("Стих: ", RND(1,17))
         case(2)
            print("Стих: ", RND(1,16))
         case(3)
            print("Стих: ", RND(1,17))
         case(4)
            print("Стих: ", RND(1,35))
         case(5)
            print("Стих: ", RND(1,19))
         case(6)
            print("Стих: ", RND(1,30))
         case(7)
            print("Стих: ", RND(1,38))
         case(8)
            print("Стих: ", RND(1,36))
         case(9)
            print("Стих: ", RND(1,24))
         case(10)
            print("Стих: ", RND(1,20))
         case(11)
            print("Стих: ", RND(1,47))
         case(12)
            print("Стих: ", RND(1,8))
         case(13)
            print("Стих: ", RND(1,59))
         case(14)
            print("Стих: ", RND(1,56))
         case(15)
            print("Стих: ", RND(1,33))
         case(16)
            print("Стих: ", RND(1,34))
         case(17)
            print("Стих: ", RND(1,16))
         case(18)
            print("Стих: ", RND(1,30))
         case(19)
            print("Стих: ", RND(1,37))
         case(20)
            print("Стих: ", RND(1,27))
         case(21)
            print("Стих: ", RND(1,24))
         case(22)
            print("Стих: ", RND(1,33))
         case(23)
            print("Стих: ", RND(1,44))
         case(24)
            print("Стих: ", RND(1,23))
         case(25)
            print("Стих: ", RND(1,55))
         case(26)
            print("Стих: ", RND(1,46))
         case(27)
            print("Стих: ", RND(1,34))
      end_switch
 
end_switch 
 
HALT

[Vint]

Возможно.

Code: (clickermann) [Select]

UNDEFINE($books)
UNDEFINE($chapters)

STRSEPARATE("Бытие:Исход:Левит", ":", $books)
$book = RND(1, 3)
print("Книга: ", $books[$book-1])
switch($book)
    case(1)
        STRSEPARATE("31,25,24,26,32,22,24,22,29,32,32,20,18,24,21,16,27,33,38,18,34,24,20,67,34,35,46,22,35,43,55,32,20,31,29,43,36,30,23,23,57,38,34,34,28,34,31,22,33,26", ",", $chapters)
    case(2)
        STRSEPARATE("22,25,22,31,23,30,25,32,35,29,10,51,22,31,27,36,16,27,25,26,36,31,33,18,40,37,21,43,46,38,18,35,23,35,35,38,29,31,43,38", ",", $chapters)
    case(3)
        STRSEPARATE("17,16,17,35,19,30,38,36,24,20,47,8,59,56,33,34,16,30,37,27,24,33,44,23,55,46,34", ",", $chapters)
end_switch

$chapter = RND(1, ARRSIZE($chapters))
$verse = RND(1, $chapters[$chapter-1])

print("Глава: ", $chapter, " из (", ARRSIZE($chapters), ")")
print("Стих:  ", $verse, " из (", $chapters[$chapter-1], ")")
print("")
HALT

9:38:56 Книга: Бытие
9:38:56 Глава: 16 из (50)
9:38:56 Стих:  12 из (16)
9:38:56
9:38:57 Книга: Исход
9:38:57 Глава: 3 из (40)
9:38:57 Стих:  6 из (22)
9:38:57
9:38:58 Книга: Левит
9:38:58 Глава: 2 из (27)
9:38:58 Стих:  14 из (16)

[Vint]

Вариант 2.
Чуть удобней для добавления данных и без Свитчей.

Code: (clickermann) [Select]

UNDEFINE($books)
UNDEFINE($chapters)

ARRPUSH($books, "Бытие,31,25,24,26,32,22,24,22,29,32,32,20,18,24,21,16,27,33,38,18,34,24,20,67,34,35,46,22,35,43,55,32,20,31,29,43,36,30,23,23,57,38,34,34,28,34,31,22,33,26")
ARRPUSH($books, "Исход,22,25,22,31,23,30,25,32,35,29,10,51,22,31,27,36,16,27,25,26,36,31,33,18,40,37,21,43,46,38,18,35,23,35,35,38,29,31,43,38")
ARRPUSH($books, "Левит,17,16,17,35,19,30,38,36,24,20,47,8,59,56,33,34,16,30,37,27,24,33,44,23,55,46,34")

$book = RND(1, 3)
STRSEPARATE($books[$book-1], ",", $chapters)
print("Книга: ", $chapters[0])

$chapter = RND(1, ARRSIZE($chapters)-1)
$verse = RND(1, $chapters[$chapter])

print("Глава: ", $chapter, " из (", ARRSIZE($chapters)-1, ")")
print("Стих:  ", $verse, " из (", $chapters[$chapter], ")")
print("")
HALT
Просто добавляем книги по аналогии:

Code: (clickermann) [Select]

ARRPUSH($books, "Левит,17,16,17,35,19,30,38,36,24,20,47,8,59,56,33,34,16,30,37,27,24,33,44,23,55,46,34")
ARRPUSH($books, "НазваниеКниги,СтиховВПервойГлаве,СтиховВоВторойГлаве, ...")

[Simple Hosting]

Осталось всего лишь:

• ARRPUSH - 77 штук;
• $books - 79 штуки.

СПАСИБО!!!

Clickermann поддерживает базы?

Code: (Clickermann) [Select]

UNDEFINE($books)
UNDEFINE($chapters)
 
ARRPUSH($books, "Бытие,31,25,24,26,32,22,24,22,29,32,32,20,18,24,21,16,27,33,38,18,34,24,20,67,34,35,46,22,35,43,55,32,20,31,29,43,36,30,23,23,57,38,34,34,28,34,31,22,33,26")
ARRPUSH($books, "Исход,22,25,22,31,23,30,25,32,35,29,10,51,22,31,27,36,16,27,25,26,36,31,33,18,40,37,21,43,46,38,18,35,23,35,35,38,29,31,43,38")
ARRPUSH($books, "Левит,17,16,17,35,19,30,38,36,24,20,47,8,59,56,33,34,16,30,37,27,24,33,44,23,55,46,34")
ARRPUSH($books, "Числа,54,34,51,49,31,27,89,26,23,36,35,16,33,45,41,50,13,32,22,29,35,41,30,25,18,65,23,31,40,16,54,42,56,29,34,13")
ARRPUSH($books, "Второзаконие,46,37,29,49,33,25,26,20,29,22,32,32,18,29,23,22,20,22,21,20,23,30,25,22,19,19,26,68,29,20,30,52,29,12")
ARRPUSH($books, "Иисус Навин,18,24,17,24,15,27,26,35,27,43,23,24,33,15,63,10,18,28,51,9,45,34,16,33")
ARRPUSH($books, "Судьи,36,23,31,24,31,40,25,35,57,18,40,15,25,20,20,31,13,31,30,48,25")
ARRPUSH($books, "Руфь,22,23,18,22")
ARRPUSH($books, "1-я Царств,28,36,21,22,12,21,17,22,27,27,15,25,23,52,35,23,58,30,24,42,15,23,29,22,44,25,12,25,11,31,13")
ARRPUSH($books, "2-я Царств,27,32,39,12,25,23,29,18,13,19,27,31,39,33,37,23,29,33,43,26,22,51,39,25")
ARRPUSH($books, "3-я Царств,53,46,28,34,18,38,51,66,28,29,43,33,34,31,34,34,24,46,21,43,29,53")
ARRPUSH($books, "4-я Царств,18,25,27,44,27,33,20,29,37,36,21,21,25,29,38,20,41,37,37,21,26,20,37,20,30")
ARRPUSH($books, "1-я Паралипоменон,54,55,24,43,26,81,40,40,44,14,47,40,14,17,29,43,27,17,19,8,30,19,32,31,31,32,34,21,30")
ARRPUSH($books, "2-я Паралипоменон,17,18,17,22,14,42,22,18,31,19,23,16,22,15,19,14,19,34,11,37,20,12,21,27,28,23,9,27,36,27,21,33,25,33,27,24")
ARRPUSH($books, "Ездра,11,70,13,24,17,22,28,36,15,44")
ARRPUSH($books, "Неемия,11,20,32,23,19,19,73,18,38,39,36,47,31")
ARRPUSH($books, "2-я Ездры *,58,31,24,63,70,34,15,92,55")
ARRPUSH($books, "Товит *,22,14,17,21,22,18,17,21,6,13,18,22,18,15")
ARRPUSH($books, "Иудифь *,16,28,10,15,24,21,32,36,14,23,23,20,20,19,14,25")
ARRPUSH($books, "Есфирь,22,23,15,17,14,14,10,17,32,3")
ARRPUSH($books, "Иов,22,13,26,21,27,30,21,22,35,22,20,25,28,22,35,22,16,21,29,29,34,30,17,25,6,14,23,28,25,31,40,22,33,37,16,33,24,41,30,24,34,17")
ARRPUSH($books, "Псалтирь,6,12,8,8,12,10,17,9,20,18,7,8,6,7,5,11,15,50,14,9,13,31,6,10,22,12,14,9,11,12,24,11,22,22,28,12,40,22,13,17,13,11,5,26,17,11,9,14,20,23,19,9,6,7,23,13,11,11,17,12,8,12,11,10,13,20,7,35,36,5,24,20,28,23,10,12,20,72,13,19,16,8,18,12,13,17,7,18,52,17,16,15,5,23,11,13,12,9,9,5,8,28,22,35,45,48,43,13,31,7,10,10,9,8,18,19,2,29,176,7,8,9,4,8,5,6,5,6,8,8,3,18,3,3,21,26,9,8,24,13,10,7,12,15,21,10,20,14,9,6,7")
ARRPUSH($books, "Притчи,33,22,35,27,23,35,27,36,18,32,31,28,25,35,33,33,28,24,29,30,31,29,35,34,28,28,27,28,27,33,31")
ARRPUSH($books, "Екклесиаст,18,26,22,16,20,12,29,17,18,20,10,14")
ARRPUSH($books, "Песня Песней,17,17,11,16,16,13,13,14")
ARRPUSH($books, "Премудрости Соломона *,16,24,19,20,24,27,30,21,19,21,27,28,19,31,19,29,20,25,21")
ARRPUSH($books, "Сирах *,6,30,18,31,35,18,37,39,22,23,34,34,18,32,27,20,31,31,33,28,31,31,31,37,37,29,27,33,30,31,27,37,25,33,26,23,29,34,39,42,32,29,26,36,27,31,23,31,28,18,31")
ARRPUSH($books, "Исаия,31,22,26,6,30,13,25,22,21,34,16,6,22,32,9,14,14,7,25,6,17,25,18,23,12,21,13,29,24,33,9,20,24,17,10,22,38,22,8,31,29,25,28,28,25,13,15,22,26,11,23,15,12,17,13,12,21,14,21,22,11,12,19,12,25,24")
ARRPUSH($books, "Иеремия,19,37,25,31,31,30,34,22,26,25,23,17,27,22,21,21,27,23,15,18,14,30,40,10,38,24,22,17,32,24,40,44,26,22,19,32,21,28,18,16,18,22,13,30,5,28,7,47,39,46,64,34")
ARRPUSH($books, "Плач Иеремии,22,22,66,22,22")
ARRPUSH($books, "Послание Иеремии *,72")
ARRPUSH($books, "Варух *,22,35,38,37,9")
ARRPUSH($books, "Иезекииль,28,10,27,17,17,14,27,18,11,22,25,28,23,23,8,63,24,32,14,49,32,31,49,27,17,21,36,26,21,26,18,32,33,31,15,38,28,23,29,49,26,20,27,31,25,24,23,35")
ARRPUSH($books, "Даниил,21,49,100,34,31,28,28,27,27,21,45,13,64,42")
ARRPUSH($books, "Осия,11,23,5,19,15,11,16,14,17,15,12,14,16,9")
ARRPUSH($books, "Иоиль,20,32,21")
ARRPUSH($books, "Амос,15,16,15,13,27,14,17,14,15")
ARRPUSH($books, "Авдий,21")
ARRPUSH($books, "Иона,17,10,10,11")
ARRPUSH($books, "Михей,16,13,12,13,15,16,20")
ARRPUSH($books, "Наум,15,13,19")
ARRPUSH($books, "Аввакум,17,20,19")
ARRPUSH($books, "Софония,18,15,20")
ARRPUSH($books, "Аггей,15,23")
ARRPUSH($books, "Захария,21,13,10,14,11,15,14,23,17,12,17,14,9,21")
ARRPUSH($books, "Малахия,14,17,18,6")
ARRPUSH($books, "1-я Маккавейская *,64,70,60,61,68,63,50,32,73,89,74,53,53,49,41,24")
ARRPUSH($books, "2-я Маккавейская *,36,33,40,50,27,31,42,36,29,38,38,45,26,46,39")
ARRPUSH($books, "3-я Маккавейская *,25,24,22,16,36,37,20")
ARRPUSH($books, "3-я Ездры *,40,48,36,52,56,59,70,63,47,60,46,51,58,48,63,78")
ARRPUSH($books, "От Матфея,25,23,17,25,48,34,29,34,38,42,30,50,58,36,39,28,27,35,30,34,46,46,39,51,46,75,66,20")
ARRPUSH($books, "От Марка,45,28,35,41,43,56,37,38,50,52,33,44,37,72,47,20")
ARRPUSH($books, "От Луки,80,52,38,44,39,49,50,56,62,42,54,59,35,35,32,31,37,43,48,47,38,71,56,53")
ARRPUSH($books, "От Иоанна,51,25,36,54,47,71,53,59,41,42,57,50,38,31,27,33,26,40,42,31,25")
ARRPUSH($books, "Деяния,26,47,26,37,42,15,60,40,43,48,30,25,52,28,41,40,34,28,41,38,40,30,35,27,27,32,44,31")
ARRPUSH($books, "Иакова,27,26,18,17,20")
ARRPUSH($books, "1-е Петра,25,25,22,19,14")
ARRPUSH($books, "2-е Петра,21,22,18")
ARRPUSH($books, "1-е Иоанна,10,29,24,21,21")
ARRPUSH($books, "2-е Иоанна,13")
ARRPUSH($books, "3-е Иоанна ,14")
ARRPUSH($books, "Иуды ,25")
ARRPUSH($books, "К Римлянам,32,29,31,25,21,23,25,39,33,21,36,21,14,23,33,27")
ARRPUSH($books, "1-е Коринфянам,31,16,23,21,13,20,40,13,27,33,34,31,13,40,58,24")
ARRPUSH($books, "2-е Коринфянам,24,17,18,18,21,18,16,24,15,18,33,21,14")
ARRPUSH($books, "К Галатам,24,21,29,31,26,18")
ARRPUSH($books, "К Ефесянам,23,22,21,32,33,24")
ARRPUSH($books, "К Филиппийцам,30,30,21,23")
ARRPUSH($books, "К Колоссянам,29,23,25,18")
ARRPUSH($books, "1-е Фессалоникийцам,10,20,13,18,28")
ARRPUSH($books, "2-е Фессалоникийцам,12,17,18")
ARRPUSH($books, "1-е Тимофею,20,15,16,16,25,21")
ARRPUSH($books, "2-е Тимофею,18,26,17,22")
ARRPUSH($books, "К Титу,16,15,15")
ARRPUSH($books, "К Филимону,25")
ARRPUSH($books, "К Евреям,14,18,19,16,14,20,28,13,28,39,40,29,25")
ARRPUSH($books, "Откровение,20,29,22,11,14,17,17,13,21,11,19,17,18,20,8,21,18,24,21,15,27,21")
 
$book = RND(1, 77)
STRSEPARATE($books[$book-1], ",", $chapters)
print("Книга: ", $chapters[0])
 
$chapter = RND(1, ARRSIZE($chapters)-1)
$verse = RND(1, $chapters[$chapter])
 
print("Глава: ", $chapter, " из (", ARRSIZE($chapters)-1, ")")
print("Стих:  ", $verse, " из (", $chapters[$chapter], ")")
print("")
HALT

[Vint]

Специальных команд нет. Только если прослойку сделать. Никому не нужно было.
А почему здесь и канон и не канон?

[Vint]

Там же можно не прописывать количество книг

Code: (clickermann) [Select]

$book = RND(1, ARRSIZE($books))у меня почему-то остался промежуточный вариант

[Simple Hosting]

Специальных команд нет. Только если прослойку сделать. Никому не нужно было.

Нет так нет - СПАСИБО!!!

А почему здесь и канон и не канон?

У меня в телефоне есть программа - MyBible, у нее есть виджет, виджет генерит случайный стих и не учитывает неканонические книги, когда только для себя этого достаточно, но со временем интересные цитаты начал показывать друзьям в соц. сетях. Я считаю, что это неправильное ограничение, т.к. взял бумажную Библию и там есть и неканонические книги.

Там же можно не прописывать количество книг

СПАСИБО!!!

Code: (Clickermann) [Select]

UNDEFINE($books)
UNDEFINE($chapters)
 
ARRPUSH($books, "Бытие,31,25,24,26,32,22,24,22,29,32,32,20,18,24,21,16,27,33,38,18,34,24,20,67,34,35,46,22,35,43,55,32,20,31,29,43,36,30,23,23,57,38,34,34,28,34,31,22,33,26")
ARRPUSH($books, "Исход,22,25,22,31,23,30,25,32,35,29,10,51,22,31,27,36,16,27,25,26,36,31,33,18,40,37,21,43,46,38,18,35,23,35,35,38,29,31,43,38")
ARRPUSH($books, "Левит,17,16,17,35,19,30,38,36,24,20,47,8,59,56,33,34,16,30,37,27,24,33,44,23,55,46,34")
ARRPUSH($books, "Числа,54,34,51,49,31,27,89,26,23,36,35,15,34,45,41,50,13,32,22,29,35,41,30,25,18,65,23,31,39,17,54,42,56,29,34,13")
ARRPUSH($books, "Второзаконие,46,37,29,49,33,25,26,20,29,22,32,32,18,29,23,22,20,22,21,20,23,30,25,22,19,19,26,68,29,20,30,52,29,12")
ARRPUSH($books, "Иисус Навин,18,24,17,24,16,26,26,35,27,43,23,24,33,15,63,10,18,28,51,9,45,34,16,36")
ARRPUSH($books, "Судьи,36,23,31,24,31,40,25,35,57,18,40,15,25,20,20,31,13,31,30,48,25")
ARRPUSH($books, "Руфь,22,23,18,22")
ARRPUSH($books, "1-я Царств,28,36,21,22,12,21,17,22,27,27,15,25,23,52,35,23,58,30,24,43,15,23,28,23,44,25,12,25,11,31,13")
ARRPUSH($books, "2-я Царств,27,32,39,12,25,23,29,18,13,19,27,31,39,33,37,23,29,33,43,26,22,51,39,25")
ARRPUSH($books, "3-я Царств,53,46,28,34,18,38,51,66,28,29,43,33,34,31,34,34,24,46,21,43,29,53")
ARRPUSH($books, "4-я Царств,18,25,27,44,27,33,20,29,37,36,21,21,25,29,38,20,41,37,37,21,26,20,37,20,30")
ARRPUSH($books, "1-я Паралипоменон,54,55,24,43,26,81,40,40,44,14,47,40,14,17,29,43,27,17,19,8,30,19,32,31,31,32,34,21,30")
ARRPUSH($books, "2-я Паралипоменон,17,18,17,22,14,42,22,18,31,19,23,16,22,15,19,14,19,34,11,37,20,12,21,27,28,23,9,27,36,27,21,33,25,33,27,23,12")
ARRPUSH($books, "Ездра,11,70,13,24,17,22,28,36,15,44")
ARRPUSH($books, "Неемия,11,20,32,23,19,19,73,18,38,39,36,47,31")
ARRPUSH($books, "2-я Ездры *,58,31,24,63,70,34,15,92,55")
ARRPUSH($books, "Товит *,22,14,17,21,22,18,17,21,6,13,18,22,18,15")
ARRPUSH($books, "Иудифь *,16,28,10,15,24,21,32,36,14,23,23,20,20,19,14,25")
ARRPUSH($books, "Есфирь,22,23,15,17,14,14,10,17,32,3")
ARRPUSH($books, "Иов,22,13,26,21,27,30,21,22,35,22,20,25,28,22,35,22,16,21,29,29,34,30,17,25,6,14,23,28,25,31,40,22,33,37,16,33,24,41,35,27,26,17,6")
ARRPUSH($books, "Псалтирь,6,12,9,9,13,11,18,10,39,7,9,6,7,5,11,15,51,15,10,14,32,6,10,22,12,14,9,11,13,25,11,22,23,28,13,40,23,14,18,14,12,5,27,18,12,10,15,21,23,21,11,7,9,24,14,12,12,18,14,9,13,12,11,14,20,8,36,37,6,24,20,28,23,11,13,21,72,13,20,17,8,19,13,14,17,7,19,53,17,16,16,5,23,11,13,12,9,9,5,8,29,22,35,45,48,43,14,31,7,10,10,9,26,9,10,2,29,176,7,8,9,4,8,5,6,5,6,8,8,3,18,3,3,21,26,9,8,24,14,10,7,12,15,21,10,11,9,14,9,6,7")
ARRPUSH($books, "Притчи,33,22,35,29,23,35,27,36,18,32,31,28,26,35,33,33,28,25,29,30,31,29,35,34,28,28,27,28,27,33,31")
ARRPUSH($books, "Екклесиаст,18,26,22,17,19,12,29,17,18,20,10,14")
ARRPUSH($books, "Песня Песней,16,17,11,16,16,12,14,14")
ARRPUSH($books, "Премудрости Соломона *,16,24,19,20,24,27,30,21,19,21,27,28,19,31,19,29,20,25,21")
ARRPUSH($books, "Сирах *,6,30,18,31,35,18,37,39,22,23,34,34,18,32,27,20,31,31,33,28,31,31,31,37,37,29,27,33,30,31,27,37,25,33,26,23,29,34,39,42,32,29,26,36,27,31,23,31,28,18,31,38")
ARRPUSH($books, "Исаия,31,22,25,6,30,13,25,22,21,34,16,6,22,32,9,14,14,7,25,6,17,25,18,23,12,21,13,29,24,33,9,20,24,17,10,22,38,22,8,31,29,25,28,28,25,13,15,22,26,11,23,15,12,17,13,12,21,14,21,22,11,12,19,12,25,24")
ARRPUSH($books, "Иеремия,19,37,25,31,31,30,34,22,26,25,23,17,27,22,21,21,27,23,15,18,14,30,40,10,38,24,22,17,32,24,40,44,26,22,19,32,21,28,18,16,18,22,13,30,5,28,7,47,39,46,64,34")
ARRPUSH($books, "Плач Иеремии,22,22,66,22,22")
ARRPUSH($books, "Послание Иеремии *,72")
ARRPUSH($books, "Варух *,22,35,38,37,9")
ARRPUSH($books, "Иезекииль,28,10,27,17,17,14,27,18,11,22,25,28,23,23,8,63,24,32,14,49,32,31,49,27,17,21,36,26,21,26,18,32,33,31,15,38,28,23,29,49,26,20,27,31,25,24,23,35")
ARRPUSH($books, "Даниил,21,49,100,34,31,28,28,27,27,21,45,13,64,42")
ARRPUSH($books, "Осия,11,23,5,19,15,11,16,14,17,15,12,14,15,10")
ARRPUSH($books, "Иоиль,20,32,21")
ARRPUSH($books, "Амос,15,16,15,13,27,14,17,14,15")
ARRPUSH($books, "Авдий,21")
ARRPUSH($books, "Иона,16,11,10,11")
ARRPUSH($books, "Михей,16,13,12,13,15,16,20")
ARRPUSH($books, "Наум,15,13,19")
ARRPUSH($books, "Аввакум,17,20,19")
ARRPUSH($books, "Софония,18,15,20")
ARRPUSH($books, "Аггей,15,23")
ARRPUSH($books, "Захария,21,13,10,14,11,15,14,23,17,12,17,14,9,21")
ARRPUSH($books, "Малахия,14,17,18,6")
ARRPUSH($books, "1-я Маккавейская *,64,70,60,61,68,63,50,32,73,89,74,53,53,49,41,24")
ARRPUSH($books, "2-я Маккавейская *,36,33,40,50,27,31,42,36,29,38,38,45,26,46,39")
ARRPUSH($books, "3-я Маккавейская *,25,24,22,16,36,37,20")
ARRPUSH($books, "3-я Ездры *,40,48,36,52,56,59,70,63,47,60,46,51,58,48,63,78")
ARRPUSH($books, "От Матфея,25,23,17,25,48,34,29,34,38,42,30,50,58,36,39,28,27,35,30,34,46,46,39,51,46,75,66,20")
ARRPUSH($books, "От Марка,45,28,35,41,43,56,37,38,50,52,33,44,37,72,47,20")
ARRPUSH($books, "От Луки,80,52,38,44,39,49,50,56,62,42,54,59,35,35,32,31,37,43,48,47,38,71,56,53")
ARRPUSH($books, "От Иоанна,51,25,36,54,47,71,53,59,41,42,57,50,38,31,27,33,26,40,42,31,25")
ARRPUSH($books, "Деяния,26,47,26,37,42,15,60,40,43,48,30,25,52,28,41,40,34,28,40,38,40,30,35,27,27,32,44,31")
ARRPUSH($books, "Иакова,27,26,18,17,20")
ARRPUSH($books, "1-е Петра,25,25,22,19,14")
ARRPUSH($books, "2-е Петра,21,22,18")
ARRPUSH($books, "1-е Иоанна,10,29,24,21,21")
ARRPUSH($books, "2-е Иоанна,13")
ARRPUSH($books, "3-е Иоанна,15")
ARRPUSH($books, "Иуды ,25")
ARRPUSH($books, "К Римлянам,32,29,31,25,21,23,25,39,33,21,36,21,14,26,33,24")
ARRPUSH($books, "1-е Коринфянам,31,16,23,21,13,20,40,13,27,33,34,31,13,40,58,24")
ARRPUSH($books, "2-е Коринфянам,24,17,18,18,21,18,16,24,15,18,32,21,13")
ARRPUSH($books, "К Галатам,24,21,29,31,26,18")
ARRPUSH($books, "К Ефесянам,23,22,21,32,33,24")
ARRPUSH($books, "К Филиппийцам,30,30,21,23")
ARRPUSH($books, "К Колоссянам,29,23,25,18")
ARRPUSH($books, "1-е Фессалоникийцам,10,20,13,18,28")
ARRPUSH($books, "2-е Фессалоникийцам,12,17,18")
ARRPUSH($books, "1-е Тимофею,20,15,16,16,25,21")
ARRPUSH($books, "2-е Тимофею,18,26,17,22")
ARRPUSH($books, "К Титу,16,15,15")
ARRPUSH($books, "К Филимону,25")
ARRPUSH($books, "К Евреям,14,18,19,16,14,20,28,13,28,39,40,29,25")
ARRPUSH($books, "Откровение,20,29,22,11,14,17,17,13,21,11,19,17,18,20,8,21,18,24,21,15,27,21")
 
$book = RND(1, ARRSIZE($books))
STRSEPARATE($books[$book-1], ",", $chapters)
print("Книга: ", $chapters[0])
 
$chapter = RND(1, ARRSIZE($chapters)-1)
$verse = RND(1, $chapters[$chapter])
 
print("Глава: ", $chapter, " из (", ARRSIZE($chapters)-1, ")")
print("Стих:  ", $verse, " из (", $chapters[$chapter], ")")
print("")
HALT