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

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

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





Рис. 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. Нарушение авторских прав; Мы поможем в написании вашей работы!




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


Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...


ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...


Теория усилителей. Схема Основная масса современных аналоговых и аналого-цифровых электронных устройств выполняется на специализированных микросхемах...

Условия, необходимые для появления жизни История жизни и история Земли неотделимы друг от друга, так как именно в процессах развития нашей планеты как космического тела закладывались определенные физические и химические условия, необходимые для появления и развития жизни...

Метод архитекторов Этот метод является наиболее часто используемым и может применяться в трех модификациях: способ с двумя точками схода, способ с одной точкой схода, способ вертикальной плоскости и опущенного плана...

Примеры задач для самостоятельного решения. 1.Спрос и предложение на обеды в студенческой столовой описываются уравнениями: QD = 2400 – 100P; QS = 1000 + 250P   1.Спрос и предложение на обеды в студенческой столовой описываются уравнениями: QD = 2400 – 100P; QS = 1000 + 250P...

Значення творчості Г.Сковороди для розвитку української культури Важливий внесок в історію всієї духовної культури українського народу та її барокової літературно-філософської традиції зробив, зокрема, Григорій Савич Сковорода (1722—1794 pp...

Постинъекционные осложнения, оказать необходимую помощь пациенту I.ОСЛОЖНЕНИЕ: Инфильтрат (уплотнение). II.ПРИЗНАКИ ОСЛОЖНЕНИЯ: Уплотнение...

Приготовление дезинфицирующего рабочего раствора хлорамина Задача: рассчитать необходимое количество порошка хлорамина для приготовления 5-ти литров 3% раствора...

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