Как получить элементы из массива? и поменять их местами!
СзМассив(А,Б,В,Г,Д,)

мне нужно получить из СзМассив элементы Г,Д и поменять их местами!
например:

СзМассив(А,Г,В,Д,Б,)

ой НЕ сравнить а  поменять их местами!

я не сторонник новичков грязью поливать, это же совсем капец такое не знать.
в переменную присваиваешь один из элементов которые надо поменять, на его место в массив присваиваешь второй элемент. И из переменно на место второй присваиваешь значение.

tmp = arr[1];
arr[1] = arr[3];
arr[3] = tmp;

ооо крути спасибо чтоб знать надо где то прочитать или видеть это^_^

Кстати а как получить элемент СзМассива и сравнить его с другим элементом?

СзМассив.получить[Г];
СзМассив.получить[Д];
/// Как СРАВНИТЬ?
    Если [Г]<[Д] Тогда
Сообщить("меньше"); /// ТАК ИЛИ КАК ???????????????

(5) Тебе для того чтобы сравнить надо либо, и это правильно, создать переменный и присвоить им значения из массива. А потом уж их сравнивать, либо сравнивать на прямую, что тоже работает, но не кошерно.

ПОчему то упорно вижу Шалавьё, а не то как его там.

ну путай))) shevalie это нууу ээ короче че-то наподобие крестоносцев ^_^

Как-то так?

А = [Г];
Б = [Д];

Если А < Б Тогда
Сообщить("меньше");

(9) ТИпо того... Только что такое А и Б?

ПЕРЕМЕННАЯ А И Б

(8) по-французски рыцарь

(6) М[й]=М[ж] - не кошерно?

(13) Ну как то попахивает. ога.

(13) Лучше в переменные загнать, сравить, переменный обнулить.

(14) моя твоя не понимайт. ничем тут не попахивает

СзМассив.получить[Г]; ///Г ЭТО ЭЛЕМЕНТ СзМАССИВА  Типа пулучяем элемент из СзМассив
СзМассив.получить[Д]; ///Д ЭТО ЭЛЕМЕНТ СзМАССИВА

    Если СзМассив[Г] < СзМассив[Д] Тогда
Сообщить("меньше");

(17) нет.
СзМассив.получить[Г] - надо либо в переменную положить, либо сразу сравнивать.

(17) зачем ты это делаешь?

Не получяется :(





&НаКлиенте
Процедура КнопкаМассив(Команда)
МассивЧисел()
КонецПроцедуры

     &НаКлиенте
Функция МассивЧисел()
МассивЧисел = Новый Массив(6);
МассивЧисел[0] = 2;        
МассивЧисел[1] = 3;
МассивЧисел[2] = 5;
МассивЧисел[3] = 1;
МассивЧисел[4] = 4;
МассивЧисел[5] = 6;
Индекс1 = 0;
Для Индекс1 = 0 По МассивЧисел.Количество() - 1 Цикл
МассивЧисел.Получить[0];
МассивЧисел.Получить[1];

А = [0];
Б = [1];
Если А>Б Тогда
    
    Сообщить("меньше");
КонецЕсли
КонецЦикла;

КонецФункции

жесть...

wild ты головастый хотя бы номикай а то хочу спать уже

действие энергетика уже ославляет и хочу спать^_^

А=МассивЧисел.Получить[0];
Б=МассивЧисел.Получить[1];

Если А>Б Тогда
    Сообщить("меньше");
КонецЕсли

щяс попробую!

(24) Иди проспись.

Вот! ТОЛЬКО вылетает 5 Сообщений БОЛЬШЕ а должно 1.
     1 раз в жизни сделал что сам ну с ошибкой))))



Если А>Б Тогда
    Сообщить("меньше");
Иначе
    Сообщить("БОЛЬШЕ");
        КонецЕсли
    КонецЦикла;

КонецФункции

Функция МассивЧисел()
МассивЧисел = Новый Массив(6);
МассивЧисел[0] = 2;        
МассивЧисел[1] = 3;
МассивЧисел[2] = 5;
МассивЧисел[3] = 1;
МассивЧисел[4] = 4;
МассивЧисел[5] = 6;
Индекс1 = 0;
Для Индекс1 = 1 По МассивЧисел.Количество()Цикл
А=МассивЧисел.Получить[Индекс1];
Б=МассивЧисел.Получить[Индекс1-1];
Если А>Б Тогда
    Сообщить("Больше")
Иначе
    Сообщить("Меньше")
КонецЕсли
КонецЦикла;
КонецФункции

И объявлять о том что Индекс = 0 а потом Индекс = 1 не надо.
ТОлько Индекс = 1.

Balabass Спасибо огромное:)

да вы чо? получить с квадратными скобками работает?

(27) а упадёт же при Индекс=6

Я ТАМ указал - 1

(0) слушай что тебе умное скажу, пока САМ не сможешь ну пусть такую простейшую задачку к 1С близко не подходи:
поменять местами значения переменных a и b не используя дополнительных переменных, тип переменных a и b - любой (не обязательно что-бы типы переменных совпадали).

(31) ага...круглы нужны
я на колнеке писал

(33) ексель допустим?

rphosts ну даты прав сам сделаю лет через 2 :)
ЛАДНО почитаю я про индексы а то как-то непонятно^_^
вывод моя сегодня не спать:)

"не обязательно что-бы типы переменных совпадали" в большинстве языков программирования такая задача нереализуема ... в которых можно реализовать считается дурным тоном ...

предлагаю ТС задачку попроще. поменять местами значения двух числовых переменных без использования дополнительных переменных. для защиты от переполнения ограничим значения переменных интервалом [-1; +1]

а как на алгоритме скажутся эти ограничения?

моя задачя состоится в этом ))) я сяс пытаюсь получить тот элемент например [5] если 5<4 тогда поменяем местами


как получить элемент СзМассива и Сравнить Его c другим элементом?

(39) на первом шаге можно вылететь за 4 байта (или сколько там отведено на тип)

человек добрался до сортировки ;)

ладно друзья не утруждаетесь я подумаю посмотрю еще раз на схему и думаю что-то сделаю!

(41)смотря какой тип

(44) ну вот и ограничил по максимуму ;)

для эсины тупо

а = в + а;
в = а - в;
а = а - в;

(46) слово "предлагаю ТС" ты не заметил, да?

(45)даже если взять самый минимальный и то получается от -127 до 127 ...

значит можно смело прыгать в -63 до 63 )))

(47)думаешь он не умеет пользоваться гуглом?

(49) я б не удивился отсутствию такого умения ;)

УМЕЮ:)

люди! я на днях видел, как юзер искал в гугле. смотрел и плакал. задача: найти сайт магазина одежды, расположенного где-то по Иркутскому, 62-64. 15 минут поисков, фраза "включи мне яндекс, в яндексе было", капитуляция, занавес

+(52) я стал лучше понимать людей, задающих тупые вопросы на мисте

ДАЙТЕ ССЫЛКУ ХОТЯ БЫ ПОЧИТАЮ И МОЖЕТ ПОЙМУ ЧТО-ТО?

(54) не кричи
wiki:Алгоритм_сортировки

wiki:Сортировка_пузырьком

Слушайте, ну он уже даже фотографию поставил и не скрывает, а все равно темы за 50 постов.

СПОСОБ wild кстати ты работаешь где-то по 1с?
Думаю что тебя без сомнение возьмут на роботу по 1с программирование!

спасиб первое слово:)

(49) согласно нулевого поста - не умеет... или умеет но ленится

(35) не, всё средствами 1С

(57) будешь утверждать что он такой страшный?

(57) надо ж нам как-то расслабляться ;)

(58) я где-то работаю по 1с программирование, да

(64)тебя так скоро на курсы по переподготовке по Великому и Могучему отправят

(61) ПользователиОС()
Возвращаемое значение:

Тип: ТаблицаЗначений; Массив.

вот туда и можно писать, наверное

(66) не, универсальных к******й будет более чем достаточно.

ну ладно всем пока ,GRATFER,GRV-MAN GRANNY или как там его
Можешь закрывать или удалить тему только не блокируй меня))))))

хотя по сути задача на минимальные знания языка + логику

знаю я что она на логику!

GRANNY - это жанр видеофильмов такой ;)

хотел в яндекс переводить бабушка видимо что-то пошло не так
)))) GRANDPA

яндекс бабушку правильно перевёл. просто есть фильмы именно про бабушек
наверное, GROOVY

(63)ааа, официально разрешенные флудильные ветки в тематических разделах?

а не rphosts ли директор забегаловки? самый правильный раздел

я создал блок-схему и пытаюсь поэтапно сделать задачу

1)Создал Массив с 6 Элементов.
2)идем по Массиву то есть По элементам
Для Индекс1 = 0 По МассивЧисел.Количество()-1 Цикл
3)Получить 2 элемента из Массив!! ///вродибы так МассивЧисел.Получить[2];
4)сравнить никак не могу!!!!! толи А=МассивЧисел.Получить(Индекс1);
Б=МассивЧисел.Получить(Индекс1-1);
Если А>Б Тогда
/// или
А=МассивЧисел.Получить[5];
Б=МассивЧисел.Получить[4];
Если А>Б Тогда


