READLN (N);. Алгоритмы для обработки последовательностей обычно относятся к одному из двух типов;
END; Алгоритмы для обработки последовательностей обычно относятся к одному из двух типов; - поиск; - проверка условий. Для последовательностей характерно, что в каждый момент времени нам доступен только один элемент последовательности. Поэтому все алгоритмы строятся с учетом однократного последовательного просмотра. Рассмотрим несколько программ. В каждой из них одновременно рассматривается только очередной член последовательности, без учета всех остальных. Алгоритмы для решения таких задач называются алгоритмами с линейным поиском. Задача 3.1 Вводится последовательность из N целых чисел. Найти сумму всех отрицательных чисел. PROGRAM PRG3_1; VAR N, X, SUM, I: INTEGER; BEGIN REPEAT WRITE('BBEДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = '); READLN (N); UNTIL N>0; SUM:= 0; FOR I:= 1 TO N DO BEGIN WRITE('BBEДИTE X ='); READLN (X); IF X<0 THEN SUM:= SUM +X END; IF SUM = 0 THEN WRITELN('OTPИЦАТЕЛЬНЫХ ЧИСЕЛ НЕТ') ELSE WRITELN('CУMMA ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ SUM = ', SUM); END. Для решения задачи: - формируем тело программы и описываем переменные; - вводим длину последовательности N и устанавливаем начальное значение SUM; - последовательно считываем числа, и если число отрицательное, то прибавляем его к сумме SUM; - в зависимости от значения SUM выводим результат. Переменные: N - количество чисел; I - переменная цикла; X - очередное число; SUM - сумма отрицательных чисел.
ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = 5 ВВЕДИТЕ Х = 5 ВВЕДИТЕ X = – 1 ВВЕДИТЕ X = – 1 ВВЕДИТЕ Х = 25 ВВЕДИТЕ X = – 48 СУММА ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ SUM = – 50 ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = 3 ВВЕДИТЕ Х = 6 ВВЕДИТЕ Х = 7 ВВЕДИТЕ X = 8
|
