Метод определяющий упорядочен список по возрастанию. Delphi

[varlonec]

Помогите пожалуйста решить задачу:

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

Заранее спасибо

[RUSt88]

пиши на мыло, договоримся

[kakawkin]

скорее всего договорилися за $ ?
лёгкая задачка.

В общем:
1. Будет конечно же массив a:array [1..5] of integer;
2. for i:=1 to 9 do
3. if a[i] < a[i+1] readln('ОШИБКА!!! МАССИВ НЕПОРЯДОЧЕН!!!');

ну или чтото в этом роде - писал ан ходу. А так за 5 минут можно написать такую программу

[Serge_Bliznykov]

kakawkin
Вы очень невнимательны, коллега.
1) в задаче речь идёт не о массиве, а о списке (это динамическая структура со связями элементов друг с другом)
2) если объявили массив array [1..5] то почему цикл до 9-ти ?! (for i:=1 to 9 ... )

2 varlonec
по сути задачи, kakawkin абсолютно прав - берёте и сравниваете элементы, если текущий элемент списка меньше или равен предыдущему — то цикл прерываем: список неотсортирован по возрастанию ( IsListSorted := false), если текущий элемент последний в списке (дошли до конца списка) — список отсортирован по возрастанию ( IsListSorted := true)
Выкладывайте свои наработки - как задаёте список, как с ним работаете.

p.s. а задачка действительно несложная!

[psycho-coder]

меньше или равен

А если встречаются два одниакнвых элемента?

[Serge_Bliznykov]

А если встречаются два одниакнвых элемента?

А тут, имхо, нет однозначного мнения...
например, есть такое мнение:

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

так что, это программист должен решить, что делать, если встречаются одинаковые элементы.
Либо считать, что одинаковые элементы допустимы (и тогда цикл не прерывать), или считать, что данная последовательность не является ВОЗРАСТАЮЩЕЙ и прерывать цикл перебора.