В ПОСЛЕДОВАТЕЛЬНОСТИ ЕСТЬ РАВНЫЕСОСЕДНИЕ ЧЛЕНЫ ВВЕДИТЕ 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
|
