Вычисление длины последовательности элементов

Вычисление максимального элемента последовательности

Пользователь вводит 100 чисел. Найти максимальный элемент последовательности.

Первое, что может прийти в голову, – описать 100 переменных. Это неправильно.

Нам не нужно запоминать все 100 чисел. Достаточно помнить только наибольшее среди них. Последовательность действий будет примерно такой: считываем новое число, проверяем его на максимум и далее переходим к следующему числу. Следовательно, достаточно завести две переменные: в одной из них будем хранить текущее значение, в другой – максимальное. Для реализации воспользуемся циклом for.

Пример:

var

x: integer; {текущее число, которое вводит пользователь}

Max: integer; {максимальное число в последовательности}

i: integer; {счетчик для цикла}

begin

for i:=1 to 100 do

begin

writeln(‘Введите очередное число:’);

readln(x); {считываем очередное число последовательности}

if (i=1) or (x>Max) then Max:=x;

{если это первое число, или если оно больше, чем текущий

максимум, то это – максимальное число}

end;

writeln(‘Максимальное число – ’, Max); {печатаем результат}

end.

Как видно из кода, все 100 чисел хранятся поочередно в одной переменной x. Текущее число будет максимальным, если оно больше, чем текущий максимум или если оно вообще первое (единственное) в последовательности.

Основное отличие данной программы от приведенных ранее – здесь ввод данных организуется внутри цикла.

Пользователь вводит последовательность чисел, заканчивающуюся нулем. Найти максимальную длину последовательности одинаковых чисел (например, в последовательности 1 2 1 1 7 7 7 9 – три семерки).

Как и в предыдущем примере, ввод здесь организуется внутри цикла. Только на этот раз нам заранее неизвестно, сколько элементов будет содержать последовательность – нам лишь известно, что она заканчивается цифрой 0. Поэтому воспользуемся циклом while с условием «пока очередной элемент не равен 0».

Чтобы определить максимальную длину последовательности, нам потребуется знать не только текущее число, вводимое пользователем, но и предыдущее, а также текущую максимальную длину последовательности и длину текущей последовательности.

Пример:

var

x: integer; {текущее число, которое вводит пользователь}

xpred: integer; {предыдущее число }

MaxCount: integer; {максимальная длина последовательности}

Count: integer; {текущая длина последовательности}

begin

writeln(‘Введите первое число:’);

readln(x); {считываем первое число }

Count:=1 {инициализируем текущую длину – пока 1 элемент};

MaxCount:=1; { инициализируем максимальную длину – пока 1}

while x<>0 do {пока не ввели 0}

begin

xpred:=x; {последнее число становится предпоследним}

writeln(‘Введите очередное число:’);

readln(x); {считываем очередное число }

if x=xpred then {если последнее число равно предпоследнему}

begin

inc(count); {увеличиваем на единицу длину

текущей последовательности}

if Count>MaxCount then MaxCount:=Count;

{сравниваем длину текущей последовательности с

максимальной длиной}

end

else Count:=1; {если последнее число не совпадает с

предпоследним, то это 1-ый элемент в новой

последовательности}

end;

writeln(‘Максимальное число – ’, Max); {печатаем результат}

end.

Представленный выше исходный текст позволит найти нам решение поставленной задачи. Обратите внимание: здесь нам не потребовался счетчик.