ПОСЛЕДОВАТЕЛЬНОСТЬ МЕНЯЕТ ЗНАК 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
|
