25 / 2 / 0
Регистрация: 16.03.2018
Сообщений: 203
1

Определить содержит ли последовательность хотя бы одну пару равных соседних элементов

11.11.2019, 13:50. Показов 1927. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Пусть вводится последовательность из целых чисел, оканчивающаяся нулем и состоящая более чем из одного ненулевого элемента. Определите:
• содержит ли последовательность хотя бы одну пару равных соседних элементов;
• сколько раз в последовательности меняется знак при переходе к следующему элементу;
• является ли эта последовательность возрастающей.

 Комментарий модератора 
П.5.16.Правил
Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.

Вот такое условие, можете пожалуйста помочь, переписать код на с++.
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
ъvar
  a,i,apred,z:integer;
  apar,avozr:boolean;
begin
  writeln('ВВедите последовательность 0-окончание ввода:');
  i:=0;apar:=false;avozr:=true;z:=0;
  repeat
    inc(i);
    write(i,' элемент =');
    readln(a);
    if i>1 then begin
      if apred=a then apar:=true;
      if a <>0 then begin
        if apred/abs(apred)<>a/abs(a) then inc(z);
        if apred>=a then avozr:=false;
      end;
    end;
    apred:=a;
  until a=0;
  if i=1 then writeln('В последовательности один нулевой элемент') else begin
    if apar then writeln('Пара одинаковых соседей есть') else writeln('Пары одинаковых соседей нет');
    if z>0 then writeln(z,' Раз сменился знак') else writeln('Знак не менялся');
    if avozr then writeln('Последовательность возрастающая') else writeln('Последовательность не возрастающая');
  end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2019, 13:50
Ответы с готовыми решениями:

Проверить, содержит ли последовательность хотя бы одну пару соседних дружественных чисел
Ребята!Пожалуйста помогите. Уже несколько 2 дня сижу доделать не могу задание. Буду благодарен за...

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

Определить, содержит ли последовательность хотя бы одну пару равных соседних элементов
дана последовательность из вещественных чисел которые вводятся по одному. за последним числом...

Определите, содержит ли последовательность хотя бы одну пару равных соседних элементов
Пусть вводится последовательность из целых чисел, оканчивающаяся нулем и состоящая более чем из...

3
25 / 2 / 0
Регистрация: 16.03.2018
Сообщений: 203
14.11.2019, 16:55  [ТС] 2
помогите кто-нибудь переписать код
0
1 / 1 / 0
Регистрация: 12.11.2019
Сообщений: 4
14.11.2019, 17:43 3
C++
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
#include <iostream>
 
 
#include <vector> //подключаем библиотеку с динамическим массивом 
    using namespace std;
    int main() {
        setlocale(LC_ALL, "Russian");
 
        int pari = 0; //Для хранения кол-во равных соседей
        int a;
        int size; //Определяем длину последовательности
        cout << "Введите длину последовательности\n";
        cin >> size;
        vector<int> vect; //динамический массив где будем хранить данные 
        for (int i = 0; i < size ; i++) {
 
            cin >> a;
            vect.push_back(a); //добавляем числа в последовательность
            
                
            
        }
                vect.push_back(0); //добавляем ноль
        for (int i = 0; i < size-1 ;i++) {
            if (i < size - 1 && vect[i] == vect[i + 1]) { //находим равные
                pari++;
            }
        }
        cout << "\n" << pari << " Равных соседей"; //выводим число равных соседей
    }
1
7427 / 5021 / 2891
Регистрация: 18.12.2017
Сообщений: 15,694
14.11.2019, 20:47 4
задача 1:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#include <iostream>
using namespace std;
 
int main()
{    
    int a, b, k=0;     
    
    cout << "Enter integer elements (0 - exit):\n";
    cin >> a;
    while (1)
    {  
        b=a;
        cin >> a;
        if (a==0) break;
        if (a==b) k=1;       
    }
 
    if (k) cout << "YES\n";
    else cout << "NO\n";
    
system("pause");
return 0;
}
задачи 2 и 3 оформите отдельными темами
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.11.2019, 20:47
Помогаю со студенческими работами здесь

Ввести n чисел. Содержит ли последовательность хотя бы одну пару равных соседних элементов
Здравствуйте, нужна помощь с решением задания в C#(консоли). Ввести n чисел. Содержит ли...

Ввести n чисел. Содержит ли последовательность хотя бы одну пару равных соседних элементов
Ввести n чисел. Содержит ли последовательность хотя бы одну пару равных соседних элементов

Определить, содержит ли последовательность хотя бы 2 равных соседних числа
Уважаемые, форумчаны) помогите пожалуйста бедной девушке решить задачку... Вводится...

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


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

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

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