Указать путь муравья, при котором он, в конце пути, наберет максимальную сумму очков

echs · Регистрация: 23.10.2013

Студворк — интернет-сервис помощи студентам

Дана прямоугольная матрица размером 9*14.
Она заполнена рандомными числами.
Из левого верхнего угла матрицы в правый нижний
движется муравей. Перемещаться он может либо вправо,
либо вниз. Указать его путь, при котором он, в конце пути,
наберет максимальную сумму очков.

Подобная задача относится к динамическому программированию. Я таких на QBasic еще не встречал.
(программа проверена)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
CLS
DEFINT M-N
m = 9
n = 14
DIM a(1 TO m, 1 TO n) AS LONG
DIM b(m + 1, n + 1) AS LONG
 
FOR i = 1 TO m
   FOR j = 1 TO n
      b(0, j) = -10
      b(m + 1, j) = -10
      b(i, 0) = -10
      b(i, n + 1) = -10
   NEXT j
NEXT i
 
COLOR 11
FOR i = 1 TO m
   FOR j = 1 TO n
      a(i, j) = 9 * RND - 4
      b(i, j) = a(i, j)
      PRINT a(i, j);
   NEXT j
   PRINT
NEXT i
PRINT : PRINT
 
FOR i = 1 TO m
FOR j = 1 TO n
   IF i * j > 1 THEN
      IF b(i - 1, j) > b(i, j - 1) THEN
         b(i, j) = b(i, j) + b(i - 1, j)
      ELSE
         b(i, j) = b(i, j) + b(i, j - 1)
      END IF
   END IF
NEXT j, i
 
COLOR 15
i1 = 1
j1 = 1
FOR i = 1 TO m
   FOR j = 1 TO n
      IF i = i1 AND j = j1 THEN
         COLOR 13
         PRINT USING "### "; b(i, j);
         IF b(i + 1, j) > b(i, j + 1) THEN
            i1 = i + 1
         ELSE
            j1 = j + 1
         END IF
         COLOR 15
      ELSE
         PRINT USING "### "; b(i, j);
      END IF
   NEXT j
   PRINT
NEXT i
END

Удачи вам!

@MiXa42 · 04.12.2015, 11:20

Эм...

@vlisp · 06.12.2015, 21:33

Сообщение от geh

Указать его путь, при котором он, в конце пути,
наберет максимальную сумму очков.

несколько мыслей...
Судя по скрину, муравей просто выбирает большее из чисел на каждом шагу, это отнюдь не означает максимальное количество очков в конце пути.
Вообще программа не понятна без комментариев... в чем именно заключается динамическое программирование?
Задача решается элементарно с помощью рекурсии, на каждом ходе получаем две подобные матрицы меньшего размера...

echs · 07.12.2015, 17:42 **[ТС]**

vlisp
Чтобы муравей мог пройти. Вторая матрица как раз и собирает
всю информацию о том, какое наибольшее число может получить
муравей если доберется до заданного места.
Что касается рекурсии? Да. Это интересно. Но я как-то об этом не
подумал.
Что касается комментариев? То я полагал, что если это кого-то
заинтересует, то я опишу алгоритм.
PS.
Сюда редко заглядывают профи
Кому нужен Бейсик? Мне например...

@vlisp · 07.12.2015, 23:54

Сообщение от geh

Что касается комментариев? То я полагал, что если это кого-то
заинтересует, то я опишу алгоритм.

Комментарии для того и пишут, чтоб было сразу понятно, прежде всего автору кода. Так бывает... когда смотришь на свой код через некоторое время и ничего не понимаешь... Что уж говорить о посторонних зрителях. К тому же они добавляют +100500 в карму автора при прочтении кода тем, кто видит его впервые.

@Quiet Snow · 08.12.2015, 09:06

Не по теме:

Сюда редко заглядывают профи

Хе хе, действительно одна школота зелёная :rofl:.
locm, vodav, Pro_grammer, The trick, Апострофф, PAnT0P, catstail, кто они такие, да брось...)))
Зато geh, воистину профессиональный программист, ставит и решает просто наиактуальнейшие
практические и научные задачи, на QBasic-е, да! Ведь он актуален более чем, спустя 25 лет, это
вам не в тапки ср..ь, его профессионализм настолько профессионален, что рядом с ним даже сам
Эйнштейн - лишь несравненно жалкое и безмозглое существо. Его программы шокируют и заставляют
трепетать, мастерство geh-а настолько поражает, что доподлинно считается шедевром каждая его
программа, даже та, которая ещё не написана. Так что трепещите кодеры под суровым взором geh-а
он уже здесь, сейчас, он научит вас настоящему программированию, а потом догонит и ещё раз научит. :)

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@MiXa42 4 / 4 / 1 Регистрация: 26.11.2015 Сообщений: 63
	04.12.2015, 11:20
	Эм... Миниатюры 1

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	07.12.2015, 17:42 [ТС]
	vlisp Чтобы муравей мог пройти. Вторая матрица как раз и собирает всю информацию о том, какое наибольшее число может получить муравей если доберется до заданного места. Что касается рекурсии? Да. Это интересно. Но я как-то об этом не подумал. Что касается комментариев? То я полагал, что если это кого-то заинтересует, то я опишу алгоритм. PS. Сюда редко заглядывают профи Кому нужен Бейсик? Мне например... 0