вот и остановился на этом!!!

(76) что подвигло тебя написать (29)?

а вот ещё вопрос, вводящий в ступор
Б=0; В=3;
А=Б=В;
чему равно А?

&НаКлиенте
Процедура КнопкаМассив(Команда)
МассивЧисел()
КонецПроцедуры

     &НаКлиенте
Функция МассивЧисел()
МассивЧисел = Новый Массив(6);
МассивЧисел[0] = 2;        
МассивЧисел[1] = 3;
МассивЧисел[2] = 5;
МассивЧисел[3] = 1;
МассивЧисел[4] = 4;
МассивЧисел[5] = 6;
Индекс1 = 0;
Для Индекс1 = 1 По МассивЧисел.Количество()-1 Цикл
А=МассивЧисел.Получить(Индекс1);
Б=МассивЧисел.Получить(Индекс1-1);
Если А>Б Тогда
ПоменятьМестами

КонецЕсли
КонецЦикла;
КонецФункции

сделайте мне развидеть это!!!!!

"вродибы"...!!! Жесть жестокая

отлично! на 79м посте вернулись в (0)

Ё-моё, ведь их же учат информатике! Ведь учат же?

вы меня запутали один говорит что индекс1 = 1 другой индекс1 = 0

я знаю что индекс = 0;




то он начинает идти с 1 элемента!!!!
Для Индекс1 = 1 По МассивЧисел.Количество()-1 Цикл /// как понимать это Индекс1 = 1????

(84)это счетчик цикла. Паскаль учил? цикл for в курсе?

чисКоличество = МассивЧисел.Количество() - 1;
для х = 1 по чисКоличество цикл
    если МассивЧисел[х] > МассивЧисел[х - 1] тогда
        МассивЧисел[х] = МассивЧисел[х] + МассивЧисел[х - 1];
        МассивЧисел[х - 1] = МассивЧисел[х] - МассивЧисел[х - 1];
        МассивЧисел[х] = МассивЧисел[х] - МассивЧисел[х - 1];
    конецесли;
конеццикла;

Любопытная на что намекаешь?Я повторю 10 раз я НЕ узбек,таджик,негр,индус Родной язык Румынский с русским у меня как видеть плохо!!!


ответ на   Ё-моё, ведь их же учат информатике! Ведь учат же?

skunk спосиб^_^

1С уже в Румынии? Сильно.
(87)У тебя румынских книг что ли нет по программированию?

— Нет, Киркоров мне не нравится. Слащавый он какой-то, подкрашенный весь, подпудренный как баба… Одно слово — румын.
— Так он же болгарин.
— Да? Какая разница?

(87)я намекаю на то, что не понять что значит Индекс1 = 1 может только человек, который вообще ни черта в программировании не понимает. Плохо знаешь русский? Переведи код на английский и не парь мозги.

(83)У меня в школе была чудная учительница информатики. Она утверждала, что при переводе числа из одной системы в другую разными способами можно получить разные результаты и что функция delay() заставляет точку двигаться по экрану: "Написано же - ДЕЛАЙ!"

Любопытная ну тогда сорри ^_^

(92) та самая алхимическая delay_everything()?

(92) у моего братишки в школе учитель информатики рассказывал, чем гибкие диски отличаются от жеских: гибкие это 5 дюймовые дискеты (они гнутся), а жестки - 3.25" ибо они в жестком корпусе)))

(93) но нид аполоджайз

(96)Злая ты.У него же разрыв шаблона будет:-)

(97) всего лишь ответ в том же стиле общения))

кстати посмотрите схему хоть это правильно сделал?

http://yadi.sk/d/xLzikoPVDkpUk

сто же

(99) вон же сортировка пузырьком

сто же это чу??? плохо или хорошо?

что обозначает что же? на 100% или что?

(102) Это забавно.
в (99) блок-схема не фонтан, но если понятно, то ради бога.

(102) так древние кельты возносили хвалу богу солнца при смене разряда числа

Любопытная способ это первая моя блок схема:)
хоть это более мене!

способ - спосиб

(106)в блок-схемах иногда встречаются ромбики. Ну и там другие фигуры геометрические. Спроси у яндекса, тебе понравится

(75) конечно он

коллеги, сегодня только среда. Не надо устраивать пятницу...

(78) Ложь?

ромбик это цикл ну я там же указал что где цикл УСЛОВИЕ
ЕСЛИ рисовать ромбиками то мне границы не хватало-бы!

(110) это тебе пятница. а человек ромбики рисует

(110) не мы первые начали

(111) истинно так! бывает, два "присвоения" в одной строке наносят разрыв мозга

(115) Было бы что разрывать....
(114) Апостолу Петру будешь рассказывать

(115) ну типа в некоторых других языках это выражение имеет другой смысл... но там оно обычно с символом ";" в конце строки

(116) .2 это он тебя уполномочил нас предупредить?

(118) Нет, это я сам предупреждаю.... Кто сказал, что в реале меня Денисом зовут? :-))

ладно всем пока устал и хочу спать
спасибо за помощь!

(119) гы-гы-гы, ты ещё скажи что я набор процессов на твоём сервере в т.ч.

(121) у меня нет сервера, слава Морготу, я отошёл от руководства тупыми железками....

(122) программируешь усилием мысли? Прямой интерфейс с рамой чужих компов?

(120) сладких снов))

А ведь он скоро и до рекурсии доберется. Не проспать бы.

(125) возможно в пятницу

Интересно, если он за каждый свой забаненый ник рюмку водки выпьет, он уже умрёт или просто напьётся в хлам?

коктейль рекурсия: 30% спирта, 20% воды, 50% коктейля рекурсия

так выпьем же за программизм!

(126)Концерт по заявкам?))

(129) не, тут всё спонтанно... хотя если ТС попросить он возможно отложит новый вопрос до пятницы.

Процедура Обмен(А, Б)
  В = А;
  А = Б;
  Б = В;
КонецПроцедуры

Процедура ОбменЭлементовМассива(Массив, ИндексА, ИндексБ)
  Обмен(Массив[]
КонецПроцедуры

Процедура Обмен(А, Б)
  В = А;
  А = Б;
  Б = В;
КонецПроцедуры

Процедура ОбменЭлементовМассива(Массив, ИндексА, ИндексБ)
  Обмен(Массив[ИндексА], Массив[ИндексБ]);
КонецПроцедуры

132 поста на вопрос про элементарную сортировку блин ребята вы .... круты

(133) и это ещё автор спит ;)

толсто

подписался на темы ТС. ждем верим (фанаты)

(132) красивее

А=А+Б;
Б=А-Б;
А=А-Б;

(92) функция delay() заставляет точку двигаться по экрану
-запросто

(136) в следующий раз он будет выступать под другим именем

(0) я тебя на питонесу не видел, случаем?

(138) а жаль, жаль...Фурор ему обеспечен....

Печень, а что такое тирлян?

(141) амра навыворот

(141) Советую посмотреть)))

(143) в деревне-герое Тирляне я даже бывал. видимо, не связано

(0) катя?

wild ник будет этот если не заблокирует)

дык, Evangelion вон жив, к примеру, а ты - шевалье, да ещё и с неправильным написанием

а нелу скоро пройдёт

Evangelion забыл пароль и  Емаил ^_^

wild обесни почему -1


числоКоличество = МассивЧисел.Количество() - 1; /// почему -1
для индекс = 1 по числоКоличество цикл


индекс идет до конце на один больше?

(150) индексы элементов в массиве начинаются с 0. Соответственно последний индекс - Количество()-1

числоКоличество = МассивЧисел.Количество() - 1; /// почему -1

для индекс = 1 по числоКоличество цикл
///а  почему индекс = 1 по ... //// он начинается с 0??? вроде бы должно быть так  индекс = 1

(152) 1 - это будет второй элемент массива.

(152)
В твоем массиве  при Индекс = 1 значение МассивЧисел[Индекс] будет = 3. Ты же сам это написал в (79)

(152) это чтобы дальше можно было делать индекс-1

понятно для

              индекс = 0 первый элемент 1
              индекс = 1 второй элемент 2
              индекс = 2 Третий элемент 3
              индекс = 3 четвертый элемент 4
              индекс = 4 пятый элемент 5
              индекс = 5 шестой элемент 6

чтоб получить элемент 6 будет как-то так:
Для индекс 5 По МассивЧисел.Количество()ИНДЕКС - 1
МассивЧисел.ПОЛУЧИТЬ(ИНДЕКС)

чтобы получить шестой элемент массива нужно отчётливо сказать в дисковод Массив[5]. и всё

А как получить его пройдя по массиву с индексом допустим мы не знаем его ?
например
но мы знаем что он сидит после цифрой 3     /// как-то так 3,5

ой перепутал
как-то так 3,6

(158) кого получить?

шестого элемента с помощи индекса

(158) тут философский камень нужен

не меньше 3 кг

(161) Массив[5]

(163) да пол-литра хватит

(158)
Массив в программировании — набор однотипных элементов, расположенных в памяти непосредственно друг за другом, доступ к которым осуществляется по индексам, либо по ключу (ассоциативный массив);

(166) "набор однотипных элементов, расположенных в памяти непосредственно друг за другом" - ложь. остальное правда

