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

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

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





Рис. 3.5. Результат работы PRG3_7

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

Основная сложность в этой задаче - запомнить, какой знак был у числа перед появлением серии нулей. Ввод нуля не обязательно озна­чает, что последовательность меняет знак. Например, при вводе 1 0 0 -2 последовательность меняет знак, а при 1 0 0 2 - нет.

Для решения нужно ввести вспомогательный флаг F, с помо­щью которого можно запомнить знак числа перед серией нулей.

PROGRAM PRG3_8;

VAR OLD, NEW, F: REAL;

K, I, N: INTEGER;

BEGIN

REPEAT

WRITE('BBEДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ');

READLN (N);

UNTIL N>0;

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

READLN (OLD);

F:= OLD;

K= 0;

FOR I:= 2 TO N DO

BEGIN

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

READLN (NEW);

IF (NEW<>0) AND (F = 0) THEN F:= NEW;

IF NEW*F<0 THEN

BEGIN

F:= NEW;

К:= K+1

END;

OLD:= NEW;

END;

IF K>0 THEN

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

ELSE

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

END.

 

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

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

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

- задаем значение знака числа OLD как F;

- в цикле вводим число NEW;

- сравниваем знаки NEW и F; если они не равны, то значение счетчика увеличивается на единицу и знак F изменяется на противоположный;

- если считывается число, равное нулю, то знак F не изменя­ется;

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

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

Переменные:

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

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

К - счетчик;

F - вспомогательная переменная;

I - переменная цикла;

N - длина последовательности.

ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = 7

ВВЕДИТЕ X = -4

ВВЕДИТЕ X = 0

ВВЕДИТЕ X = 0

ВВЕДИТЕ X = -4

ВВЕДИТЕ X = -4

ВВЕДИТЕ X = 4

ВВЕДИТЕ X = 0







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




Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...


Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...


Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...


Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

Определение трудоемкости работ и затрат машинного времени На основании ведомости объемов работ по объекту и норм времени ГЭСН составляется ведомость подсчёта трудоёмкости, затрат машинного времени, потребности в конструкциях, изделиях и материалах (табл...

Гидравлический расчёт трубопроводов Пример 3.4. Вентиляционная труба d=0,1м (100 мм) имеет длину l=100 м. Определить давление, которое должен развивать вентилятор, если расход воздуха, подаваемый по трубе, . Давление на выходе . Местных сопротивлений по пути не имеется. Температура...

Огоньки» в основной период В основной период смены могут проводиться три вида «огоньков»: «огонек-анализ», тематический «огонек» и «конфликтный» огонек...

Прием и регистрация больных Пути госпитализации больных в стационар могут быть различны. В цен­тральное приемное отделение больные могут быть доставлены: 1) машиной скорой медицинской помощи в случае возникновения остро­го или обострения хронического заболевания...

ПУНКЦИЯ И КАТЕТЕРИЗАЦИЯ ПОДКЛЮЧИЧНОЙ ВЕНЫ   Пункцию и катетеризацию подключичной вены обычно производит хирург или анестезиолог, иногда — специально обученный терапевт...

Ситуация 26. ПРОВЕРЕНО МИНЗДРАВОМ   Станислав Свердлов закончил российско-американский факультет менеджмента Томского государственного университета...

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