1 / 1 / 0
Регистрация: 21.05.2012
Сообщений: 10
1

Проверить последовательность чисел на возрастание или убывание

21.05.2012, 17:18. Показов 7547. Ответов 4
Метки нет (Все метки)

Нужно написать программу, которая проверит последовательность n чисел, введённой на клавиатуре, на возрастание или убывание и является ли последовательность арифметической.

Желательно простыми конструкциями, без массивов.

Заранее спасибо.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2012, 17:18
Ответы с готовыми решениями:

Переделка с возрастание на убывание
Дана небольшая программа. Ввожу элементы одномерного массива. Выводятся они в порядке возрастания....

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

Возрастание или убывание элементов в массиве через процедуры
Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются...

Возрастание и убывание функции
Дана функция f(x)=xcos\frac{x}{2} найти где она возрастает и убывает на промежутке f'=\cos...

4
Эксперт С++
4725 / 2546 / 757
Регистрация: 18.08.2009
Сообщений: 4,568
21.05.2012, 18:28 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 var
 a: array[1..100] of longint;
 i,n,d:integer; 
 fl1,fl2,fl3:boolean;
 begin
 randomize;
 write('N= '); read(n); 
 writeln('Введите элементы массива:');
 for i:=1 to n do begin
 write('[',i,']= '); read(a[i]);
 end;
 writeln('Полученный массив:');
 write(a[1],' ');
 d:=a[2]-a[1];
 for i:=2 to n do begin
 if d<>a[i]-a[i-1] then fl3:=true;
 if a[i]>=a[i-1] then fl2:=true;
 if a[i]<=a[i-1] then fl1:=true;
 write(a[i],' ');
 end;
 writeln();
 if (fl1=false) and (fl2=true) then write('Последовательность является возрастающей');
 if (fl1=true) and (fl2=false) then write('Последовательность является убывающей');
 if fl3=false then write(' и арифметической прогрессией');
 writeln();
 readln();
 end.
1
1 / 1 / 0
Регистрация: 21.05.2012
Сообщений: 10
22.05.2012, 15:13  [ТС] 3
valeriikozlov, спасибо большое.

А реально ли эту задачу решить без массивов?
0
Эксперт С++
4725 / 2546 / 757
Регистрация: 18.08.2009
Сообщений: 4,568
22.05.2012, 21:08 4
Цитата Сообщение от nonix Посмотреть сообщение
А реально ли эту задачу решить без массивов?
реально.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
 i,n,d,p1,p2:integer; 
 fl1,fl2,fl3:boolean;
 begin
 randomize;
 write('N= '); read(n); 
 writeln('Введите элементы массива:');
 write('[1]= ');read(p1);write('[2]= '); read(p2);
 d:=p2-p1; 
 if p2>=p1 then fl2:=true;
 if p2<=p1 then fl1:=true;
 
 for i:=3 to n do begin
 p1:=p2;
 write('[',i,']= '); read(p2);
 if d<>p2-p1 then fl3:=true;
 if p2>=p1 then fl2:=true;
 if p2<=p1 then fl1:=true;
 end;
 writeln();
 if (fl1=false) and (fl2=true) then write('Последовательность является возрастающей');
 if (fl1=true) and (fl2=false) then write('Последовательность является убывающей');
 if fl3=false then write(' и арифметической прогрессией');
 writeln();
 readln();
 end.
1
1 / 1 / 0
Регистрация: 21.05.2012
Сообщений: 10
23.05.2012, 00:44  [ТС] 5
valeriikozlov, премного благодарен за помощь!
То что надо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2012, 00:44
Помогаю со студенческими работами здесь

Возрастание, убывание и экстремумы
y=\frac{{x}^{3}}{1-{x}^{2}} x\neq\pm 1 y'=\frac{3-{x}^{2}}{-1-{x}^{2}} -1-{x}^{2}\neq 0 x=\pm...

Возрастание и убывание в числе
Дано число, требуется отсортировать сначала по возрастанию а потом по убыванию цифры в нём

Проверить последовательность на возрастание
4. Дана последовательность из n чисел (разместить в ячейки рабочего листа). Проверить...

Исследовать на возрастание/убывание график
Добрый день! у меня есть график, который построен по точкам. По оси x время, по y данные с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru