Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Школьные задачи - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Школьные задачи
Nic70y Дата: Пятница, 09.10.2015, 19:28 | Сообщение № 1
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
My WebPageпробовал решить на vba кроме первой ни чего не вышло,
в третьей даже что-то начало считать но не правильно.


ЮMoney 41001841029809
 
Ответить
СообщениеMy WebPageпробовал решить на vba кроме первой ни чего не вышло,
в третьей даже что-то начало считать но не правильно.

Автор - Nic70y
Дата добавления - 09.10.2015 в 19:28
Nic70y Дата: Суббота, 10.10.2015, 08:31 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
решил про повороты так:
[vba]
Код
Sub left_01()
    i = 0
    For Each c In Range("b3:b6")
    If c > c.Offset(-1, 0) Then i = i + 1
    Next
    MsgBox i
End Sub
[/vba]
К сообщению приложен файл: 3197922.xlsm (15.0 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениерешил про повороты так:
[vba]
Код
Sub left_01()
    i = 0
    For Each c In Range("b3:b6")
    If c > c.Offset(-1, 0) Then i = i + 1
    Next
    MsgBox i
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 10.10.2015 в 08:31
MCH Дата: Суббота, 10.10.2015, 10:09 | Сообщение № 3
Группа: Админы
Ранг: Старожил
Сообщений: 2004
Репутация: 752 ±
Замечаний: ±

По второй задаче напрашивается обычный перебор:
[vba]
Код
Sub test2()
    Dim k&, n&, bnn&, apl&, orj&, aiv&
    n = Val(InputBox("Введите кол-во фруктов"))
    For bnn = 0 To n Step 5
        For orj = 0 To IIf(n - bnn > 4, 4, n - bnn)
            aiv = (n - bnn - orj) Mod 2
            apl = n - bnn - orj - aiv
            k = k + 1
            'Debug.Print bnn, apl, orj, aiv
    Next orj, bnn
    MsgBox k
End Sub
[/vba]
Но ограничения 1<=n<=10^9 и время - 1 сек не позволяют решать данную задачу перебором

Фактическое, упрощенное решение данной задачи: n+1
 
Ответить
СообщениеПо второй задаче напрашивается обычный перебор:
[vba]
Код
Sub test2()
    Dim k&, n&, bnn&, apl&, orj&, aiv&
    n = Val(InputBox("Введите кол-во фруктов"))
    For bnn = 0 To n Step 5
        For orj = 0 To IIf(n - bnn > 4, 4, n - bnn)
            aiv = (n - bnn - orj) Mod 2
            apl = n - bnn - orj - aiv
            k = k + 1
            'Debug.Print bnn, apl, orj, aiv
    Next orj, bnn
    MsgBox k
End Sub
[/vba]
Но ограничения 1<=n<=10^9 и время - 1 сек не позволяют решать данную задачу перебором

Фактическое, упрощенное решение данной задачи: n+1

Автор - MCH
Дата добавления - 10.10.2015 в 10:09
ShAM Дата: Суббота, 10.10.2015, 11:41 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Такое ощущение, что при этих условиях можно просто написать:
[vba]
Код
Sub test2()
    Dim n&
    n = Val(InputBox("Введите кол-во фруктов"))
    MsgBox n + 1
End Sub
[/vba]
____________________________
Вот жеж, не дочитал сообщение Михаила до конца. :(


Сообщение отредактировал ShAM - Суббота, 10.10.2015, 11:44
 
Ответить
СообщениеТакое ощущение, что при этих условиях можно просто написать:
[vba]
Код
Sub test2()
    Dim n&
    n = Val(InputBox("Введите кол-во фруктов"))
    MsgBox n + 1
End Sub
[/vba]
____________________________
Вот жеж, не дочитал сообщение Михаила до конца. :(

Автор - ShAM
Дата добавления - 10.10.2015 в 11:41
Nic70y Дата: Суббота, 10.10.2015, 18:24 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
Всем спасибо.
На олимпиаде были немного другие задачи.
По предварительным данным из ~220 человек решили ~11


ЮMoney 41001841029809
 
Ответить
СообщениеВсем спасибо.
На олимпиаде были немного другие задачи.
По предварительным данным из ~220 человек решили ~11

Автор - Nic70y
Дата добавления - 10.10.2015 в 18:24
anvg Дата: Понедельник, 12.10.2015, 09:24 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Доброе время суток
с задачей В всё посложнее. Путь N Э {n,n-1,n-2,n-3,n-4;n-1,n-2,n-3,n-4,n-5} (до ; 0 - айвы, после одна айва и как в первом случае 1, 2, 3, 4 апельсина), тогда нужно для всех этих случаев найти число решений Диофантового линейного уравнения вида
2*x+5*y=N, где x и y целые числа большие или равные нулю.
Задача С С какой стороны вектора лежит точка?
 
Ответить
СообщениеДоброе время суток
с задачей В всё посложнее. Путь N Э {n,n-1,n-2,n-3,n-4;n-1,n-2,n-3,n-4,n-5} (до ; 0 - айвы, после одна айва и как в первом случае 1, 2, 3, 4 апельсина), тогда нужно для всех этих случаев найти число решений Диофантового линейного уравнения вида
2*x+5*y=N, где x и y целые числа большие или равные нулю.
Задача С С какой стороны вектора лежит точка?

Автор - anvg
Дата добавления - 12.10.2015 в 09:24
Nic70y Дата: Понедельник, 12.10.2015, 14:29 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
anvg, я так и знал, что все ~не правильно,
я просто поражаюсь чему детей в школе учат и зачем...
ведь 99 и 9 в периоде % этого (программирования) знать не будут,
а элементарным знаниям обращения с компом/интернетом, как пользоваться поиском и т.п. не учат.
Как мне сказала дочь посмотри на авторов учебника по информатике и все поймешь...
(только Елене /Pelena не говорите)

Зы. Задание было написать на Паскале,
это просто дочь сказала - напиши на вба, я переведу на Паскаль - не судьба :(


ЮMoney 41001841029809
 
Ответить
Сообщениеanvg, я так и знал, что все ~не правильно,
я просто поражаюсь чему детей в школе учат и зачем...
ведь 99 и 9 в периоде % этого (программирования) знать не будут,
а элементарным знаниям обращения с компом/интернетом, как пользоваться поиском и т.п. не учат.
Как мне сказала дочь посмотри на авторов учебника по информатике и все поймешь...
(только Елене /Pelena не говорите)

Зы. Задание было написать на Паскале,
это просто дочь сказала - напиши на вба, я переведу на Паскаль - не судьба :(

Автор - Nic70y
Дата добавления - 12.10.2015 в 14:29
MCH Дата: Понедельник, 12.10.2015, 14:57 | Сообщение № 8
Группа: Админы
Ранг: Старожил
Сообщений: 2004
Репутация: 752 ±
Замечаний: ±

ведь 99 и 9 в периоде % этого (программирования) знать не будут,

Исходя из данных "Школы программиста", то там зарегистрировано более 100 тыс. участников (не только школьников), которые пытались решить задачи по программированию, и это достаточно боьшое кол-во.
Полностью прорешали все 700 задач только 3 человека, но учитывая уровень сложности задач, то даже те, кто решил хотя бы половину, уже достаточно хорошо разбираютя в алгоритмах.

а элементарным знаниям обращения с компом/интернетом, как пользоваться поиском и т.п. не учат

Разве этому нужно особо учить? Мы как-то без обучения все это освоили.

PS: перестал решать задачи на acmp.ru после того, как они поменяли VB6 на VB.NET и мои решения на VBA перестали проходить.
 
Ответить
Сообщение
ведь 99 и 9 в периоде % этого (программирования) знать не будут,

Исходя из данных "Школы программиста", то там зарегистрировано более 100 тыс. участников (не только школьников), которые пытались решить задачи по программированию, и это достаточно боьшое кол-во.
Полностью прорешали все 700 задач только 3 человека, но учитывая уровень сложности задач, то даже те, кто решил хотя бы половину, уже достаточно хорошо разбираютя в алгоритмах.

а элементарным знаниям обращения с компом/интернетом, как пользоваться поиском и т.п. не учат

Разве этому нужно особо учить? Мы как-то без обучения все это освоили.

PS: перестал решать задачи на acmp.ru после того, как они поменяли VB6 на VB.NET и мои решения на VBA перестали проходить.

Автор - MCH
Дата добавления - 12.10.2015 в 14:57
Nic70y Дата: Понедельник, 12.10.2015, 15:06 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
Разве этому нужно особо учить?
суда по школьникам - надо (ведь просто юзеры юзать не умеют зачастую :()
и это все-таки была олимпиада именно школьников


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 12.10.2015, 15:09
 
Ответить
Сообщение
Разве этому нужно особо учить?
суда по школьникам - надо (ведь просто юзеры юзать не умеют зачастую :()
и это все-таки была олимпиада именно школьников

Автор - Nic70y
Дата добавления - 12.10.2015 в 15:06
MCH Дата: Понедельник, 12.10.2015, 16:02 | Сообщение № 10
Группа: Админы
Ранг: Старожил
Сообщений: 2004
Репутация: 752 ±
Замечаний: ±

и это все-таки была олимпиада именно школьников

На то она и олимпиада, что на ней не должно быть вопросов "Как включить компьютер?".
Если это олимпиада по программированию, то на ней должны быть вопросы по темам: "динамическое программирование", "длинные числа", "комбинаторика", "теория графов", "рекурсии и перебор", "разбор текстовых строк", "математическое моделирование" и т.д.

А на школьных олимпиадах, как правило, встречаются вопросы, которые не каждый преподаватель решит.
 
Ответить
Сообщение
и это все-таки была олимпиада именно школьников

На то она и олимпиада, что на ней не должно быть вопросов "Как включить компьютер?".
Если это олимпиада по программированию, то на ней должны быть вопросы по темам: "динамическое программирование", "длинные числа", "комбинаторика", "теория графов", "рекурсии и перебор", "разбор текстовых строк", "математическое моделирование" и т.д.

А на школьных олимпиадах, как правило, встречаются вопросы, которые не каждый преподаватель решит.

Автор - MCH
Дата добавления - 12.10.2015 в 16:02
Nic70y Дата: Понедельник, 12.10.2015, 16:21 | Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
олимпиада по программированию
олимпиада не по программированию, а по школьному предмету - информатика.
преподаватель
главное, что бы "наш" преподаватель этого не прочел, т.к. дочь рассказывала не раз, что у нее спрашивает вопросы типа: это на флэшку зальется, а скачай мне это и т.п. :)


ЮMoney 41001841029809
 
Ответить
Сообщение
олимпиада по программированию
олимпиада не по программированию, а по школьному предмету - информатика.
преподаватель
главное, что бы "наш" преподаватель этого не прочел, т.к. дочь рассказывала не раз, что у нее спрашивает вопросы типа: это на флэшку зальется, а скачай мне это и т.п. :)

Автор - Nic70y
Дата добавления - 12.10.2015 в 16:21
anvg Дата: Вторник, 13.10.2015, 05:54 | Сообщение № 12
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Информатика - слишком расплывчатое понятие, увы. Коль у вас дочь занялась олимпиадным программированием, то, думаю, этот сайт E-Maxx станет для вас "родным" :)
 
Ответить
СообщениеИнформатика - слишком расплывчатое понятие, увы. Коль у вас дочь занялась олимпиадным программированием, то, думаю, этот сайт E-Maxx станет для вас "родным" :)

Автор - anvg
Дата добавления - 13.10.2015 в 05:54
Pelena Дата: Вторник, 13.10.2015, 07:59 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
только Елене /Pelena не говорите

Не поняла, к чему был этот выпад? Я учебники не пишу.
А учителя - люди подневольные: есть утвержденная программа, по которой они обязаны работать. Если, конечно Ваша дочь не учится в частной авторской школе


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
только Елене /Pelena не говорите

Не поняла, к чему был этот выпад? Я учебники не пишу.
А учителя - люди подневольные: есть утвержденная программа, по которой они обязаны работать. Если, конечно Ваша дочь не учится в частной авторской школе

Автор - Pelena
Дата добавления - 13.10.2015 в 07:59
Nic70y Дата: Вторник, 13.10.2015, 09:26 | Сообщение № 14
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
Не, это образно было сказано - авторы две девушки.
не жалеют детишек по полной их муштруют :)
Цитата
А учителя - люди подневольные
с этим согласен, взяли самую молодую училку по физике заслали на курсы и вперед.
да она сама и говорила, что перебор в учебнике, а в чем то недобор.
Цитата
Коль у вас дочь занялась
не занималась она этим - должен же кто-то из школы участвовать (еле 4 набрали)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 13.10.2015, 09:35
 
Ответить
СообщениеНе, это образно было сказано - авторы две девушки.
не жалеют детишек по полной их муштруют :)
Цитата
А учителя - люди подневольные
с этим согласен, взяли самую молодую училку по физике заслали на курсы и вперед.
да она сама и говорила, что перебор в учебнике, а в чем то недобор.
Цитата
Коль у вас дочь занялась
не занималась она этим - должен же кто-то из школы участвовать (еле 4 набрали)

Автор - Nic70y
Дата добавления - 13.10.2015 в 09:26
Nic70y Дата: Вторник, 13.10.2015, 18:10 | Сообщение № 15
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
точные результаты:
приняло участие: 484
задач: 4
решили 4 задачи: 0
решили 3 задачи: 0
решили 2 задачи: 3
решили 1 задачи: 21


ЮMoney 41001841029809
 
Ответить
Сообщениеточные результаты:
приняло участие: 484
задач: 4
решили 4 задачи: 0
решили 3 задачи: 0
решили 2 задачи: 3
решили 1 задачи: 21

Автор - Nic70y
Дата добавления - 13.10.2015 в 18:10
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!