Проверка знаний talkers-программистов.. aka Помогите))

[axew11]

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

For Me.k = N - 1 To 1 Step -1
            m = 0
            For Me.i = 1 To k
                If A(i) > A(m) Then
                    m = i
                End If
            Next i 
             x = A(m)
             A(m) = A(k)
             A(k) = x
Next k

заранее спасибо.. код написан на Visual Basic

[FireHawk]

Откуда ж вас быдлокодеров столько?

[asdx]

поменять знак > на <

ps. код не читал.

[Jack]

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

[asdx]

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

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

если не ошибаюсь - в данном примере делается сортировка,
а swap двух соседних элементов массива - это уже как минимум 3 строки.

[xoxol]

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

Откуда ж вас быдлокодеров столько?

завидуеш что не шариш?

[Bogdaha]

Да все эти сортировки есть в инете,че тут то мусорить?!

[FireHawk]

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

завидуеш что не шариш?

Было бы чему завидовать.

[Kanskuy]

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

Да все эти сортировки есть в инете,че тут то мусорить?!

а это не интернет /вопрос

[axew11]

Если поменять знак > на < то получится не по возрастанию а по убыванию, а мне нужно чтоб сортировка другая была а результат тот же

[Werewolf]

двоечник

[E_T]

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

Было бы чему завидовать.

Есть чему, это как английский знать

[Werewolf]

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

Есть чему, это как английский знать

хуита
математичиский склад ума нужен алгаритмы панимать

[E_T]

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

хуита
математичиский склад ума нужен алгаритмы панимать

Да ты ЧО?!!111!!!

[Werewolf]

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

Да ты ЧО?!!111!!!

рассказать тебе больше?

[E_T]

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

рассказать тебе больше?

Я слушаю вас, о Великий учитель!

[Werewolf]

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

Я слушаю вас, о Великий учитель!

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

[E_T]

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

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

С какой из?

[axew11]

всё, до самого дошло.. всем спасибо

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

если не ошибаюсь - в данном примере делается сортировка,
а swap двух соседних элементов массива - это уже как минимум 3 строки.

Не в тему, но все-таки:
Обмен значений без дополнительной переменной
(писал на форуме, возможны баги

procedure SwapInt(var a, b: Integer);
begin
a := b + a;
b := a - b;
a := a - b;
end;

Добавлено через 1 минуту

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

завидуеш что не шариш?

Программист - это не высшее образование. Чуть выше, чем оператор ЭВМ.

[asdx]

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

Не в тему, но все-таки:
Обмен значений без дополнительной переменной
(писал на форуме, возможны баги

procedure SwapInt(var a, b: Integer);
begin
a := b + a;
b := a - b;
a := a - b;
end;

будет бага, если сумма двух элементов даст больше int'а.

[Taras]

For Me.k = N - 1 To 1 Step -1
            m = 0
            For Me.i = 1 To k
                If A(i) < A(m) Then
                    m = i
                End If
            Next i 
             x = A(m)
             A(m) = A(k)
             A(k) = x
Next k

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

будет бага, если сумма двух элементов даст больше int'а.

Тест?

[asdx]

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

Тест?

в качестве теста решил сделать это в mysql
тип tinyint подразумевает значения от -128 до +128

mysql> create table tt (a tinyint);
Query OK, 0 rows affected (0.01 sec)

mysql> insert into tt values (126);
Query OK, 1 row affected (0.02 sec)

mysql> insert into tt values (125);
Query OK, 1 row affected (0.00 sec)

mysql> insert into tt values(126+125);
Query OK, 1 row affected, 1 warning (0.00 sec)

mysql> select * from tt;
+------+
| a    |
+------+
|  126 |
|  125 |
|  127 |
+------+
3 rows in set (0.00 sec)

как мы понимаем - дальше можно не продолжать

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

в качестве теста решил сделать это в mysql
тип tinyint подразумевает значения от -128 до +128

mysql> create table tt (a tinyint);
Query OK, 0 rows affected (0.01 sec)

mysql> insert into tt values (126);
Query OK, 1 row affected (0.02 sec)

mysql> insert into tt values (125);
Query OK, 1 row affected (0.00 sec)

mysql> insert into tt values(126+125);
Query OK, 1 row affected, 1 warning (0.00 sec)

mysql> select * from tt;
+------+
| a    |
+------+
|  126 |
|  125 |
|  127 |
+------+
3 rows in set (0.00 sec)

как мы понимаем - дальше можно не продолжать

Тест не проведен.
P.S.: Представление отрицательных величин в базах mysql какое?