Форум на Исходниках.RU

Хелп..Упорядочить массив по возрастанию

Vesper — Fri, 27 Feb 2004 05:48:28 +0000

Vesper: А это другой алгоритм, называется "простые вставки", только обычно ищут минимум :) А делается это просто: вместе с значением максимума запоминаешь индекс в массиве, т.е. меняешь строчку

Цитата

Гэг Крэг, 26.02.04, 20:35
if max

на вот такой оператор:

if max<X[i] then begin

max:=X[i];

imax:=i;

end;

а потом меняешь местами последний эл-т (N-й) с imax'ым.

Хелп..Упорядочить массив по возрастанию

Гэг Крэг — Thu, 26 Feb 2004 16:35:46 +0000

Гэг Крэг: А если без процедур, например, так
Нахождение максимального элемента

const n=100;

var X:array[1..n] of real;

i:integer;

max:real;

begin

for i:=1 to n do

begin

writeln('Введите X[',i,']');

readln(X[i]);

end;

max:=X[1];

for i:=1 to n do

if max<X[i] then max:=X[i];

writeln('Максимальный элемент массива',max);

end.

А как дальше продолжить мысль: перенести max в конец (поменять max местами с последним индексом в массиве), а потом сравнивать индескы между собой и расставлять в порядке возрастания?

Хелп..Упорядочить массив по возрастанию

tomsksmile — Thu, 26 Feb 2004 07:41:40 +0000

tomsksmile: то, что написал = это алгорим пузырька, называется

var

FA, FB, FI, FJ: Integer;

procedure Swap(A, B, I, J: Integer);

begin

FA := A;

FB := B;

FI := I;

FJ := J;

end;

procedure Sort(var A: array of Integer);

var

I, J, T: Integer;

begin

for I := High(A) downto Low(A) do

for J := Low(A) to High(A) - 1 do

if A[J] > A[J + 1] then

begin

Swap(A[J], A[J + 1], J, J + 1);

T := A[J];

A[J] := A[J + 1];

A[J + 1] := T;

end;

попробуй...

Хелп..Упорядочить массив по возрастанию

Гэг Крэг — Thu, 26 Feb 2004 06:30:34 +0000

Гэг Крэг: Люди плиз хэлп
У меня задача, которая состоит в следующем: Дан массив

const n=100

X:array[1..n] of real;

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

Как это сделать можно проще? Подскажите...