С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
Chel
0 / 0 / 0
Регистрация: 20.05.2008
Сообщений: 20
1

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

16.03.2012, 03:01. Просмотров 1468. Ответов 4
Метки нет (Все метки)

Условие в коментариях кода. Суть я понимаю, набросок кода сделал, но вот как сделать, чтобы определялось все нормально, а не так криво , как у меня...
Помогите, пожалуйста, подкорректировать код.
заранее спасибо
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
28
29
30
31
32
33
34
35
36
37
38
39
{
Дана СЛУЧАЙНАЯ последовательность из 10 чисел
    - числа вводить самому
 
Проверить через WHILE, убывает или возрастает последовательность!
    - если прерывается - остановить и написать до какого
              момента она была возрастающая или убывающая
 
Например:  2 3 4 5 6 4 6 3 4 4 - Возрастающая с 1 по 5 элемент. Эдементы: 2 3 4 5 6
                6 5 4 7 6 5 2 7 8 3 - Убывающая с 1 по 3 элемент. Элементы 6 5 4
ИЛИ ТАК
Например 2: 2 3 4 5 6 4 3 2 4 8 - Возрастающая с 1 по 5 элемент. Эдементы: 2 3 4 5 6
                                               Убывающая с 5 по 8 элемент. Элементы 6 4 3 2
                                               Возврастает с 8 по 10 элемент. Элементы 2 4 8
}
program posledovatelnost;
uses crt;
var a:array[1..10] of integer;
    n,i,j:integer;
begin
     clrscr;
     writeln('введите 10 элементов массива');
     for i:=1 to 10 do
     begin
          readln( a[i] );
     end;
i:=1;
 
     while (i<10) and (a[i]<a[succ(i)])  do inc(i);
     begin
          writeln(' vozvrastaet do ',i, ' elementa');
     end;
 
     while (i<10) and (a[i]>a[succ(i)]) do inc(i);
     begin
          writeln(' ubyvaet do ',i, ' elementa');
     end;
readln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.03.2012, 03:01
Ответы с готовыми решениями:

Проверить убывает или возрастает последовательность (не через массив)
Всем привет. Помогите, пожалуйста, изменить программу. Суть такая: Дана...

Дано последовательность натуральных чисел, которая заканчивается нулем. Проверить, есть ли последовательность растущей.
3. Дано последовательность натуральных чисел, которая заканчивается нулем....

Вводится последовательность ненулевых чисел, 0 - её конец
Вводится последовательность ненулевых чисел, 0 - её конец. Определить, содержит...

Задана последовательность чисел, нужно отрицательные числа переписать в начало, а положительные в конец, 0 - в середине
помогите пжл. завтра экзамен, не успеваю 1. Задана последовательность чисел,...

Дано натуральное число N и последовательность из N элементов. Требуется вывести эту последовательность в обратном порядке
Дано натуральное число N и последовательность из N элементов. Требуется вывести...

4
valeriikozlov
Эксперт С++
4687 / 2513 / 751
Регистрация: 18.08.2009
Сообщений: 4,550
18.03.2012, 22:05 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
program posledovatelnost;
uses crt;
var a:array[1..10] of integer;
    u, v,i:integer;
begin
     clrscr;
     writeln('введите 10 элементов массива');
     for i:=1 to 10 do
     begin
          readln( a[i] );
     end;
     u:=10; v:=10;
     for i:=2 to 10 do
     begin
      if a[i]>=a[i-1] then u:=i-1;
      if a[i]<=a[i-1] then v:=i-1;
      if (u<10) and (v<10) then break;
     end;
     if u=10 then writeln(' ubyvaet do ',u, ' elementa')
     else
     if v=10 then writeln(' vozvrastaet do ',v, ' elementa')
     else
     if u>v then writeln(' ubyvaet do ',u, ' elementa')
     else writeln(' vozvrastaet do ',v, ' elementa');
     readln;
end.
0
Chel
0 / 0 / 0
Регистрация: 20.05.2008
Сообщений: 20
18.03.2012, 22:12  [ТС] 3
Цитата Сообщение от valeriikozlov Посмотреть сообщение
проверяйте:
ваш код работает, НО мне надо реализовать через WHILE
0
valeriikozlov
Эксперт С++
4687 / 2513 / 751
Регистрация: 18.08.2009
Сообщений: 4,550
19.03.2012, 06:40 4
Цитата Сообщение от Chel Посмотреть сообщение
НО мне надо реализовать через WHILE
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
program posledovatelnost;
uses crt;
var a:array[1..10] of integer;
    u, v,i:integer;
begin
     clrscr;
     writeln('введите 10 элементов массива');
     for i:=1 to 10 do
     begin
          readln( a[i] );
     end;
     u:=10; v:=10; i:=2;
     while i<11 do
     begin
      if a[i]>=a[i-1] then u:=i-1;
      if a[i]<=a[i-1] then v:=i-1;
      if (u<10) and (v<10) then break;
      inc(i);
     end;
     if u=10 then writeln(' ubyvaet do ',u, ' elementa')
     else
     if v=10 then writeln(' vozvrastaet do ',v, ' elementa')
     else
     if u>v then writeln(' ubyvaet do ',u, ' elementa')
     else writeln(' vozvrastaet do ',v, ' elementa');
     readln;
end.
1
Chel
0 / 0 / 0
Регистрация: 20.05.2008
Сообщений: 20
19.03.2012, 08:17  [ТС] 5
огромное спасибо, выручили!
 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
19.03.2012, 08:17
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.03.2012, 08:17

Задана последовательность N вещественных чисел. Отсортировать последовательность по убыванию методом выбор
И снова прошу помощи написать код. Задана последовательность N вещественных...

Вводиться последовательность из N целых чисел. Является ли последовательность убывающей?
Вводиться последовательность из N целых чисел. Является ли последовательность...

Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести сообщение о
Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru