ДВА НАИМЕНЬШИХ ЧИСЛА РАВНЫ 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
|
