Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
новый онлайн-сервис
число, сумма и дата прописью

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




Начать новую тему Ответить на тему  [ Сообщений: 27 ]  На страницу Пред.  1, 2, 3
Автор Сообщение
 Заголовок сообщения: Re: Количество перестановок
СообщениеДобавлено: 19 фев 2018, 00:00 
Не в сети
Одарённый
Зарегистрирован:
02 дек 2015, 11:16
Сообщений: 179
Cпасибо сказано: 93
Спасибо получено:
3 раз в 3 сообщениях
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Booker48 писал(а):
Boris Skovoroda
,
Boris Skovoroda писал(а):
Booker48

Спасибо огромное! Изначально нам с товарищами казалось это тривиальной задачей, но как оказалось нет.

Завтра на свежую голову буду смотреть :) Еще раз спасибо

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Количество перестановок
СообщениеДобавлено: 23 фев 2018, 20:05 
Не в сети
Light & Truth
Зарегистрирован:
10 дек 2013, 02:33
Сообщений: 3268
Cпасибо сказано: 263
Спасибо получено:
417 раз в 407 сообщениях
Очков репутации: 51

Добавить очки репутацииУменьшить очки репутации
text.open a, fn1, "data_max.txt"

n=10

for s=1 to 20

dim a[n]
dim stack[n]

for i=1 to n
a[i]=i
next i

for i=1 to n
x=int(rnd()*(n-1)+1)
swap a[i], a[x]
next i


text.writeln fn1, "_____________________"

k=0

max=-1

for i=1 to n
if a[i]>max then
k=k+1
max=a[i]
stack[k]=max
text.writeln fn1, format$("##",a[i]) + " ➡ max"
else
text.writeln fn1, format$("##",a[i])
endif
next i

a$=""
for i=1 to k
a$=a$ + format$("##",stack[i])
next i

text.writeln fn1, "stack_max = {" + a$ + "}"

text.writeln fn1, "k = " + format$("##",k)

next s

text.close fn1

end


Выполнение кода:
_____________________
7 ➡ max
3
8 ➡ max
9 ➡ max
6
4
5
10 ➡ max
1
2
stack_max = { 7 8 9 10}
k = 4
_____________________
10 ➡ max
8
1
4
2
7
6
5
9
3
stack_max = { 10}
k = 1
_____________________
2 ➡ max
4 ➡ max
1
7 ➡ max
6
5
10 ➡ max
3
9
8
stack_max = { 2 4 7 10}
k = 4
_____________________
3 ➡ max
2
6 ➡ max
5
7 ➡ max
8 ➡ max
9 ➡ max
1
10 ➡ max
4
stack_max = { 3 6 7 8 9 10}
k = 6
_____________________
2 ➡ max
9 ➡ max
6
1
5
7
3
4
10 ➡ max
8
stack_max = { 2 9 10}
k = 3
_____________________
6 ➡ max
3
4
10 ➡ max
5
7
9
1
2
8
stack_max = { 6 10}
k = 2
_____________________
2 ➡ max
10 ➡ max
5
4
6
3
9
1
8
7
stack_max = { 2 10}
k = 2
_____________________
6 ➡ max
3
5
7 ➡ max
9 ➡ max
4
2
1
10 ➡ max
8
stack_max = { 6 7 9 10}
k = 4
_____________________
6 ➡ max
5
2
9 ➡ max
1
8
10 ➡ max
4
7
3
stack_max = { 6 9 10}
k = 3
_____________________
4 ➡ max
5 ➡ max
7 ➡ max
8 ➡ max
2
3
6
1
10 ➡ max
9
stack_max = { 4 5 7 8 10}
k = 5
_____________________
10 ➡ max
3
4
7
2
1
9
8
6
5
stack_max = { 10}
k = 1
_____________________
8 ➡ max
7
4
1
6
2
9 ➡ max
10 ➡ max
5
3
stack_max = { 8 9 10}
k = 3
_____________________
8 ➡ max
4
6
7
2
5
10 ➡ max
9
1
3
stack_max = { 8 10}
k = 2
_____________________
4 ➡ max
1
6 ➡ max
8 ➡ max
10 ➡ max
5
7
3
2
9
stack_max = { 4 6 8 10}
k = 4
_____________________
10 ➡ max
8
1
3
6
5
2
4
7
9
stack_max = { 10}
k = 1
_____________________
6 ➡ max
1
4
10 ➡ max
7
3
2
9
5
8
stack_max = { 6 10}
k = 2
_____________________
2 ➡ max
10 ➡ max
1
9
8
4
5
6
7
3
stack_max = { 2 10}
k = 2
_____________________
9 ➡ max
2
8
7
1
4
6
10 ➡ max
3
5
stack_max = { 9 10}
k = 2
_____________________
10 ➡ max
7
9
6
5
8
1
3
2
4
stack_max = { 10}
k = 1
_____________________
8 ➡ max
3
7
1
10 ➡ max
6
9
2
5
4
stack_max = { 8 10}
k = 2
_____________________
3 ➡ max
2
4 ➡ max
9 ➡ max
6
8
10 ➡ max
7
1
5
stack_max = { 3 4 9 10}
k = 4
_____________________
2 ➡ max
3 ➡ max
9 ➡ max
8
4
6
10 ➡ max
7
1
5
stack_max = { 2 3 9 10}
k = 4
_____________________
3 ➡ max
4 ➡ max
2
1
7 ➡ max
5
8 ➡ max
9 ➡ max
10 ➡ max
6
stack_max = { 3 4 7 8 9 10}
k = 6
_____________________
2 ➡ max
4 ➡ max
7 ➡ max
3
9 ➡ max
6
10 ➡ max
5
8
1
stack_max = { 2 4 7 9 10}
k = 5
_____________________
4 ➡ max
3
9 ➡ max
6
10 ➡ max
8
1
2
5
7
stack_max = { 4 9 10}
k = 3
_____________________
4 ➡ max
8 ➡ max
3
5
7
1
2
10 ➡ max
9
6
stack_max = { 4 8 10}
k = 3
_____________________
5 ➡ max
6 ➡ max
10 ➡ max
4
2
8
1
3
7
9
stack_max = { 5 6 10}
k = 3
_____________________
10 ➡ max
3
8
6
1
9
2
5
7
4
stack_max = { 10}
k = 1
_____________________
5 ➡ max
10 ➡ max
3
4
1
7
6
2
9
8
stack_max = { 5 10}
k = 2
_____________________
1 ➡ max
5 ➡ max
8 ➡ max
10 ➡ max
4
3
7
6
9
2
stack_max = { 1 5 8 10}
k = 4
_____________________
9 ➡ max
10 ➡ max
8
5
2
3
7
4
1
6
stack_max = { 9 10}
k = 2
_____________________
7 ➡ max
6
3
5
1
8 ➡ max
9 ➡ max
10 ➡ max
2
4
stack_max = { 7 8 9 10}
k = 4
_____________________
3 ➡ max
6 ➡ max
9 ➡ max
7
2
8
1
10 ➡ max
4
5
stack_max = { 3 6 9 10}
k = 4
_____________________
3 ➡ max
8 ➡ max
1
7
4
2
6
5
10 ➡ max
9
stack_max = { 3 8 10}
k = 3
_____________________
5 ➡ max
1
8 ➡ max
2
9 ➡ max
3
4
6
10 ➡ max
7
stack_max = { 5 8 9 10}
k = 4
_____________________
1 ➡ max
2 ➡ max
4 ➡ max
6 ➡ max
5
9 ➡ max
8
10 ➡ max
7
3
stack_max = { 1 2 4 6 9 10}
k = 6
_____________________
7 ➡ max
9 ➡ max
3
4
1
8
10 ➡ max
5
2
6
stack_max = { 7 9 10}
k = 3
_____________________
10 ➡ max
5
4
8
3
2
7
1
9
6
stack_max = { 10}
k = 1
_____________________
1 ➡ max
4 ➡ max
9 ➡ max
10 ➡ max
3
6
5
7
2
8
stack_max = { 1 4 9 10}
k = 4
_____________________
4 ➡ max
5 ➡ max
1
9 ➡ max
10 ➡ max
3
8
2
7
6
stack_max = { 4 5 9 10}
k = 4

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Количество перестановок
СообщениеДобавлено: 23 фев 2018, 20:20 
Не в сети
Light & Truth
Зарегистрирован:
10 дек 2013, 02:33
Сообщений: 3268
Cпасибо сказано: 263
Спасибо получено:
417 раз в 407 сообщениях
Очков репутации: 51

Добавить очки репутацииУменьшить очки репутации
[math]\cdots[/math]
ivashenko писал(а):
▼ Teratore
sergebsl писал(а):
О вообще, если ты невменяемый, какого ты на форум залез?

Teratore писал(а):
Оскорблять в ответ я Вас не собираюсь, вы и так знаете кем я Вас после этих слов считаю.


Так это sergebsl себе писал, бывает люди общаются сами с собой, а Вы восприняли всё на свой счет. Я тоже раньше недоумевал, а потом дошло в чем дело.



Ну и козёл же ты, Иващенко

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Количество перестановок
СообщениеДобавлено: 24 фев 2018, 16:33 
Не в сети
Light & Truth
Зарегистрирован:
28 мар 2014, 23:59
Сообщений: 6312
Cпасибо сказано: 633
Спасибо получено:
509 раз в 477 сообщениях
Очков репутации: 47

Добавить очки репутацииУменьшить очки репутации
▼ sergebsl
sergebsl писал(а):
Ну и козёл же ты, Иващенко


Посеешь мысль - пожнешь желание,
Посеешь желание- пожнешь действие,
Посеешь действие - пожнешь привычку,
Посеешь привычку - пожнешь характер,
Посеешь характер - пожнешь судьбу.

Именно вот так я стал еще и козлом.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Количество перестановок
СообщениеДобавлено: 24 фев 2018, 22:57 
Не в сети
Light & Truth
Зарегистрирован:
10 дек 2013, 02:33
Сообщений: 3268
Cпасибо сказано: 263
Спасибо получено:
417 раз в 407 сообщениях
Очков репутации: 51

Добавить очки репутацииУменьшить очки репутации
ivashenko писал(а):
▼ sergebsl
sergebsl писал(а):
Ну и козёл же ты, Иващенко


Посеешь мысль - пожнешь желание,
Посеешь желание- пожнешь действие,
Посеешь действие - пожнешь привычку,
Посеешь привычку - пожнешь характер,
Посеешь характер - пожнешь судьбу.

Именно вот так я стал еще и козлом.


Мудрец, неужели ты думаешь, что последнее слово будет за тобой?
Нет.
Последнее слово скажет Всевышний.
Ты злой провокатор.Нет в тебе никакой святости и мудрости.
Твоя мудрости бесовская не от Бога.
Тебе уже уготована твоя судьба вместе со злыми духами.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Количество перестановок
СообщениеДобавлено: 24 фев 2018, 23:27 
Не в сети
Light & Truth
Зарегистрирован:
28 мар 2014, 23:59
Сообщений: 6312
Cпасибо сказано: 633
Спасибо получено:
509 раз в 477 сообщениях
Очков репутации: 47

Добавить очки репутацииУменьшить очки репутации
▼ sergebsl
sergebsl писал(а):
Последнее слово скажет Всевышний.


Он что, тоже умрет? А вдруг Он не захочет говорить последнего слова? А Вы тут за Него уже решаете.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Количество перестановок
СообщениеДобавлено: 28 фев 2018, 19:49 
Не в сети
Одарённый
Зарегистрирован:
02 дек 2015, 11:16
Сообщений: 179
Cпасибо сказано: 93
Спасибо получено:
3 раз в 3 сообщениях
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
sergebsl писал(а):
max=-1

Уважаемый, я уже раз пять, наверное, указал что за значение максимального элемента берется ПЕРВЫЙ элемент соответствующего массива. Так ПО УСЛОВИЮ!

Научитесь наконец воспринимать информацию такой, какая она есть, а не в голове у себя додумывать какие-то дополнительные условия.
Остальное не смотрел, ибо в данном случае меня интересовала математическое решение и постановка задачи.

Вернуться к началу
 Профиль  
Cпасибо сказано 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему    На страницу Пред.  1, 2, 3  Страница 3 из 3 [ Сообщений: 27 ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Количество перестановок чисел

в форуме Комбинаторика и Теория вероятностей

Vlad_ok

8

444

25 янв 2021, 09:44

Найти количество перестановок с условием

в форуме Комбинаторика и Теория вероятностей

DonkeyKong245

1

858

12 апр 2015, 11:43

Подсчитать количество различных перестановок цифр

в форуме Комбинаторика и Теория вероятностей

fheeda

7

2368

20 апр 2015, 19:27

Количество подгрупп в прямом произведении групп перестановок

в форуме Задачи со школьных и студенческих олимпиад

rain_walker

3

231

02 сен 2022, 14:09

Умножение перестановок (группа перестановок)

в форуме Линейная и Абстрактная алгебра

Andreww

4

879

02 дек 2018, 06:43

Умножение перестановок

в форуме Дискретная математика, Теория множеств и Логика

MIEL

7

5062

15 янв 2017, 17:43

Композиция перестановок

в форуме Линейная и Абстрактная алгебра

hotclover

2

783

11 янв 2015, 19:00

Число перестановок

в форуме Комбинаторика и Теория вероятностей

briz

4

603

05 май 2014, 11:49

Найти число перестановок элементов

в форуме Начала анализа и Другие разделы школьной математики

pushkinooo

1

265

30 май 2019, 12:30

Алгебра. Коммутанты. Группа перестановок

в форуме Аналитическая геометрия и Векторная алгебра

Zaliaparakira

1

289

20 дек 2017, 13:10


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



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

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


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

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2023 MathHelpPlanet.com. All rights reserved