Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.12.2008, 20:10   #1
Кирилл17
Пользователь
 
Регистрация: 03.12.2008
Сообщений: 31
По умолчанию циклы.

дано 100 вещественных чисел. определить образуют ли они возрастающую последовательность.

не знаю как решить задачу. знаю что нужно использовать флаг вот только где не знаю
Кирилл17 вне форума Ответить с цитированием
Старый 21.12.2008, 21:12   #2
Levsha100
Заблокирован
Старожил
 
Регистрация: 20.07.2008
Сообщений: 4,032
По умолчанию

Надо сравнивать два соседних элемента и если тот что ближе к началу больше следующего поставить флаг и выйти из цикла.
P.S На Паскале надо?

Последний раз редактировалось Levsha100; 21.12.2008 в 21:15.
Levsha100 вне форума Ответить с цитированием
Старый 21.12.2008, 21:50   #3
Кирилл17
Пользователь
 
Регистрация: 03.12.2008
Сообщений: 31
По умолчанию

надо. хотя бы фрагмент где флаг употребить и как
Кирилл17 вне форума Ответить с цитированием
Старый 21.12.2008, 21:58   #4
pu4koff
Старожил
 
Аватар для pu4koff
 
Регистрация: 22.05.2007
Сообщений: 9,065
По умолчанию

Код:
b := true;
for i := 2 to N do
begin
  if (a[i-1] > a[i]) then
  begin
    b := false;
    break;
  end;
end;

if (b) then // возрастающая последовательность
pu4koff вне форума Ответить с цитированием
Старый 21.12.2008, 22:04   #5
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию

>=, а не просто >
Sasha_Smirnov вне форума Ответить с цитированием
Старый 21.12.2008, 22:20   #6
pu4koff
Старожил
 
Аватар для pu4koff
 
Регистрация: 22.05.2007
Сообщений: 9,065
По умолчанию

Цитата:
Сообщение от Sasha_Smirnov Посмотреть сообщение
>=, а не просто >
не написано, что последовательно должна быть строго возрастающая, поэтому я привел код для неубывающей последовательности, т.е. соседние элементы могут быть одинаковыми
pu4koff вне форума Ответить с цитированием
Старый 24.12.2008, 03:23   #7
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию Возможность — не факт

А та беда, что и все м. б. одинаковы?!

Цитата:
Сообщение от Кирилл17 Посмотреть сообщение
дано 100 вещественных чисел. определить образуют ли они возрастающую последовательность
Ваш же ответ таков: «Не отрицаю. Возможно, и образуют».

По сути, в коде ещё одно условие надо проверить: a[1] < a[N].

Последний раз редактировалось Sasha_Smirnov; 24.12.2008 в 03:29.
Sasha_Smirnov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
циклы Кирилл17 Помощь студентам 4 30.10.2009 20:59
Задача на циклы AlexLAN Паскаль, Turbo Pascal, PascalABC.NET 4 16.11.2008 10:57
Циклы! vlad1991 Паскаль, Turbo Pascal, PascalABC.NET 15 28.10.2008 22:07
Циклы (Pascal) Дима82 Помощь студентам 4 07.06.2008 17:07
Итерационные циклы Андрюха из ПХТТ Паскаль, Turbo Pascal, PascalABC.NET 3 14.02.2008 15:49