На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS

Дорогие друзья! Поздравляем вас с Новым 2025 годом!

Всем удачи, успеха и благополучия!

msm.ru
! Правила раздела
1. Не создавайте несколько одинаковых тем, ибо модератор может расценить их, как спам и удалить все.
2. Для решения задач по GPSS есть отдельная тема. Все задачи по GPSS опубликовывать в этой теме! Перед опубликовыванием вашей задачи просмотрите всю тему, возможно вы сразу найдете решение.
3. Давайте вашим темам ОСМЫСЛЕННЫЕ названия, а также указывайте язык программирования. Пример: [Pascal]:Работа с файлами и записями.
4. Использования тега CODE обязательно при публикации текста программы.

Темы, оформленные с явным игнорированием правил и отсутствием смысла, будут закрыты/удалены!
Вам помогли? Напишите об этом здесь (в портфолио фрилансера)

Фрилансерам:
5. Демпинг цен запрещен (даже если Вы готовы работать бесплатно). Цены обсуждаются в приватном общении. Если вы готовы рещить задачу бесплатно, просто решите ее быстрее, чем возникнет предложение сделать это за деньги.
6. Пользователям, входящим в группу Newbie, запрещается предлагать свои услуги (завуалированно в т.ч.)
7. В посте с предложением выполнить работу, обязательно указывать ссылку на свое портфолио в Отзывы, Благодарности, Портфолио Это правило работает и в том случае, если вы выполняете работу бесплатно.
8. Реклама (даже завуалированная) своих фриланских сайтов запрещена

Нарушение данных пунктов влечет до RO или БАНА (при неоднократом)
Модераторы: ttiger, mikefreelance, Rust
  
    > Люди добрые, помогите написать код
      Написать функцию булевского(целого) типа, определяющую упорядоченность массива целых чисел. Функция должна определить: массив упорядочен по возрастанию, или убыванию. Имя массива должно быть параметром функции.
        неужели так трудно выручить???
          :lool:
            слушай дружище, просто посмотри я на правельном пути?
            function up(a:array of integer; n:integer):boolean;
            var i:integer;
            b1,b2:boolean;
            begin b1:=true;
            b2:=true;
            for i:=0 to n-2 do
            begin if a[ i] < a[ i+1] then b1:=false;
            if a[ i] > a[ i+1] then b2:=false;
            up:=b1 or b2
            end;
              Anando
              я же тебе говорю, если передавать отфонарный массив, то фиг поймёшь как он отсортирован. потому что он не сортирован вовсе.

              задача подразумевает, что функции передаётся отсортироанный массив. и поэтому сводится к сравнению первого и последнего элементов. если a0>an, то массив отсортирован в порядке убывания, иначе - в порядке возрастания.

              Добавлено
              Anando
              скоренько записывай решение ) а то тут пошла жосткая конкурентная борьба с использованием админресурса ))
                Demon_id, твое решение никто не резал :)
                Сообщение отредактировано: Riply -
                  Готов выполнить за денежное вознаграждение.

                  Моё объявление и отзывы
                  0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                  0 пользователей:


                  Рейтинг@Mail.ru
                  [ Script execution time: 0,0319 ]   [ 15 queries used ]   [ Generated: 15.01.25, 06:42 GMT ]