Как расположить эл-ты массива в обратном порядке?

← →
На паре (2008-09-13 15:09) [0]

program massivvvvvv;
uses crt;
type mass=array[1..10] of integer;
var a:mass; i:integer;

begin
clrscr;
randomize;
for i:=1 to 10 do a[i]:=random(10);
for i:=1 to 10 do write(a[i]," ");

readln;
end.

← →
turbouser © (2008-09-13 15:15) [1]

> На паре

Учиться, учиться и еще раз учиться.

← →
Pred (2008-09-13 15:16) [2]

i := 1;
j := 10;
while (i < j) do
begin
t := a[i];
a[i] := a[j];
a[j] := t;
Inc(i);
Dec(j);
end;

Гы... сам был на парен =)

← →
На паре (2008-09-13 15:16) [3]

Тут зачет, прошу помочь

← →
На паре (2008-09-13 15:24) [4]

> Pred

Чего-то как-то не сортируется =)

← →
На паре (2008-09-13 15:28) [5]

Может for i:=10 to 1 do a[i]; как-то так?

← →
Германн © (2008-09-13 16:01) [6]

for i:=10 downto 1
Троечник!

← →
На паре (2008-09-13 16:10) [7]

> for i:=10 downto 1

А дальше как? Т.е. это реально отсортирует массив?

← →
Германн © (2008-09-13 16:18) [8]

> Т.е. это реально отсортирует массив?

Нет. К сортировке это не имеет никакого отношения.

← →
Pred (2008-09-13 16:29) [9]

На паре, ты написал же, что надо расположить элементы в обратном порядке, а теперь хочешь чтобы отсортировало...
Определись уж...

← →
На паре (2008-09-13 16:43) [10]

В обратном порядке :)

← →
На паре (2008-09-13 16:43) [11]

В обратном порядке :)

← →
TUser © (2008-09-13 16:57) [12]

зачет? в сентябре? да еще такое "задание"?

судя по всему - отпетый рульный_перец, над которым в последний раз сжалился несчастный преп

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

← →
Pred (2008-09-13 19:45) [13]

> удя по всему - отпетый рульный_перец, над которым в последний
> раз сжалился несчастный преп

Меня тоже давно жалеют. Я бы себя уже давно отчислил.

← →
Simpson © (2008-09-13 20:55) [14]

Полный бизнес

Отсортировать масив неуметь, это сильно.

← →
Renegat © (2008-09-13 22:14) [15]

procedure Reverse(P:DWORD, Sz:DWORD); asm SUB EDX, 1; JLE @exit; @loop: MOV ECX, DWORD PTR [EAX+EDX*4]; XCHG ECX, DWORD PTR [EAX]; MOV DWORD PTR [EAX+EDX*4], ECX; ADD EAX, 4; SUB EDX, 2; JG @loop; @exit: RET; end;

Не проверял, но работать должно. Располагает элементы DWORD-массива в обратном порядке.

← →
KilkennyCat © (2008-09-13 22:26) [16]

> Renegat © (13.09.08 22:14) [15]

:)))

Как???? Прошло 8 часов - и еще не отсортировали?

Позор! А еще Мастера Delphi.

function reverse(var array : TElementArray) : TElementArray; var tmp : TArrayElement; begin if length(array) = 1 then begin Result := array; end; tmp := pop(array); Result := merge(TElementArray(tmp), reverse(array)); end;

> Zeqfreed © (13.09.08 23:48) [18]

--- ./1 2008-09-14 01:50:26.000000000 +0600 +++ ./2 2008-09-14 01:50:33.000000000 +0600 @@ -4,6 +4,7 @@ begin if length(array) = 1 then begin Result := array; + Exit; end; tmp := pop(array);

> Как???? Прошло 8 часов - и еще не отсортировали?
>

Стандартная академическая пара = 45 + 15 + 45 минут. Не успели, увы. (((

> Германн © (14.09.08 00:42) [20]
> Стандартная академическая пара = 45 + 15 + 45 минут. Не успели, увы. (((

День насмарку :) А ещё можно отсортировать по возрастанию, а для выборки пользовать [длиннамассива - 1 - Index] :))) Индексация с нуля.

> korneley © (14.09.08 01:12) [21]
>
>

Дык тут ещё то, что в сабже не было ничего про сортировку!
:)
Если считать что пара началась в 15:00, то кончится она должна была быть в 16:45. А
> На паре (13.09.08 16:43) [10]

даже не объяснил ничего. Только тумана напустил.
:))))
Не. В моё время такого не было! :)

Я думаю, что в "начинающих" ответ был бы. Не сразу, но был. Кстати, интересно, в каком виде? :)

Как расположить эл-ты массива в обратном порядке? Найти похожие ветки