В ПОСЛЕДОВАТЕЛЬНОСТИ ЕСТЬ РАВНЫЕ

СОСЕДНИЕ ЧЛЕНЫ

ВВЕДИТЕ X = 4

ВВЕДИТЕ X = 2

ВВЕДИТЕ X = 88

ВВЕДИТЕ X = О

В ПОСЛЕДОВАТЕЛЬНОСТИ НЕТ РАВНЫХ

СОСЕДНИХ ЧЛЕНОВ

Рис. 3.4. Результат работы PRG3_6

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

PROGRAM PRG3_7;

VAR OLD, NEW: REAL; К: INTEGER;

BEGIN

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

READLN (OLD);

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

READLN (NEW);

K:= 0;

REPEAT

IF NEW*OLD<0 THEN К:= K+1;

OLD:= NEW;

WRITE('BBEAMTE X =');

READLN (NEW)

UNTIL NEW = 0;

IF K>0 THEN

WRITELN('ПОСЛЕДOBATEЛЬНОСТЬ МЕНЯЕТ ЗНАК ', К, 'РАЗ')

ELSE

WRITELN('ПOCЛEДOBATEЛЬНОСТЬ НЕ МЕНЯЕТ ЗНАКА')

END.

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

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

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

- в цикле сравниваем два этих числа, и если их знаки не рав­ны, то значение счетчика увеличивается на единицу;

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

- в зависимости от счетчика К выводим результат.

Переменные:

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

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

К - счетчик.

ВВЕДИТЕ X = -4

ВВЕДИТЕ X = 5

ВВЕДИТЕ X = -4

ВВЕДИТЕ X = 4

ВВЕДИТЕ X = -4

ВВЕДИТЕ X = 4

ВВЕДИТЕ X = 0

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

 

ВВЕДИТЕ X = 4

ВВЕДИТЕ X = 2

ВВЕДИТЕ X = 88

ВВЕДИТЕ X = 0