ПОСЛЕДОВАТЕЛЬНОСТЬ МЕНЯЕТ ЗНАК 1 РАЗ

 

ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = 4

ВВЕДИТЕ X = 4

ВВЕДИТЕ X = 2

ВВЕДИТЕ X = 0

ВВЕДИТЕ X = 0

ПОСЛЕДОВАТЕЛЬНОСТЬ НЕ МЕНЯЕТ ЗНАКА

Рис. 3.6. Результат работы PRG3_8

 

Задача 3.9 Вводится последовательность ненулевых чисел, 0 - конец последовательности. Определить, явля­ется ли последовательность возрастающей.

Решение данной задачи строится от противного. Математиче­ски для того, чтобы последовательность была возрастающей, для каждого очередного элемента NEW и предыдущего OLD должно выполняться условие NEW > OLD

Любое нарушение данного условия приводит к тому, что по­следовательность не может быть возрастающей.

PROGRAM PRG3_9;

VAR OLD, NEW: REAL;

F: BOOLEAN;

BEGIN

WRITE('BBEДИTE X = ');

READLN (OLD);

WRITE('BBEДИTE X = ');

READLN (NEW);

F:= TRUE;

REPEAT

IF NEW<= OLD THEN F:= FALSE;

OLD:= NEW;

WRITE('BBEДИTE X = ');

READLN (NEW)

UNTIL NEW = 0;

IF F THEN

WRITELN('ПOCЛEДOBATEЛЬHOCTЬ ВОЗРАСТАЮЩАЯ')

ELSE

WRITELN('ПOCЛEДOBATEЛЬHOCTЬ HE ЯВЛЯЕТСЯ ВОЗРАСТАЮЩЕЙ')

END.

 

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим два первых числа как OLD и NEW, задаем началь­ное значение флага;

- в цикле ищем нарушение свойства членов возрастающей последовательности;

- переприсваиваем значение OLD:= NEW и вводим новое -NEW;

- в зависимости от флага выводим результат.

Переменные:

OLD - предыдущее число;

NEW - рассматриваемое число;

F - флаг.

 

ВВЕДИТЕ X = 4

ВВЕДИТЕ X = 10

ВВЕДИТЕ X = 11

ВВЕДИТЕ X = 14

ВВЕДИТЕ X = 124

ВВЕДИТЕ X = 444

ВВЕДИТЕ X = 0