Примеры задач

Простые типы данных

Составить программу, проверяющую, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей.

Методика решения

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

Например:
1 2 3 4 5 – возрастающая.
3 5 4 2 1 – не возрастающая.

Проверка последовательности на возрастание организуется путём сравнения чисел попарно вводимых с клавиатуры.

Используемые переменные:
m,n – попарно сравниваемые числа,
i – переменная цикла,
flag – логическая переменная для определения возрастания.

Считываем с экрана первое число m . Затем в цикле от 1 до 9 считываем каждое последующее число ( n ), сравниваем его с предыдущим ( m ), после чего переменной m присваиваем значение считанного числа. Если какое-то число последовательности оказалось меньше предыдущего или равным ему, то последовательность не возрастающая. В этом случае логической переменной flag присваиваем значение true.

Выводим полученный результат на экран. Если flag имеет значение true , то выводим, что последовательность не возрастающая, в противном случае – возрастающая.

Листинг программы

Program ex2;

Uses crt;

Var i:integer; flag:boolean; m,n:real;

BEGIN CLRSCR; {основная программа}

WriteLn('Введите 10 чисел.');

n:=-10000;

for i:=1 to 5 do

Begin

ReadLn(m);

if m<=n then flag:=true;

ReadLn(n);

if n<=m then flag:=true;

End;

if flag then WriteLn('Массив не возрастающий.')

else

WriteLn('Массив возрастающий.');

READKEY;

END.

Запустить программу

Назад