[Fatalita]

Помогите написать программу.

Даны натуральное число n, действительные числа a1,...,an. Выяснить, образуют ли возрастающую последовательность числа:
a1,...an, n * (a(n-1) + 1), (n-1) * (a(n-2) + 2),...,2 * (a1 + n - 1).

Спасибо!

[lmikle]

Сообщение от Fatalita

Помогите написать программу.

Даны натуральное число n, действительные числа a1,...,an. Выяснить, образуют ли возрастающую последовательность числа:
a1,...an, n * (a(n-1) + 1), (n-1) * (a(n-2) + 2),...,2 * (a1 + n - 1).

Спасибо!

Итого, у тебя получается последовательность длинной 2*n-1. Первые n членов - это твои a1..an, остальные надо рассчитать. Потом помещаешь их в один массив и просто циклом проверяешь, что каждый следующий элемент массива больше предыдущего.

Но можно и схитрить.
Например, сначала проверяем a1..an на возрастание (если нет, то дальше проверять бессмысленно). Далее в цикле рассчитываем очередной элемент и проверяем, что он больше предыдущего.

Как-то так (не проверял, просто "накидал" алгоритм):

Код:

var
  I: Integer;
  A : Array Of Integer;
  N : Integer;
  E : Integer;
  An : Integer;

  F : Boolean;
begin
  F := True;
 
  // a1..an
  For I := Low(A) To High(A) -1 Do
    Begin
       F := A[I+1] > A[i];
       If Not F Then Break;
    End;

   If F Then
     Begin
        E := A[High(A)];
        N := High(A);
        For I := Low(A) To N-1 Do
          Begin
             An := (N-I) * (A[N-I] + I);
             F := An > E;
             If Not F Then Break;
             E := An; 
          End;
     End;

  If F 
    Then ShowMessage('Возрастающая') 
    Else ShowMessage('Не возрастающая');
end;