Серго62 вот вот то что нужно:


если бы еще бы один пример бульбы то класс

пример бульбы раз: http://www.krugosvet.ru/images/1000131_0131_102.jpg
пример бульбы два: http://www.stihi.ru/pics/2009/04/09/4268.jpg

(167) Если элементы не однотипные, то это уже не совсем массив.

(170) вот, из другой викии: Массив называется динамическим, если число его элементов может меняться в процессе выполнения программы. Массив, в котором могут храниться данные различных типов, называется гетерогенным.

Wobland не смешно

(168) Набери в гугле - сортировка массива и будет тебе щАСТЬЕ с примерами...

если скопировать рабочий код и ставить 1с?
Тогда я нечего не пойму поэтому так трудно вам объяснить чего я хочу понять))
   Серго62 посиб

(171) Ладно, уговорил, в массиве могут храниться указатели(ссылки, адреса памяти или называй это как нравится) на различные типы данных, но сами элементы массива все равно будут однотипными.

(175) не факт

(176) как раз факт, если элементы не будут однотипными, то есть будут иметь разный размер, то к ним будет невозможно обратиться по индексу. Размер элемента * индекс = адрес ячейки содержащей значение - как то так...

(177) ерунда какая. всё можно.

НУ наконец-то сделал немного запутался с индексами но благодаря тем кто объяснил как работает индекс я справился!

&НаКлиенте
Процедура КнопкаМассив(Команда)
МассивЧисел()
КонецПроцедуры

     &НаКлиенте
Функция МассивЧисел()
МассивЧисел = Новый Массив(6);
МассивЧисел[0] = 3;        
МассивЧисел[1] = 2;
МассивЧисел[2] = 5;
МассивЧисел[3] = 1;
МассивЧисел[4] = 4;
МассивЧисел[5] = 6;
Индекс = 0;
МассивЧиселКоличество = МассивЧисел.Количество() - 1;
для индекс = 0 по МассивЧиселКоличество цикл
    Если МассивЧисел[0] >  МассивЧисел[1] Тогда
        МассивЧисел[1] = МассивЧисел[0]
        КонецЕсли;
        Сообщить(Индекс+1);
    КонецЦикла;
КонецФункции

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

1
2
3
4
5

6

пятнично. а массив почти не изменился

для индекс = 0 по 6 цикл
        Сообщить(Индекс+1);
КонецФункции

вот так то же самое, но короче

но сравнение нету

для индекс = 0 по 6 цикл
        Сообщить(Индекс+1);
КонецФункции

у меня сравняется и ставится по порядку

(185) фигня что выводишь индекс а не то что по этому индексу находится )))

(185) точно? может, я недоглядел чего

bvg чего индекса???

(187) ухаха )))))))))

(188) ты знатный троль))))

(180)Пля! Я это распечатаю и в рамочке на стенку повешу!!! Это идеальный код!

сортировка пузырьком?
Вот что бывает когда бетонщик становится программистом )))

сортировка пузырьком была осуществлена. до знакомства с рекурсией оставались годы...

(192) сортировка двух пузырьков

блин жаль;(

(195) а что там не так с кодом?

в правде ИНДЕКС вывожу:(

(197) пиши Сообщить(МассивЧисел[Индекс]);

хотя бы сравнил хорошо и поменял?

МассивЧиселКоличество = МассивЧисел.Количество() - 1;
для индекс = 0 по МассивЧиселКоличество цикл
    Если МассивЧисел[0] >  МассивЧисел[1] Тогда
        МассивЧисел[1] = МассивЧисел[0]


???????????????????????????????????????????????????????????????????

(197)Если МассивЧисел[0] >  МассивЧисел[1] Тогда
        МассивЧисел[1] = МассивЧисел[0]
Где в этих двух строках Индекс? Ты понимаешь, что ты делаешь этим самым кодом?

твести!

(201) МАЗИЛА!

(202) уступил девушке ;)

(199) Убери сравнение и подмену, сначала просто сообщи все элементы массива, раз пока не понимаешь, что делаешь.  Сообщи элементы по индексу и посмотри, что получается. Потом подумай, как их сравнивать и как местами менять

(199) средненько так сравнил. а поменять совсем не поменял

(203) Какая неумелая лесть

может, мадьяры ближе автору?
http://www.youtube.com/watch?v=lyZQPjUT5B4

МассивЧисел[1] = МассивЧисел[0] + индекс /// или как???????

почти его закончил:(
запутался уже не соображаю нечего(((

(206) кто тебя покусал?

(207) где-то в середине 50х секунд они переходят к делу

не знаю где поставить индекс

(211) в квадратных скобках! Вместо цифр!

в википедии даже код на двух языках есть

сдается мне что надо еще один индекс создать!

я нашёл этот мультик! давно искал
http://www.youtube.com/watch?v=vxENKlcs2Tw

(214) ты обдумываешь как еще глупее вопрос задать или пытаешься что то понять по существу? )

(215)Это прекрасно же! :)

какая прелесть... маразм крепчает... Столько Веселья... швалье попробуй сделать все на листочке бумаге при помощи ручки, руки и головы. (кстати на сколько я помню шевалье переводиться как подле лошади но я не уверен)

(218) рыцарь

шваль = лошадь

(219)  я как бы пытался дословный перевод дать (например ковбой -коровий мальчик шевалье  это тоже самое только мальчик лошадиный а перевод с французского)

да вот перевод cheval-лошадь   а мой ник shevalie S а не С

(8) вспомни сам

Chevalier к стати из-за неправильной транскрипции превратился в русского Кавалера

класс!
Завораживающая визуализация алгоритмов сортировки
http://www.youtube.com/watch?v=vxENKlcs2Tw

(224)+ так что если вы хотите слегка протролить женщину то назовите ее мужчину кавалером

(225) это же тоже самое, что в (215)

(225) ох ты ж, буфер подвёл
http://www.youtube.com/watch?v=Gnp8G1_kO3I

а вообще, Кнут мощно про сортировки рассказывает

(228) последнее, это что было?

(230) камлания какие-то. сортировку бого даже гугл не знает

wiki:Bogosort

(231) wiki:Bogosort

(232)опередил) название "сортировка из ружья" меня порадовало

Колода в 32 карты будет сортироваться компьютером, в среднем, 2,7\cdot\;10^{19} лет. зашибись!

причём, финиш не гарантирован

(236)а вообще шикарная вещь, надо признать. Ведь кто-то же придумал такой чудесный способ сортировки. Пусть даже в учебных целях

Перем ГСЧ;

Процедура КнопкаВыполнитьНажатие(Кнопка)
    НН=8;
    М=Новый Массив(НН);
    Для й=0 По НН-1 Цикл
        М[й]=ГСЧ.СлучайноеЧисло(0, 256);
    КонецЦикла;
    
    й=0;
    Старт=ТекущаяУниверсальнаяДатаВМиллисекундах();
    Пока НЕ Отсортирован(М) Цикл
        й=й+1;
        Размешать(М);
    КонецЦикла;
    Финиш=ТекущаяУниверсальнаяДатаВМиллисекундах();
    Сообщить(""+(Финиш-Старт)+" мсек., "+й+" итераций");
КонецПроцедуры

Функция Отсортирован(М)
    Для й=1 По М.Количество()-1 Цикл
        Если М[й]<М[й-1] Тогда
            Возврат Ложь;
        КонецЕсли;
    КонецЦикла;
    Возврат Истина;
КонецФункции

Процедура Размешать(М)
    Н=М.Количество();
    Для й=0 По Н-1 Цикл
        ф=М[й];
        ж=ГСЧ.СлучайноеЧисло(0, Н-1);
        М[й]=М[ж];
        М[ж]=ф;
    КонецЦикла;
КонецПроцедуры

ГСЧ=Новый ГенераторСлучайныхЧисел;

507 мсек., 1 228 итераций
8 609 мсек., 15 693 итераций
32 750 мсек., 69 638 итераций
13 049 мсек., 21 751 итераций
32 503 мсек., 64 027 итераций
41 943 мсек., 85 656 итераций

это что ?

(240) сортировка методом авось

код который я якобы должен сделать ?

(242) да лан, чо там.. копипасти ;)

я подумал что-то вроде этого



ЦИКЛ ДЛЯ J=1 ДО N-1 ШАГ 1                    
   F=0                                            
   ЦИКЛ ДЛЯ I=1 ДО N-J ШАГ 1                  
     ЕСЛИ A[I] > A[I+1] ТО ОБМЕН A[I],A[I+1]:F=1  
   СЛЕДУЮЩЕЕ I  
   ЕСЛИ F=0 ТО ВЫХОД ИЗ ЦИКЛА                      
СЛЕДУЮЩЕЕ J

(244) молодец, добрался всё ж таки до википедии

так что вроде этого надо))

это вопрос был^_^ ?

(247) щито?

ЦИКЛ ДЛЯ индекс1 = 1 ДО МассивЧиселКоличество - 1                    
   F=0 //// это чееееее? F?                                            
   ЦИКЛ ДЛЯ индекс2 = 1 ДО  МассивЧиселКоличество - индекс1 -1 ///ОШИБКА????
                  /// ДАЛЬЩЕЕ НЕПОНИМАЮ !      
     ЕСЛИ A[I] > A[I+1] ТО ОБМЕН A[I],A[I+1]:F=1  
   СЛЕДУЮЩЕЕ I  
   ЕСЛИ F=0 ТО ВЫХОД ИЗ ЦИКЛА                      
