Определить, является ли последовательность из N произвольных чисел строго возрастающей

@Gulnara · Регистрация: 29.04.2014

Author24 — интернет-сервис помощи студентам

Добрый день!
Столкнулась с проблемой, с которой самостоятельно не могу разобраться. Буду очень сильно признательна за подсказку.
Задание, по сути, несложное. Нужно, используя операторы цикла (каждый из трех), определить, является ли последовательность из N произвольных чисел строго возрастающей. С оператором FOR вообще никаких вопросов - там всё понятно, а вот WHILE и REPEAT мне уже весь мозг вывихнули.
Суть в том, что у меня не получается построить программу таким образом, чтобы она "считывала" последовательность чисел, введенных через пробел. Последовательность нужно ограничивать, так как данные операторы не могут осуществлять циклы строго определенное количество раз. Пробовала ограничивать символом (n или i) - программа просто выходит через break, и ничего не происходит. Если ограничивать нулем, то последовательность никогда не будет возрастающей, потому что ноль тоже участвует в расчетах.
Поэтому попробовала реализовать таким образом, чтобы каждый новый член последовательности нужно было вбивать последовательно.

Pascal

Program gh_02;
Var new, old: Real;
Begin
Writeln ('Введите число');
Readln (old);
Writeln ('Введите число');
Readln (new);
Repeat
If new>old then
Writeln ('Последовательность строго возрастает');
old:=new;
Writeln ('Введите число');
Readln (new);
Until new<old;
Writeln ('Возрастание последовательности прекращено');
Readln;
End.

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

@Gulnara · 07.11.2014, 14:47 **[ТС]**

Буду признательна за Ваши варианты.

Добавлено через 7 минут
Renzer, думаю, логично было бы поставить символ, например, "/".
Ещё допустимый вариант - заранее запросить количество чисел в последовательности. Но в этом случае получается, что не будет "чистых" операторов while и repeat, придется через for всё делать, а потом ещё и с for отдельно.

@Renzer · 07.11.2014, 14:52

То есть необходимо чтобы в коде были только циклы с while и только циклы с repat?

@Gulnara · 07.11.2014, 14:54 **[ТС]**

Renzer, я думаю, что это было бы предпочтительнее, но если без for не обойтись (я не представляю, как по-другому поставить счетчики количества членов последовательности, не прибегая к массивам), то, думаю, можно и его использовать.

@Renzer · 07.11.2014, 14:57

Если ваша заадача подождет до вечера,то вечерком как появится свободная минутка напишу оба кода и выложу

@Gulnara · 07.11.2014, 14:58 **[ТС]**

Renzer, буду крайне признательна!

@Renzer · 07.11.2014, 22:02

так, ну через repeat у меня вышло тоже самое что и у вас, ну почти
использовал те же переменные для простоты

Pascal

Program gh_02;
Var new, old: Real;
Begin
Writeln ('Введите число');
Readln (old);
Writeln ('Введите число');
Readln (new);
Repeat
If new>old then
Writeln ('Последовательность строго возрастает');
old:=new;
Writeln ('Введите число');
Readln (new);
Until new<=old;
Writeln ('Возрастание последовательности прекращено');
Readln;
End.

@Gulnara · 08.11.2014, 07:49 **[ТС]**

Renzer, вот и у меня не получается для repeat задать последовательность через пробел. Циклы прекращаются только когда последовательность перестает возрастать. Думаю, это тоже неправильно.

@bormant · 09.11.2014, 10:24

Gulnara,
всё необходимое для решения есть тут: https://www.cyberforum.ru/post6816008.html

@Gulnara · 10.11.2014, 06:04 **[ТС]**

bormant, спасибо большое за подсказку! Я не подумала for вперед вынести... А так получается логично.

@Gulnara 18 / 0 / 0 Регистрация: 29.04.2014 Сообщений: 12
	07.11.2014, 14:47 [ТС]	21
	Буду признательна за Ваши варианты. Добавлено через 7 минут Renzer, думаю, логично было бы поставить символ, например, "/". Ещё допустимый вариант - заранее запросить количество чисел в последовательности. Но в этом случае получается, что не будет "чистых" операторов while и repeat, придется через for всё делать, а потом ещё и с for отдельно. 0

@Gulnara 18 / 0 / 0 Регистрация: 29.04.2014 Сообщений: 12
	07.11.2014, 14:54 [ТС]	23
	Renzer, я думаю, что это было бы предпочтительнее, но если без for не обойтись (я не представляю, как по-другому поставить счетчики количества членов последовательности, не прибегая к массивам), то, думаю, можно и его использовать. 0

@Gulnara 18 / 0 / 0 Регистрация: 29.04.2014 Сообщений: 12
	07.11.2014, 14:58 [ТС]	25
	Renzer, буду крайне признательна! 0

@Gulnara 18 / 0 / 0 Регистрация: 29.04.2014 Сообщений: 12
	08.11.2014, 07:49 [ТС]	27
	Renzer, вот и у меня не получается для repeat задать последовательность через пробел. Циклы прекращаются только когда последовательность перестает возрастать. Думаю, это тоже неправильно. 0

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	09.11.2014, 10:24	28
	Gulnara, всё необходимое для решения есть тут: https://www.cyberforum.ru/post6816008.html 0

@Renzer 0 / 0 / 0 Регистрация: 06.11.2014 Сообщений: 10
	07.11.2014, 14:52	22
	То есть необходимо чтобы в коде были только циклы с while и только циклы с repat? 0

@Renzer 0 / 0 / 0 Регистрация: 06.11.2014 Сообщений: 10
	07.11.2014, 14:57	24
	Если ваша заадача подождет до вечера,то вечерком как появится свободная минутка напишу оба кода и выложу 0

@Gulnara 18 / 0 / 0 Регистрация: 29.04.2014 Сообщений: 12
	10.11.2014, 06:04 [ТС]	29
	bormant, спасибо большое за подсказку! Я не подумала for вперед вынести... А так получается логично. 0