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

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


Составить программу, проверяющую, является ли последовательность из 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.

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






Назад

Закрыть