СЛЕДУЮЩЕЕ J

ф - это переменная такая. булевского смысла

WILD Переводи это по 1 ске:

TEMP=A[I]
A[I]=A[I+1]
A[I+1]=TEMP

TEMP=A[I];
A[I]=A[I+1];
A[I+1]=TEMP;

непонятные коды блин как будто сижу в матрице))))

ладно wild наверняка ты устал уже
любопытная знало и намекало прочту её кометы и подумаю может найду решение

я тут развлекаюсь

а как обратится в чате кому-то и он чтоб увидел?можно так?

(256) сейчас ветку видят эти добрые люди:
    Ilyuha87
    Wobland
    catena
    freetype
    hhhh
    shevalie92
    timurhv
    Михаил Козлов

то есть они читают в тихаря и нечего не пишет:)
а чтоб призывать  Любопытную не как да?)))))))

(258) призывать только на виду у всех, сюда ;)

любопытная появись 1
любопытная появись 2
любопытная появись 3

Ждемс^_^

https://www.dropbox.com/s/nvjgtryk0phimsr/2013-12-04%2021_17_41.jpg
догадываешься?

(252) А слабо без темп)

TEMP_RESTRICTED=A[I];
A[I]=A[I+1];
A[I+1]=TEMP_RESTRICTED;

A[i] = A[i]+A[i+1]
A[i+1] = A[i]-A[i+1]
A[i] = A[i]-A[i+1]

(264) в первой полусотне ветки занимались этим

(265) Не осилил)

(260) (260) Поспать не дали... Ну что у вас тут?

(267) допустимо ли одновременное применение щетины и пиджака?

(268) ну в смысле, как оно тебе как девушке?

https://www.dropbox.com/s/nvjgtryk0phimsr/2013-12-04%2021_17_41.jpg

1) Создаем Документ Наименование Будет РосходнаяНокладная
2) выбираем документа (выбор)
3) с помощи цикла Получаем тот документ который создали укажем
= 1 обозначает что выбираем первый документ ну если есть несколько
4) сообщаем его + номер док


как-то так

(258) ты разобрался как связать счетчик цикла и индекс массива между собой? Давай я тебе прямо скажу - используй счетчик цикла как указатель на элемент массива

(270) оригинальная трактовка. сообщит только один номер, получается?

(268) я себя в пиджаке представляю, а вот со щетиной уже нет, так что считаю, что мне как девушке щетина не идет.
Но если относительно себя, то главное не одевай галстук с майкой. Не комильфо

(273) вопрос задал, ответ получил. спасибо

(270) (270) третий пункт неверный. Равенство единице в данном случае означает булеву истину. В 7.7 нет типа булево

(261) - зачем еще 7-кой мозги человеку забиваешь? он и так несчастный, а ведь  грех издеваться над...

(276) он молодец. Он показывает нам, что что-то пытается. Он нравится мне однозначно больше, чем Катя

да что-то меня на учебники потянуло. вот про семёрку попался - 1Спрограммирование как дважды два

призыв успешен ^_^
/// кажется до меня доходит)))



Для ИНДЕКС = 1 По 6 Цикл
    //.. тело цикла...
КонецЦикла;

(277) - "попытка - не пытка" (с)

(277) лучше бы с Бейсика или Паскаля (досовского) начал...

(279) ну теперь тело цикла мучай. Его тут уже столько раз написали, что наизусть выучить можно. Но помни, что когда Индекс станет равен 6, массив превратится в моль. Не допусти этого, сделай цикл до 5

(281) так в паскале слово в слово будет тоже самое. Только на английском

СПАСИБО ты такая добрая ^_^

(284) ну невозможно же сердиться, ну как дитя малое же)))

ага мне 21 но все говорят что мне где-то 18
но я успел женится думаю когда-то я стану папой и буду молодым красивым и крут)))

кстати если хотите я загружу свою фотку)))

(286) (286) да да да! Исполни мою заветную мечту!! А то с девушек тут всегда фото трясут, а от мужиков фиг дождешься)))
чего там с твоим массивом в конце концов?

я включу сображальку и напишу результат я увлекался социальной сети
попробую сделать чудо но сначала загружу фото я бы доказать что я не индус узбек и так далее

http://yadi.sk/d/8mkE-HsvDnkpg   вот я

счетчик посещений надо обязательно приделать)))))

(289) ну симпатяга, что сказать)) молодец! Теперь включай соображальку и соображай, как массив сортировать.  С помощью доп переменной или без нее.
А я спать пойду. Спасибо прям за приподнятое настроение.
Отдельное спасибо Максу за ролики с сортировками. Клево!

&НаКлиенте
Процедура КнопкаМассив(Команда)
МассивЧисел()
КонецПроцедуры

     &НаКлиенте
Функция МассивЧисел()
Перем ЗначениеЭлемента;    
МассивЧисел = Новый Массив(6);
МассивЧисел[0] = 3;        
МассивЧисел[1] = 2;
МассивЧисел[2] = 5;
МассивЧисел[3] = 1;
МассивЧисел[4] = 4;
МассивЧисел[5] = 6;
Индекс = 0;
Для Индекс = 1 По 6 Цикл
    Если МассивЧисел[0] >  МассивЧисел[1] Тогда
        МассивЧисел[1] = МассивЧисел[0]
    КонецЕсли;
    Сообщить(МассивЧисел[Индекс]);
    КонецЦикла;



/// это потому что не поставел -1
{Обработка.ОбработкаМассив.Форма.Форма.Форма(22)}: Индекс находится за границами массива

(257)Неее, это люди, которые оставили открытую страницу на работе, чтобы с утреца насладиться за чашечкой кофе))

аааа походу на надо получить элемент то есть цифру так? потом присваивать к переменой а потом сравнить так?

(289) опа! уже Ничего не найдено

ну главное, что Марина осталась довольна ;)

смотри wild


+ Code
&НаКлиенте
Процедура КнопкаМассив(Команда)
МассивЧисел()
КонецПроцедуры

     &НаКлиенте
Функция МассивЧисел()
Перем ЗначениеЭлемента;    
МассивЧисел = Новый Массив(6);
МассивЧисел[0] = 3;        
МассивЧисел[1] = 2;
МассивЧисел[2] = 5;
МассивЧисел[3] = 1;
МассивЧисел[4] = 4;
МассивЧисел[5] = 6;
Индекс = 0;
Для Индекс = 1 По 6 Цикл
///1)мы идем по масиву c индексом не надо ли здесь -1 он же ///дойдет до 6 и обнулируется а это не надо???
///2)потом надо получить цифру первое? и надо присваивать ей ///переменная?


    
    КонецЦикла;

Функция ОтсортироватьМассив(НашМассив)
    СписокСортировки = Новый СписокЗначений;
    СписокСортировки.ЗагрузитьЗначения(НашМассив);    
    СписокСортировки.СортироватьПоЗначению();
    Возврат СписокСортировки.ВыгрузитьЗначения();    
КонецФункции

а как сравнить если одно>другого тогда поменять местами

сортировка пузырем или как там называется

(300)Триста испортил

буду ждать марину )

(286) http://s.pikabu.ru/images/big_size_comm/2012-09_5/13482424931004.jpg

>>смотри wild
Wobland, прикольно он твой ник коверкает -)
Наверное, в Румынии запрещена религия "Ctrl+C Ctrl+V"...

(299) (300) тебе для чего сортировать вручную, если 1С сама это умеет и сделает как минимум быстрее чем ты + гарантированно без ошибок.

(302) Чисто из любопытства - ты можешь просто скопировать отсюда рабочий код и потом его изучить? Ну или хотя бы отвечать на вопросы по делу четко и без лишних рассуждений?

(306) ты его видела, на фото из (303) он справа или слева?

(307) на фото из (303) его нет.

(304) благодаря в том числе и этому моменту я никак не могу отделаться от ощущения поддельности автора

(305) ради процесса, есессно. ради того же процесса мне пришлось замедлять стандартную сортировку сортировкой бого ;)

Очень похоже на нового бананана

(309)Вот меня тоже не покидает ощущение некоторого сюра. Автор мог бы 10 раз уже скопировать отсюда готовый код и разобрать его на составляющие. Правда я помню как пропустила на 1м курсе одну лекцию, когда мы проходили стеки, деки и вообще всяческие очереди, а потом страшно тупила в совершенно тупейшем моменте работы с указателями... но вроде не до такой степени))

(312) румынская школа программирования, понимать надо!

(313) Не издевайся над ребенком. У него чудесно наивный незамутненный лишней информацией взгляд)

программистам нужно много читать. придётся как-то прощаться с незамутнённым взглядом ;)

(315) обязательно. Но, судя по всему, он пока ничего кроме мисты не читает. Да и мисту тоже не читает)) Чукча не читатель, чукча писатель))

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

