Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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







Дата добавления: 2015-09-07; просмотров: 84. Нарушение авторских прав

Studopedia.info - Студопедия - 2014-2017 год . (0.006 сек.) русская версия | украинская версия