Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
white0prof-
0 / 1 / 0
Регистрация: 25.06.2019
Сообщений: 17
1

Изменить программу для выявления знакочередующейся последовательности

09.07.2019, 13:46. Просмотров 800. Ответов 1
Метки нет (Все метки)

Вводится целая ненулевая последовательность чисел (признак окончания ввода - ввод 0, кол-во чисел не меньше 2, цикл while). Программа определяет: (1) Является ли последовательность возрастающей, (2) Есть ли в ней хотя бы одна пара соседних чисел, (3) Является ли последовательность знакочередующейся.

Измените частично код, пж. Не знаю как выявить знакоочерёдность, оставляя другие действия.
----------------------------------------------------------------------
Пример: 3, -2, 4, -5, 0 - ''Yes''; 5, -3, -3, 2, 1 - ''No''

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
  x, i, y, m: integer;
  n, z: boolean;
 
begin
  i := 0;
  y := 0;
  x := 1;
  write('Введите не менее двух целых ненулевых чисел, over = 0: ');
  while (x <> 0) or (i <= 2) do 
  begin
    read(x);
    if (x * y >= 0) then z := True;
    if (x = y) then n := True;
    if (x > y) and (x <> 0) then
    begin
      m := m + 1;
      y := x;
    end;
    if (x <> 0) or (i <= 2) then i := i + 1;
  end;
  if (m = i) then writeln('(1)Последовательность чисел возрастающая') else writeln('(1)Последовательность чисел не возрастающая');
  if (n = True) then writeln('(2)В последовательности есть как минимум одна пара соседних чисел') else writeln('(2)В последовательности нет пары соседних чисел');
  if (z = True) then writeln('(3)Последовательность знакочередующаяся') else writeln('(3)Последовательность не знакочередующаяся');
end.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.07.2019, 13:46
Ответы с готовыми решениями:

Получение знакочередующейся последовательности
Помогите с задачей: Преобразовать массив Z(N), удалив из него элементы таким образом, чтобы...

Написать программу для считывания заданного текста и выявления предложений с заданным кол-вом слов
Задание звучит: &quot;Написать программу, которая считывает текст из файла и выводит на экран только...

Изменить программу, чтобы в ней использовались рекуррентные последовательности
Как нужно изменить эту программу, чтобы в ней использовались рекуррентные последовательности? ...

Нужно обойтись формулами для выявления наибольшего значения для каждой фамилии
Всем добрый день! Есть следующая задача, которая на первый взгяд казалась простой: есть список с...

Для знакочередующейся функции запомнить в массиве A значения аргумента n, при которых Z>0
Для знакочередующейся функции Z=sin(nx+фи) запомнить в массиве A значения аргумента n, при которых...

1
Sun Serega
513 / 388 / 207
Регистрация: 07.04.2017
Сообщений: 1,742
09.07.2019, 15:31 2
Лучший ответ Сообщение было отмечено white0prof- как решение

Решение

if Sign(a) <> Sign(b) then // знаки a и b разные
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.07.2019, 15:31

Тесты для выявления неисправностей
Народ, подскажите какие тестовые программы можно заюзать. У меня ситуация швах! В апреле прошлого...

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

Составить схему алгоритма и программу выявления в массиве A[K] тех элементов, значения которых больше 32
Составить схему алгоритма и программу выявления в массиве A тех элементов, значения которых больше...


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

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

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