метод пресвятого Боло
массив до
--------------------------------
3 196 68 180 175 107 138 253
массив после
--------------------------------
3 68 107 138 175 180 196 253
17 550 мсек., 62 627 итераций
алгоритм мега-пузырька
массив до
--------------------------------
5 220 20 240 107 34 112 100
массив после
--------------------------------
5 20 34 100 107 112 220 240
0 мсек.

(317) ты Бого имел в виду?

(318) да, боло - это оружие такое )

а как так? столько сравнений-перестановок и всё менее, чем за 1 мсек?
метод пресвятого Боло
53 820 мсек., 179 692 итераций

алгоритм мега-пузырька
0 мсек., 16 итераций

(320) 16 перестановок, не итераций

(320) я смотрю, ты впечатлился этим чудным методом сортировки. И все же он называется Bogosort.

(319) скожи уж прямо: румынский юноша - иди-ка Кнута почитай, хотя-бы первые 3 тома

(323)Мой отец сказал, что первый практически бессмысленно читать без определенных знаний. Так что...

(324) я первый читал на первом курсе, в самом начале. как раз перед тем, как понял, что ничего не знаю. так что читать смысл есть

(324) даже если ничего не поймёшь именно из-за отсутствия знаний будет ьбольшп\ая польза т.к. будешь знать что не знаешь

(325) мне не повезло, я не знала, что она есть. А когда узнала, оказалось, что в переездах она потерялась(

(326) не всегда

Ему бы Фигурнова сначала почитать, с азов так сказать. А вы ему Кнута, изверги...

Бого так же сортирует 8 элементов, у прочих увеличил до 128

метод пресвятого Бого
2 902 мсек., 11 097 итераций

алгоритм мега-пузырька
156 мсек., 4 016 перестановок

сортировка глупца
3 682 мсек., 4 227 перестановок

сортировка слепца
12 511 мсек., 4 227 перестановок

(330) спасибо за информацию)

сортировка лентяя
0 мсек., 3 668 перестановок

(332) перестановки скопипаситились, нет их там
    ТЗ=Новый ТаблицаЗначений;
    ТЗ.Колонки.Добавить("М");
    Для й=0 По НН-1 Цикл
        стр=ТЗ.Добавить();
    КонецЦикла;
    ТЗ.ЗагрузитьКолонку(М, "М");
    ТЗ.Сортировать("М");
    М=ТЗ.ВыгрузитьКолонку("М");

(332) тебе заняться нечем?

(334) у меня бывают такие моменты, когда нужно подождать минуту-другую ;)

(330) пузырьковый очень хорошо помню, а чем метод мегапузырька отличается?

(336) в отличие от вчерашних плясок (венгры перемудрили) внутренний цикл идёт до НН-ж

так и быть..

    НН=128;
    М=Новый Массив(НН);
    ИзготовитьМассив(М, НН);
    Сообщить("алгоритм мега-пузырька");
    Старт=ТекущаяУниверсальнаяДатаВМиллисекундах();
    
    ч=0;
    Для ж=0 По НН-2 ЦИкл
        Для й=0 По НН-ж-2 Цикл
            Если М[й]>М[й+1] Тогда
                ч=ч+1;
                ц=М[й];
                М[й]=М[й+1];
                М[й+1]=ц;
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;
    
    Финиш=ТекущаяУниверсальнаяДатаВМиллисекундах();
    Сообщить(""+(Финиш-Старт)+" мсек., "+ч+" перестановок");

(338)Слабак :)

(339) чо это я слабак? больше суток думал

буковка к буковке, табуляция на месте, регистр букв верный, ядро алгоритма выделено пустыми строками. загляденье, а не код

епать колотить ... это вы все массивы сортируете?

(342) вчера даже были танцы

(343)  ТекущаяУниверсальнаяДатаВМиллисекундах() я про такое даже не слышала

(343)у тебя имена переменных неинформативные. И комментариев нету. Как он поймет?

(345) точно ;(

    ИнформативнаяПеременнаяДляКоличестваЭлементовМассива=128; //для количества элементов
    ИнформативнаяПеременнаяДляМассиваДляИспытаний=Новый Массив(ИнформативнаяПеременнаяДляКоличестваЭлементовМассива); //инициализация массива
    ИзготовитьМассив(ИнформативнаяПеременнаяДляМассиваДляИспытаний, ИнформативнаяПеременнаяДляКоличестваЭлементовМассива); //инициализация массива
    Сообщить("алгоритм мега-пузырька"); //сообщим
    Старт=ТекущаяУниверсальнаяДатаВМиллисекундах(); //засечём
    
    ИнформативнаяПеременнаяДляПодсчётаКоличестваПерестановок=0; //обнулим
    Для ИнформативнаяПеременнаяДляСчётчикаПервогоЦикла=0 По ИнформативнаяПеременнаяДляКоличестваЭлементовМассива-2 Цикл //запустим цикл1
        Для ИнформативнаяПеременнаяДляСчётчикаВторогоЦикла=0 По ИнформативнаяПеременнаяДляКоличестваЭлементовМассива-ИнформативнаяПеременнаяДляСчётчикаПервогоЦикла-2 Цикл //запустим цикл2
            Если ИнформативнаяПеременнаяДляМассиваДляИспытаний[ИнформативнаяПеременнаяДляСчётчикаВторогоЦикла]>ИнформативнаяПеременнаяДляМассиваДляИспытаний[ИнформативнаяПеременнаяДляСчётчикаВторогоЦикла+1] Тогда //сравним
                ИнформативнаяПеременнаяДляПодсчётаКоличестваПерестановок=ИнформативнаяПеременнаяДляПодсчётаКоличестваПерестановок+1; //инкрементируем количество подстановок
                ВременнаяПеременнаяДляВременногоХраненияЗначения=ИнформативнаяПеременнаяДляМассиваДляИспытаний[ИнформативнаяПеременнаяДляСчётчикаВторогоЦикла]; //запомним
                ИнформативнаяПеременнаяДляМассиваДляИспытаний[ИнформативнаяПеременнаяДляСчётчикаПервогоЦикла]=ИнформативнаяПеременнаяДляМассиваДляИспытаний[ИнформативнаяПеременнаяДляСчётчикаВторогоЦикла+1]; //присвоим
                ИнформативнаяПеременнаяДляМассиваДляИспытаний[ИнформативнаяПеременнаяДляСчётчикаВторогоЦикла+1]=ВременнаяПеременнаяДляВременногоХраненияЗначения; //присвоим
            КонецЕсли; //хватит еслей
        КонецЦикла; //цикла конец
    КонецЦикла; //цикла конец
    
    Финиш=ТекущаяУниверсальнаяДатаВМиллисекундах(); //засечём
    Сообщить(""+(Финиш-Старт)+" мсек., "+ИнформативнаяПеременнаяДляПодсчётаКоличестваПерестановок+" перестановок"); //сообщим

(346) Вот теперь ты познал дзен разработчиков типовых)))

Сравни (338) и (346) Ведь одно и тоже. Но как внушительно, как масштабно выглядит последнее!

и никто не видит ошибку в 12й строке. эх вы, двоечники

(346)Богмой О_о

(349) Вот так все в типовых и происходит)))

куда Шваль то пропал, так до пятницы и не дотянул (

в европах дело к обеду, счас подтянется, поди

(2) а ещё, в случае с числами и т.д. можно так:

а[1]=a[1]+a[2];
a[2]=a[1]-a[2];
a[1]=a[1]-a[2];

(353)Шекспир прям

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

чего только не придумали.  http://www.youtube.com/watch?v=CmPA7zE8mx0  ^_^

(346) пальцы не постирал столько печатать??

да нет заодно и научусь правильно писать по русский!

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

(8) лол, шевалье пишется chevalier

(359) и не по-русски тож))

(358) ктрл+х наше всё ;)

(360) вот зачем ты это сказала?

Sabbath сам Лол я на своём родном написал!

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

а чего на румынском "рыцарь" - shevalie?

(365) у тебя как пузырь поживает?

https://translate.google.ru/?hl=ru&tab=wT#auto/ru/shevalie

skunk нет но румынском и буквами написал))

https://translate.google.ru/?hl=ru&tab=wT#ru/ro/шевалье

chevalie

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

шевалье д'Артаньян вообще-то был

вот wild что нашел




//   Для Индекс = 0 По Элемент.Количество()-1 Цикл
//               Для Значение = 0 По Элемент.Количество()-1 Цикл
//               Если Значение = Элемент.Количество()-1 Тогда
//               Прервать;
// КонецЕсли;
//        Если Элемент[Значение] > Элемент[Значение+1] Тогда
//               СтаршийЭлемент = Элемент[Значение];
//               МладшийЭлемент = Элемент[Значение+1];
//               Элемент[Значение] = МладшийЭлемент;
//               Элемент[Значение+1] = СтаршийЭлемент;
//           КонецЕсли;
//       КонецЦикла;
//КонецЦикла;
//   КонецФункции

а готовое решение в (346) не заметил? только в 12й строке поправить

ИнформативнаяПеременнаяДляКоличестваЭлементовМассива=128; //для количества элементов

    ИнформативнаяПеременнаяДляМассиваДляИспытаний=Новый Массив(ИнформативнаяПеременнаяДляКоличестваЭлементовМассива); //инициализация массива

    ИзготовитьМассив(ИнформативнаяПеременнаяДляМассиваДляИспытаний, ИнформативнаяПеременнаяДляКоличестваЭлементовМассива); //инициализация массива

    Сообщить("алгоритм мега-пузырька"); //сообщим

    Старт=ТекущаяУниверсальнаяДатаВМиллисекундах(); //засечём

    
    ИнформативнаяПеременнаяДляПодсчётаКоличестваПерестановок=0; //обнулим

    Для ИнформативнаяПеременнаяДляСчётчикаПервогоЦикла=0 По ИнформативнаяПеременнаяДляКоличестваЭлементовМассива-2 Цикл //запустим цикл1

        Для ИнформативнаяПеременнаяДляСчётчикаВторогоЦикла=0 По ИнформативнаяПеременнаяДляКоличестваЭлементовМассива-ИнформативнаяПеременнаяДляСчётчикаПервогоЦикла-2 Цикл //запустим цикл2

            Если ИнформативнаяПеременнаяДляМассиваДляИспытаний[ИнформативнаяПеременнаяДляСчётчикаВторогоЦикла]>ИнформативнаяПеременнаяДляМассиваДляИспытаний[ИнформативнаяПеременнаяДляСчётчикаВторогоЦикла+1] Тогда //сравним

                ИнформативнаяПеременнаяДляПодсчётаКоличестваПерестановок=ИнформативнаяПеременнаяДляПодсчётаКоличестваПерестановок+1; //инкрементируем количество подстановок

                ВременнаяПеременнаяДляВременногоХраненияЗначения=ИнформативнаяПеременнаяДляМассиваДляИспытаний[ИнформативнаяПеременнаяДляСчётчикаВторогоЦикла]; //запомним

                ИнформативнаяПеременнаяДляМассиваДляИспытаний[ИнформативнаяПеременнаяДляСчётчикаПервогоЦикла]=ИнформативнаяПеременнаяДляМассиваДляИспытаний[ИнформативнаяПеременнаяДляСчётчикаВторогоЦикла+1]; //присвоим

                ИнформативнаяПеременнаяДляМассиваДляИспытаний[ИнформативнаяПеременнаяДляСчётчикаВторогоЦикла+1]=ВременнаяПеременнаяДляВременногоХраненияЗначения; //присвоим

            КонецЕсли; //хватит еслей

        КонецЦикла; //цикла конец

    КонецЦикла; //цикла конец

    
    Финиш=ТекущаяУниверсальнаяДатаВМиллисекундах(); //засечём

    Сообщить(""+(Финиш-Старт)+" мсек., "+ИнформативнаяПеременнаяДляПодсчётаКоличестваПерестановок+" перестановок"); //сообщим

это

(378) даже с комментариями, чтоб понятней было

или это


НН=128;
    М=Новый Массив(НН);
    ИзготовитьМассив(М, НН);
    Сообщить("алгоритм мега-пузырька");
    Старт=ТекущаяУниверсальнаяДатаВМиллисекундах();
    
    ч=0;
    Для ж=0 По НН-2 ЦИкл
        Для й=0 По НН-ж-2 Цикл
            Если М[й]>М[й+1] Тогда
                ч=ч+1;
                ц=М[й];
                М[й]=М[й+1];
                М[й+1]=ц;
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;
    
    Финиш=ТекущаяУниверсальнаяДатаВМиллисекундах();
    Сообщить(""+(Финиш-Старт)+" мсек., "+ч+" перестановок");


походу тоже проавильно

а вот сейчас молодец ;)

А давайте все же попытаемся угадать личность автора? Предположение 1: г-н Нуралиев решил потролить народ

Волшебник?
Владимир Владимирович? г-н Обама??

@Любоптыная видела автора. давайте спросим у неё, верит ли она в весь этот вертеп?

напоминает отрывок из фильма какого-то

- ты чего? эй? ну чего ты????
-.... я Ленина видел...

спасибо wild

осталось букв подменять а то как-то непонятно жж нн пп ч

я человек)))

у меня есть кое-какие домыслы, благодаря которым я склонен верить автору. но полностью не могу себя заставить ;)

блин да он не так уж сложный этот код похож на мой тока-чего то не хватает)))




Для Индекс = 0 По МассивЧисел.Количество()- 1 Цикл
    
МассивЧиселКоличество = МассивЧисел.Количество() - 1;
//для индекс = 0 по МассивЧиселКоличество цикл
    Если МассивЧисел[0] >  МассивЧисел[1] Тогда
        МассивЧисел[1] = МассивЧисел[0];
         Сообщить(МассивЧисел[Индекс]);
КонецЕсли;
    КонецЦикла;
       КонецФункции

(388) пройтись по массиву один раз в одном направлении недостаточно

(388) а ты слышал, что с сегодняшнего дня школьников и студентов будут на наркотики проверять?))

Если серьезно, возьми книжку уже какую-нибудь. Там же помимо массивов целое море всякой всячины. С помощью форума далеко не уедешь.

эхх даже не знаю смогу я освоить 1с книги как-то непонятные
скоро на второй кур надо поить первый так был создать справочники Документы Что такое подсистема и так далее не уверен что пройдя еще второй курс и третий смогу программировать как wild :(

Сможешь! Книги 1с не непонятные, они лаконичные - ничего лишнего, только необходимая информация. А в самом начале, по-моему, написано, что необходимо иметь первоначальные навыки. Вот с них и надо начать. Разберись что такое массивы, переменные, базы данных как работают и т.д.

спасибо за поддержку

(393) Давай, дружище, мы в тебя верим. :) Разобрался с пузырьком?

(394) он даже нашёл правильный вариант. сам! ИзготовитьМассив(), правда, у него нет

(395) так-то есть. Просто по-другому называется

(395) а нет ли утебя случайно ВПФ для УФ? Для примеру... все время забываю что так как пишется

Вот, шляпа, финиш на 398...

спасибо всем )

щетыреста!

(397) с собой нет
http://www.1c-pro.ru/topic26882.html

надо визуализацию сортировот таки забабашить, я думаю ;)

(401) ваша лошадь тихо ходит. (399) Это тебе спасибо :) Порадовал старую больную даму)

(403) смотрю, моя старая больная лошадь вполне резво всё нашла ;)

(404) просто я нашла уже.

почил всю ветку.
Стало плохо.
Лучше уж индусы

Привет всем пошел к одному хорошему человека и он мне помог


&НаКлиенте
Функция МассивЧисел()
    
    МассивЧисел = Новый Массив();
    МассивЧисел.Добавить(3); // и = 0
    МассивЧисел.Добавить(1); // и = 1
    МассивЧисел.Добавить(5); // и = 2    
    МассивЧисел.Добавить(0); // и = 3    
    МассивЧисел.Добавить(7); // и = 3    
    МассивЧисел.Добавить(12); // и = 3    
    МассивЧисел.Добавить(22); // и = 3    
    МассивЧисел.Добавить(9); // и = 3    
    
    Индекс = 0;
    
    МассивЧиселКоличество = МассивЧисел.Количество() - 2;   // - 2 потомучто доходим до предпоследнего элемента, НЕ ПОСЛЕДНЕГО!!!    
    Пока Индекс <= МассивЧиселКоличество Цикл
        // идем по массиву, сравниваем значение элемента массива со следующим значением элемента
        Если МассивЧисел[Индекс] >  МассивЧисел[Индекс+1] Тогда
            // поменять местами значения
            ВременнаяПеременная = МассивЧисел[Индекс+1];
            МассивЧисел[Индекс+1] = МассивЧисел[Индекс];    // здесь мы получаем такой массив: 3 3 4 0
            МассивЧисел[Индекс] = ВременнаяПеременная;    // а здесь мы получаем: 2 3 4 0
            
            Индекс = 0; // начнем обход с начала
        Иначе
            Индекс = Индекс + 1;
        КонецЕсли;
        
    КонецЦикла;
    
    // выести на экран результат
    Для Индекс = 0 по МассивЧиселКоличество + 1 цикл
        Сообщить(МассивЧисел[Индекс]);
    КонецЦикла;
    
    
КонецФункции





вот и результат^_^

чего некто-не смотреть завершенный код? и главное понятен для меня!

cool_misha122062  Кто-бы говорил!

(407) я назвал это дело сортировкой глупца. ещё хуже пузырька, между прочим

вот сейчас опять.. человек берёт готовое, говорит всем спасибо, потом рассказывает, что сходил налево и показывает какую-то хрень. что-то тут не то

(411) дык пятницо!

(411)Думаешь все-таки тролль?

(413) ну что за слово дурацкое? думаю, автор лукавит. но так долго и успешно прикидываться нужен немалый талант. мало кто не прокололся бы

(414) А смысл?

(415) тот же, что и в (346)

(416) Ты думаешь - ему весело? Ну т.е. это каким-то образом поднимает человеку настроение? Мне кажется это странным.
Может мы просто не представляем себе, что действительно есть настолько... странные люди :)

какой-то азиатский взгляд на мир. и молдавско-румынское происхождение...

(373)Ай, заврался, ни одной грамматической ошибки в такой сложной фразе ;) "русское", "английскими"

(402)На чем? Чтой-то у 1С бедный графический потенциал. Может я просто не копалась, конечно.

(420) вполне достаточный для визуализации

(419) я тут вспомнил, как баян рисовал. ну, знаете, движущаяся картинка, сигнализирующая о том, что процесс ещё не умер. в досовском дрвебе палки рисовались: |\/- так что можно попробовать визуализировать массив надписями.

пример баяна: [:||||:], с переменным числом палок, разумеется

(422)А в винде 3.11 был блокнотик с перелистывающимися страничками. Я тоже баловалась рисованием мультиков буковками :)

(421) нарисовать хватит. но скорость отрисовки какова будет?

(421)Ну так подскажи чем отрисовывать, чтобы можно было организовать ну хотя бы 12 кадров в секунду?

(425)             It = WMPlayer.currentPlaylist.Item(ПоследняяВлисте);
            WMPlayer.Controls.playItem(It);

Я не троллю у меня есть индивидуальный учитель естественно я пошел к нему и он объяснил в чем дело у меня был где-то 4 урок по программированию а как вы знаете программирование начинается с самого простого и к сложного потихоньку идешь

если бы хотел вам дарить вам мозги то придумал вам говоломки в секцию развлечение а не в 1ску

(427) Стоп. А зачем ты на форуме тогда всю эту фигню несешь? И что за учитель такой, который предлагает метод сортировки более медленный даже чем тупейшее пузырьком?

Два дня пороть всякую хрень, чтобы наконец выдать "а вот мне объяснили так, как никто из вас не смог". Чувак, я разочарована

(422)а что песочные часы к мыше было слабо прикрутить?

(430) часы - унылая банальность. а вот аккордеон к мыши - это даа..

(429) с учителем постигать дзэн легче и приятнее

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

(433) чувак, о том, что есть сортировки тупее пузырька я узнал позавчера. все начинали с пузырька ;)

автор применяет стиль высокосортрой стельки
http://www.botinok.co.il/spaw/images/ddd.jpg

для меня еще проблема что не могу корректно определить ход цикла например как он идет и где конец :(

(436) конец ровно в строчке КонецЦикла. сходи в меню отладка, открой для себя пошаговое исполнение

вспоминается ещё, как Ли Вонг(?) возрадовался до плеши

+(438) «С другом по магазинам» @ http://lurkmore.to/Ли_Вонг_Ян

а как открыть я только не понял нажимаем стоп откладку красную точку ставим и ф11?

(434) Все начинают с пузырька потому что это примитив. Не надо ничего придумывать - все логично.
(440) Шагай к своему учителю, пусть он тебя учит

экая она разозлилась. хорошо, что меня со вчерашней "лошадью" пронесло ;)

забыл спросить ладно в гуглал найду не хочу потревожить его по пустякам у него тоже есть своя жизнь я благодарен ему что помогает и признателен поэтому я так усердно пытаюсь понять что к чему и он насовсем учитель но преподает мне уроки и я этому рад

(441) не знаю, мне рекурсивная сортировка больше нра

wild и любопытная из вас тоже вышли отличные учителя если я вас понял 80% то уверен другие поймут на все 100% ^_^

(431)в винде аккардеон к мыши приделывается на раз два

(444) когда я первый раз смотрел на визуализацию бого, думал "ах ни хрена ж себе, что творят! щас бац - и одним лёгким движением в конце всё упорядочат"

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

(446) это после визуализации сортировок ;)

а сколько лет форума миста смотрю некоторые давно зарегистрированные

(444) Леш, ты явно гораздо умнее меня) Я, при первой встрече с массивами в 9м классе на занятиях в кружке, придумала только пузырек)

wild  17 октября 2006; Стаж: 7 лет 1 месяц 20 дней

7 лет многовато ты наверняка привык к форум миста


боюсь представить если тебя забанет)))

(452) а чо такого? бывало. за "с вас 500 рублей", за "блин", за сузуки для катены даже страдал ;)

вы мне лучше скажите, откуда у меня в перед открытием кнопка на форме с режимом меню оказывается заполненной? 8.1

ты это кому отвечал )) и что за непонятные цифры в переди (452) давно хотел спросить это типа к кому отвечаешь

+(454) первая строка перед открытием, есессно

(455) истинно так. кнопки под ником даже нажимаются

(456) Нету у меня ни одной базы 8.1, чтобы разгадать твою чудесную загадку

(458) ну ты же правильно сказала, что нарисовано прямо в форме. нужно развивать свою технику мышиного тычка

(459) т.е. ты просто не до ткнул? (недоткунл/ не доткнул?)

(460) не с глаголами

(461) не я в курсе, а до?

не доткнул. проверочное слово не докрасил

а недоткнул - это зверь какой-то семейства сумчатых

(464) мне его жалко. С таким-то именем...

(463) о_О

(464) Недотыкомка? Это, вроде как , нечто иное.

(467) недотыкомка - это из ряда (439): "В магазине мы имели один бутылка, много молоки, хлебу, *опку, поридж, кока, еда квашеный, гризли сущеный, карасик и другие овощи."

Надо ж, ветка еще жива. Это вместо пятничной что ли?

Дотянул таки до заветной

(469) не сместо, а паралельно

*не вместо

да занавес уже. автор избрал сортировку глупца. сложность ровно на порядок больше пузырьковой: n^3 против n^2
wiki:Глупая_сортировка

(469)Соревнуемся. Екатерина пятничную ветку делала часов до 4 вечера.

(473) + http://habrahabr.ru/post/204968/

(475) как грится, 10х
далеко не разбегайтесь, планирую хоть что-нибудь на выходных заделать ;)

ребята у меня вопрос а как запустить индекс например с 5 до 1 типа наоборот?
массив.количество=индекс+5 потом снижаемся на один меньше до 1

типа -1?

или как?

или индекс = 5 -1

(477) ага, прям так и пиши)

я сериёзно

(477)

Для ы=-5 по -1 Цикл
    Инд = -ы;
    ...
КонецЦикла;


индекс = 5;
индекс = М.Количество -1

так?

спосибо

закончились вопросы? очень странно )

походу неправильно)))налукавел))

(485) расскажи, как ты понял, что неправильно)

Для индекс =-5 по -1 Цикл
    Инд = -ы;
    ...
Конец Цикла;

не может быть -5

если индекс = 0 тогда он начинает с цифрой 1 если укажем +1
если индекс = 5 тогда он начинает с цифрой 5 и мы укажем -1
будет уже 4321

Для индекс = 5 по -1 Цикл думаю будет как-то так!

(487) Для индекс =-4 по 0 Цикл

(487) ты там чего такое задумал?

дойти до индекс 9 один круг потом обратно с 9 но тоже сортировать в одном слове ^_^ Шейкерная сортировка

(490) не до 9, а до Н

до н и указать н-1

wild ну скажи плиз как запустить откладку с красной точкой

все нашел))

(490) Шелла штоль?
(494) шифт+ф9 покажет тебе значения переменных. ну или в табло

нашел как пройтись с красной точкой

везёт тебе. многие тут так и не освоили

щяс код поставлю с Шейкерная сортировка скажешь если правильный
молодец^_^ если я на правильном пути скажешь КонецБлизок иначе ))) скажешь конецНеБлизок

ок ты таким образом мне поможешь)

не ожидал что тема так вырастет.
жгите дальше.

пицот,чего уж там.

писот!

(500) фу, грязный читер

мимо ;)

не надо оскорблений, так получилось

интересно, чем сейчас занимается наш пациент...

любители тянуть резину за хвост..

(495) Не, не Шелла. Двунаправленная пузырьковая сортировка по другому называется.

http://habrahabr.ru/post/204600/ 3 сортировка из списка

&НаКлиенте
Функция МассивЧисел()
    
    МассивЧисел = Новый Массив();
    МассивЧисел.Добавить(3); // и = 0
    МассивЧисел.Добавить(1); // и = 1
    МассивЧисел.Добавить(5); // и = 2    
    МассивЧисел.Добавить(0); // и = 3    
    МассивЧисел.Добавить(7); // и = 3    
    МассивЧисел.Добавить(12); // и = 3    
    МассивЧисел.Добавить(22); // и = 3    
    МассивЧисел.Добавить(9); // и = 3    
    
    Индекс = 0;
    
    МассивЧиселКоличество = МассивЧисел.Количество() - 2;   // - 2 потомучто доходим до предпоследнего элемента, НЕ ПОСЛЕДНЕГО!!!    
    Пока Индекс <= МассивЧиселКоличество Цикл
        // идем по массиву, сравниваем значение элемента массива со следующим значением элемента
        Если МассивЧисел[Индекс] >  МассивЧисел[Индекс+1] Тогда
            // поменять местами значения
            ВременнаяПеременная = МассивЧисел[Индекс+1];
            МассивЧисел[Индекс+1] = МассивЧисел[Индекс];    // здесь мы получаем такой массив: 3 3 4 0
            МассивЧисел[Индекс] = ВременнаяПеременная;    // а здесь мы получаем: 2 3 4 0
             //Индекс = 0; // начнем обход с начала
        //Иначе
        Индекс = Индекс + 1;
    КонецЕсли;
    //КонецЦикла;
    Если
        МассивЧисел[Индекс-1] > МассивЧисел[Индекс] Тогда
            ВременнаяПеременная = МассивЧисел[Индекс-1];
            МассивЧисел[Индекс-1] = МассивЧисел[Индекс];
            МассивЧисел[Индекс] = ВременнаяПеременная;                
            КонецЕсли;
            Индекс = Индекс - 1;//Двигаем позицию на шаг назад              
        КонецЦикла;        
    КонецЦикла;      
    
    // выести на экран результат
    Для Индекс = 0 по МассивЧиселКоличество + 1 цикл
        Сообщить(МассивЧисел[Индекс]);
    КонецЦикла;
    
    
