ДВА НАИМЕНЬШИХ ЧИСЛА РАВНЫ 2 И 3

 

ВВЕДИТЕ X = 4

ВВЕДИТЕ Х = 2

ВВЕДИТЕ Х = 2

ВВЕДИТЕ х = 0

ДВА НАИМЕНЬШИХ ЧИСЛА РАВНЫ 2 И 2

 

Рис. 3.3. Результат работа PRG3_5

Другой вид задач по обработке последовательностей - контек­стный поиск - требует одновременно рассматривать пару A _i и А _i+1 или более соседних членов. В этом случае мы храним значение A _i как OLD, а А _i+1 – как NEW. Обработав эти два члена, мы при­сваиваем OLD значение А _i+1 (OLD:= NEW) и считываем А _i+2 как NEW.

Задача 3.6 Вводится последовательность чисел, 0 - конец последовательности. Определить, содержит ли по­следовательность хотя бы два равных соседних члена (а _i, = а _{i + 1}).

PROGRAM PRG3_6;

VAR OLD, NEW: REAL;

F: BOOLEAN;

BEGIN

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

READLN (OLD);

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

READLN (NEW);

F:= FALSE;

REPEAT

IF NEW = OLD THEN F:= TRUE;

OLD:= NEW;

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

READLN (NEW)

UNTIL NEW = 0;

IF F THEN

WRITELN('B ПОСЛЕДОВАТЕЛЬНОСТИ ЕСТЬ РАВНЫЕ');

WRITELN('COCEДНИE ЧЛЕНЫ')

ELSE

WRITELN('B ПОСЛЕДОВАТЕЛЬНОСТИ НЕТ РАВНЫХ');

WRITELN('COCEДHИX ЧЛЕНОВ')

END.

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

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

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

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

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

NEW;

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

Переменные:

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

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

F - вспомогательный флаг.

 

ВВЕДИТЕ X = 5

ВВЕДИТЕ X = 4

ВВЕДИТЕ X = 4

ВВЕДИТЕ X = 4

ВВЕДИТЕ X = 0