одномерный массив. упорядочить

[serj-07]

ЗДРАВСТВУЙТЕ.
Составить функцию, возвращающую значение TRUE, если все элементы одномерного массива длиной N элементов упорядочены по убыванию их значений, и FALSE в противном случае. Используя эту функцию, вывести заданный массив, если его элементы не упорядочены в порядке убывания их значений. В противном случае вывести сообщение "Упорядочен".
Заранее спасибо.

[Sazary]

Что не получается? Где ваши наработки?

Вкратце: идете в цикле по элементам от второго до последнего. Если текущий элемент больше или равен предыдущему, то возвращаем false и выходим из функции.
Если успешно дошли до конца, то возвращаем true.

[spamer]

Народ ну вы что? В гугле таких исходников много лежит, неужели так тяжело найти?

[DENCREAT]

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

[serj-07]

я сделал так но поня что сделал совсем неправельно.

type TA=array of real;

var Form1: TForm1; a:TA; n:longint;

implementation

{$R *.dfm}

function Elements(m:TA):boolean;
var i,n:longint;
begin
  n:=Length(m);
  result:=true;
  for i:=0 to n-1 do
   if m[i]<m[i+1] then
    result:=false
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 n:=StrToInt(Trim(Edit1.Text));
 SetLength(a,n);
 StringGrid1.ColCount:=n;
 Button2.Enabled:=true
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:longint; x:boolean;
begin
 for i:=0 to n-1 do
  a[i]:=StrToFloat(StringGrid1.cells[i,0]);
  x:=Elements(a);
  if x=false then
 ShowMessage(FloatToStr(a[0])+','+FloatToStr(a[n-1]))
 else
 ShowMessage('Упорядочен')
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Finalize(a)
end;

end.

[Sazary]

Функция написана неверно.

function Elements(m:TA):boolean;
var i,n:longint;
begin
  n:=Length(m);
  result:=true;
  for i:=1 to n-1 do
   if m[i]>=m[i-1] then
    result:=false
end;

Остальное не проверял.

upd Проверил остальное - вроде, все верно.

[DENCREAT]

Сообщение от serj-07

function Elements(m:TA):boolean;
var i,n:longint;
begin
  n:=Length(m);
  result:=true;
  for i:=0 to n-1 do
   if m[i]<m[i+1] then
    result:=false
end;

у тебя же условие на убывание должно быть..

[serj-07]

я немогу понять условие.
сначало надо отдельной функ. проверить массив. если он не упоряд. то этой-же функ. ее упоряд. или отдельно ее упорядочить, а функция только ее проверяет?
Всем спасибо.

[Sazary]

я немогу понять условие.

Кидаете массив в функцию. Если он упорядочен, то говорим "Упорядочен!", если нет, то просто его выводим.

То есть тогда обработчик второй кнопки будет выглядеть так:

procedure TForm1.Button2Click(Sender: TObject);
var i:longint; x:boolean;
s : string;
begin
 for i:=0 to n-1 do
  a[i]:=StrToFloat(StringGrid1.cells[i,0]);
  x:=Elements(a);
  if x=false then
   begin
   s := '';
   for i:=0 to n-1 do
    s := s + FloatToStr(a[i]) + ' ';
    ShowMessage(s);
   end
  else
  ShowMessage('Упорядочен')
end;

[DENCREAT]

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