КонецФункции




я на правильном пути?

там же два цикла. справа налево и слева направо

там слишком много канецЦицла необрасяите внимание
а так я на правильном пути или совсем плохо

я потом исправлю

МассивЧисел[Индекс-1] > МассивЧисел[Индекс] Тогда
            ВременнаяПеременная = МассивЧисел[Индекс-1];
            МассивЧисел[Индекс-1] = МассивЧисел[Индекс];
            МассивЧисел[Индекс] = ВременнаяПеременная;                
            КонецЕсли;
            Индекс = Индекс - 1;//Двигаем позицию на шаг назад              
        КонецЦикла;        
    КонецЦикла;      


это правильно






Шейкерная сортировка

смотри доделал но у меня бесконечный цикл :(



&НаКлиенте
Функция МассивЧисел()
    
    МассивЧисел = Новый Массив();
    МассивЧисел.Добавить(3); // и = 0
    МассивЧисел.Добавить(1); // и = 1
    МассивЧисел.Добавить(5); // и = 2    
    МассивЧисел.Добавить(0); // и = 3    
    МассивЧисел.Добавить(7); // и = 3    
    МассивЧисел.Добавить(12); // и = 3    
    МассивЧисел.Добавить(22); // и = 3    
    МассивЧисел.Добавить(9); // и = 3    
    
    Индекс = 0;
    
    МассивЧиселКоличество = МассивЧисел.Количество() - 2;   // - 2 потомучто доходим до предпоследнего элемента, НЕ ПОСЛЕДНЕГО!!!    
    Пока Индекс <= МассивЧиселКоличество Цикл
        // идем по массиву, сравниваем значение элемента массива со следующим значением элемента
        Если МассивЧисел[Индекс] >  МассивЧисел[Индекс+1] Тогда
            // поменять местами значения
            ВременнаяПеременная = МассивЧисел[Индекс+1];
            МассивЧисел[Индекс+1] = МассивЧисел[Индекс];    // здесь мы получаем такой массив: 3 3 4 0
            МассивЧисел[Индекс] = ВременнаяПеременная;    // а здесь мы получаем: 2 3 4 0
            Индекс = Индекс + 1;
    КонецЕсли;
    Если
        МассивЧисел[Индекс-1] <= МассивЧисел[Индекс] Тогда
        ВременнаяПеременная = МассивЧисел[Индекс-1];
        МассивЧисел[Индекс-1] = МассивЧисел[Индекс];
        МассивЧисел[Индекс] = ВременнаяПеременная;                
    КонецЕсли;
        Индекс = Индекс - 1;//Двигаем позицию на шаг назад              
        КонецЦикла;
    
    // выести на экран результат
    Для Индекс = 0 по МассивЧиселКоличество + 1 цикл
        Сообщить(МассивЧисел[Индекс]);
    КонецЦикла;
    
    
КонецФункции

перед самым концом цикла ты сдвигаешь индекс на шаг назад

wiiild????? скажи правильно?

поставил +1 Индекс = Индекс - 1;//Двигаем позицию на шаг назад      


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

н=м.количество();
й=н-1;
пока й>0 цикл
если м[й]>м[й-1] менять_местами
й=й-1
н=н-1
конец цикла;

вот так ты пройдёшь один раз. потом так же в обратную сторону:
к=0;
для й=к по н-1
...
к=к+1;

и это дело повторяется, пока к и н не сойдутся в одной точке

придется опять блок схему сделать но у меня нету времени

а тут даже сишный код есть
https://ru.wikipedia.org/wiki/Шейкерная_сортировка

посиб

(519) сейчас у него будет взрыв мозга от сишного синтаксиса...
Всем в укрытие!

к это что

(522) граница слева. н - справа

блин так сложно :(

кстати, помимо ++ у сей есть do while. у 1с же нету такого, только через пока конеццикла?

(524) можно загнать твой массив в ТЗ, а ТЗ скормить СКД. СКД сама отсортирует

вот получать пачку данных в несколько десятков тысяч записей из соседней базы, прикручивать к ним данные из своей, выводить с нужными группировками, ресурсами и вычисляемыми полями, красить различия в данных из "там" и "из тут", да ещё чтоб за минуту хотя бы сделалось - вот это не так просто. задумайся ;)

(527) в минуту я не уложился вроде. одно подключение к соседней базе занимает секунд 6-8. продажи за месяц у меня секунд 70-80 получаются. плюс вывод

&НаКлиенте
Функция МассивЧисел()
    
    МассивЧисел = Новый Массив();
    МассивЧисел.Добавить(3); // и = 0
    МассивЧисел.Добавить(1); // и = 1
    МассивЧисел.Добавить(5); // и = 2    
    МассивЧисел.Добавить(0); // и = 3    
    МассивЧисел.Добавить(7); // и = 3    
    МассивЧисел.Добавить(12); // и = 3    
    МассивЧисел.Добавить(22); // и = 3    
    МассивЧисел.Добавить(9); // и = 3    
    
    Индекс = 0;
    
    МассивЧиселКоличество = МассивЧисел.Количество() - 2;   // - 2 потомучто доходим до предпоследнего элемента, НЕ ПОСЛЕДНЕГО!!!    
    Пока Индекс <= МассивЧиселКоличество Цикл
        // идем по массиву, сравниваем значение элемента массива со следующим значением элемента
        Если МассивЧисел[Индекс] >  МассивЧисел[Индекс+1] Тогда
            // поменять местами значения
            ВременнаяПеременная = МассивЧисел[Индекс+1];
            МассивЧисел[Индекс+1] = МассивЧисел[Индекс];    // здесь мы получаем такой массив: 3 3 4 0
            МассивЧисел[Индекс] = ВременнаяПеременная;    // а здесь мы получаем: 2 3 4 0
            
            Индекс = 0; //здесь надо начнем обход с начала? здесь надо код в обратную сторуну?
        Иначе
            Индекс = Индекс + 1;
        КонецЕсли;
        
    КонецЦикла;
    
    // выести на экран результат
    Для Индекс = 0 по МассивЧиселКоличество + 1 цикл
        Сообщить(МассивЧисел[Индекс]);
    КонецЦикла;

блин как представлять это(((

печально но моя не понимает я дохожу до конца круга и не знаю что дальше сделать!

оператор если надо

кажется понял начну я сначала!

блин зачем стерли часть ветки ((((

wild посмотри вроде бы все норм а не работает


Функция МассивЧисел()
    
    МассивЧисел = Новый Массив();
    МассивЧисел.Добавить(3); // и = 0
    МассивЧисел.Добавить(1); // и = 1
    МассивЧисел.Добавить(5); // и = 2    
    МассивЧисел.Добавить(0); // и = 3    
    МассивЧисел.Добавить(7); // и = 3    
    МассивЧисел.Добавить(12); // и = 3    
    МассивЧисел.Добавить(22); // и = 3    
    МассивЧисел.Добавить(9); // и = 3    
    
    Индекс = 0;
    
    МассивЧиселКоличество = МассивЧисел.Количество() - 2;   // - 2 потомучто доходим до предпоследнего элемента, НЕ ПОСЛЕДНЕГО!!!    
    Пока Индекс <= МассивЧиселКоличество Цикл
        // идем по массиву, сравниваем значение элемента массива со следующим значением элемента
        Если МассивЧисел[Индекс] >  МассивЧисел[Индекс+1] Тогда
            // поменять местами значения
            ВременнаяПеременная = МассивЧисел[Индекс+1];
            МассивЧисел[Индекс+1] = МассивЧисел[Индекс];    // здесь мы получаем такой массив: 3 3 4 0
            МассивЧисел[Индекс] = ВременнаяПеременная;    // а здесь мы получаем: 2 3 4 0
        КонецЕсли;
          КонецЦикла;
            Индекс = Индекс + 1;
        Если МассивЧисел[Индекс-1] >  МассивЧисел[Индекс] Тогда
            // поменять местами значения
            ВременнаяПеременная = МассивЧисел[Индекс-1];
            МассивЧисел[Индекс-1] = МассивЧисел[Индекс];
            МассивЧисел[Индекс] = ВременнаяПеременная;
        КонецЕсли;
            Индекс = Индекс - 1;    
    // выести на экран результат
    Для Индекс = 0 по МассивЧиселКоличество + 1 цикл
        Сообщить(МассивЧисел[Индекс]);
    КонецЦикла;
КонецФункции

вот тебе задача попроще. возьми свой работающий (работающий же?) пузырёк и измени алгоритм так, чтобы оно сортировалось в обратном порядке, от большего к меньшему

закладка
http://habrahabr.ru/post/205290/