bInc:=true;
bDec:=true;
for i:= 1 to n-1 do
begin
bInc:=bInc and (a<a+1) ;
bDec:=bDec and (a>a+1) ;
end;
Помогите решить задачку....
Дан список вещественных чисел. Проверить упорядочены ли числа по возрастанию или по убыванию.
___________________
Задачи на списки никогда не решала, поэтому даже понятия не имею, что нужно делать...
___________________
Задачи на списки никогда не решала, поэтому даже понятия не имею, что нужно делать...
попробуй применить такой алгоритм:
проверь какое число больше из первого и второго элемента списка
если больше первый элемент, то проверяем на убывание второй и третий элемент и списка, и так до последнего элемента;
иначе, проверяешь также, только на возрастание.
проверь какое число больше из первого и второго элемента списка
если больше первый элемент, то проверяем на убывание второй и третий элемент и списка, и так до последнего элемента;
иначе, проверяешь также, только на возрастание.
Цитата: wanja
Код:
bInc:=true;
bDec:=true;
for i:= 1 to n-1 do
begin
bInc:=bInc and (a<a+1) ;
bDec:=bDec and (a>a+1) ;
end;
bDec:=true;
for i:= 1 to n-1 do
begin
bInc:=bInc and (a<a+1) ;
bDec:=bDec and (a>a+1) ;
end;
Очепяточка:
Код:
bInc:=true;
bDec:=true;
for i:= 1 to n-1 do
begin
bInc:=bInc and (a<a[i+1]) ;
bDec:=bDec and (a>a[i+1]) ;
end;
bDec:=true;
for i:= 1 to n-1 do
begin
bInc:=bInc and (a<a[i+1]) ;
bDec:=bDec and (a>a[i+1]) ;
end;