Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  
Автор Сообщение
ALEXIN
  Задача по комбинаторике для Царства Тупиц (mathhelpplanet.com)
СообщениеДобавлено: 17.11.15 15:41 

Зарегистрирован: 11.06.12 07:57
Сообщения: 1698
Raketa: Какой формулой нужно решать эту задачу подскажите!!!
Дано: Лягушка сидит на коряге посреди болота. Ей надо достать стрелу на другом краю болота. Из воды торчат N камней (N>2), расположенных в один ряд. На последнем камне лежит заветная стрела. Лягушка может прыгать на 2, 3 или 5 камней вперёд и только вперёд. Подсчитайте сколько существует разных вариантов маршрута лягушки до стрелы. [...]
Решение:
ALEXIN: имеется некое количество монет номиналом: 2 коп, 3 коп и 5 коп. Надо… Всё решается обычной программой на перебор.
Пусть требуется:
1-й вариант: 2a+3b+5c=10 — как: 2+3+5 = 10,
2-й вариант: 2a+3b+5c=30 — как: 2*3*5 = 30,
где: a,b,c is integer number

Сама программа пишется за 2-3 минуты
Option Explicit
Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long, k As Integer
For a = 0 To 15
For b = 0 To 15
For c = 0 To 15
If 2 * a + 3 * b + 5 * c = 10 Then ' 10 = 2 + 3 + 5
k = k + 1
Text1 = Text1 & k & ") a=" & a & "; b= " & b & "; c= " & c & vbCrLf
End If
Next
Next
Next
End Sub

Ответ:
1) a=0; b= 0; c= 2
2) a=1; b= 1; c= 1
3) a=2; b= 2; c= 0
4) a=5; b= 0; c= 0

Или 2-й вариант:
Option Explicit
Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long, k As Integer
For a = 0 To 15
For b = 0 To 15
For c = 0 To 15
If 2 * a + 3 * b + 5 * c = 30 Then ' 30 = 2 * 3 * 5
k = k + 1
Text1 = Text1 & k & ") a=" & a & "; b= " & b & "; c= " & c & vbCrLf
End If
Next
Next
Next
End Sub
Ответ:
1) a=0; b= 0; c= 6
2) a=0; b= 5; c= 3
3) a=0; b= 10; c= 0
4) a=1; b= 1; c= 5
5) a=1; b= 6; c= 2
6) a=2; b= 2; c= 4
7) a=2; b= 7; c= 1
8) a=3; b= 3; c= 3
9) a=3; b= 8; c= 0
10) a=4; b= 4; c= 2
11) a=5; b= 0; c= 4
12) a=5; b= 5; c= 1
13) a=6; b= 1; c= 3
14) a=6; b= 6; c= 0
15) a=7; b= 2; c= 2
16) a=8; b= 3; c= 1
17) a=9; b= 4; c= 0
18) a=10; b= 0; c= 2
19) a=11; b= 1; c= 1
20) a=12; b= 2; c= 0
21) a=15; b= 0; c= 0
Вернуться к началу
 
 
ALEXIN
  Re: Задача по комбинаторике для Царства Тупиц (mathhelpplanet.com)
СообщениеДобавлено: 17.11.15 17:49 

Зарегистрирован: 11.06.12 07:57
Сообщения: 1698
Никто не смог решить! Интересно, почему?
Alina5: Задача по экономике, чуть разъясните если сможете, п\ожалуйста [...]
После окончания школы Даина решила жить отдельно и ей нужно было сделать выбор - работать секретарём или учится в университете. Даина снимает квартиру и думает жить в ней при любом варианте. Какие альтернативные расходы если она выберет учится в университете, если в год:
1. обучение - 1500 eur
2. продукты - 700 eur
3. расходы на транспорт - 36 eur
4. квартира - 1200 eur
5. одежда - 500 eur
6. зарплата секретаря - 4800 eur
7. учебные материалы - 40 eur
8. зарплата на летних каникулах - 600 eur
Решение:
Горизонт — четыре года, как время обучения. Всего два варианта.
1-й вариант (учёба):
600 – (1500 + 700 + 36 + 1200 + 500 + 40) = 600 – 3976 = -3376 eur
4 * (-3376) = -13504 eur
2-й вариант (работа):
4800 – (700 + 36 + 1200 + 500) = 4800 – 2436 = +2364 eur
4 * (+2364) =+9456 eur
Находим разницу, как упущенную выгоду, выбирая учёбу:
+9456 – (-3376) = +12832 eur
Вернуться к началу
 
 
ALEXIN
  Re: Задача по комбинаторике для Царства Тупиц (mathhelpplanet.com)
СообщениеДобавлено: 18.11.15 13:53 

Зарегистрирован: 11.06.12 07:57
Сообщения: 1698
ALEXIN писал(а):
Находим разницу, как упущенную выгоду, выбирая учёбу:
+9456 – (-3376) = +12832 eur

Описка:
+9456 – (-3376) = +12832 eur
Правильно так:
+9456 – (-13504) = +22960 eur
По смыслу: выбрав учёбу Даина недополучит (потеряет) — 22960 eur
Вернуться к началу
 
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:



Powered by phpBB © 2001, 2007 phpBB Group
© АУП-Консалтинг, 2002 - 2024