Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2008.11.09;
Скачать: [xml.tar.bz2];

Вниз

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

 
На паре   (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]


:)))


 
Юрий Зотов ©   (2008-09-13 23:14) [17]

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

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


 
Zeqfreed ©   (2008-09-13 23:48) [18]

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 ©   (2008-09-13 23:51) [19]

> 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);


 
Германн ©   (2008-09-14 00:42) [20]


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

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


 
korneley ©   (2008-09-14 01:12) [21]


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

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


 
Германн ©   (2008-09-14 01:23) [22]


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

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

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


 
korneley ©   (2008-09-14 01:36) [23]

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



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2008.11.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.49 MB
Время: 0.005 c
15-1221423082
Дмитрий С
2008-09-15 00:11
2008.11.09
еТикет


4-1199729300
kichrot
2008-01-07 21:08
2008.11.09
Как скрыть окно проги при использование ShellExecute для печати?


11-1185310854
Dy1
2007-07-25 01:00
2008.11.09
MHFontDialog


2-1222844654
FoxNew
2008-10-01 11:04
2008.11.09
Строка соединения ADOConnection для работы с SQL-Server-ом


2-1222879419
lamer6666
2008-10-01 20:43
2008.11.09
Как на время выполнения SQL запроса Query изменить вид курсора





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский