IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Работа с массивом, цикл на исключение элементов
NightPaladin
сообщение 27.11.2004 16:39
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 67
Пол: Мужской

Репутация: -  0  +


Ещё одна задача. В ней надо постоянно исключать каждый второй элемент т.к они расположены по кругу, то закончив один круг т.е. дойдя до еденицы, новый круг проходит уже для оставшихся элементов, и т.д. до тех пор пока не останется одно - вот его и надо вывести на экран
Собственно условие
Числа от 1 до N расставляем по кругу и вычеркиваем каждое второе число, начиная
с 1. Определить какое число останется последним.
На входе натуральное число N (1<= N <= 1000 000), на выходе последнее число.
Пример Результат

5 3

Сообщение отредактировано: NightPaladin - 27.11.2004 16:40


--------------------
На горе лежит дискета
У неё испорчен boot
Через дырочку в конверте
Её вирусы грызут
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
NightPaladin   Работа с массивом   27.11.2004 16:39
Jahnerus   uses  crt; const  n=5; var  a:array[1.....   27.11.2004 19:28
volvo   Jahnerus Это тебе ни о чем не говорит? Ты прогон...   27.11.2004 19:31
Jahnerus   volvo Да и на 1000000 прогонял работает нормано...   27.11.2004 19:35
volvo   Jahnerus const n=1000000; var a:array...   27.11.2004 19:54
volvo   А вот это - работает для любых значений, которые п...   27.11.2004 20:09
NightPaladin   Всем большой сэнкс volvo и Jahnerus Если не трудно...   27.11.2004 20:23
GoodWind   Скажи одному из модераторов (мне, Volvo, или Oleg_...   28.11.2004 8:25
Altair   Вообще-то я не модератор :) :D :rolleyes:   28.11.2004 9:08
GoodWind   зато ты до-сих пор числишься в модераторах раздел...   28.11.2004 9:14
Altair   Больше 10000 программа Jahnerus не потянет. Массив...   28.11.2004 9:14
NightPaladin   Опять здравствуйте. Вообщето я имел ввиду повысить...   28.11.2004 10:01
Altair   :D :D :D :D   28.11.2004 10:09
Jahnerus   Oleg_Z Оплошность моя в том что писал я её на Del...   28.11.2004 11:52
Altair   Ок :D Но если это не пойжет на FPC, вообзе сниж...   28.11.2004 12:04
Jahnerus   Ценю юмор .... Ну FPC то покруче будет чем TPC та...   28.11.2004 12:12
Флогримм   снизить значит уменьшить, значит -, а Зю сказал, ...   29.11.2004 6:13
GoodWind   а вот и есть... был тут кто-то с рейтингом -1 :l...   29.11.2004 15:07
Jahnerus   GoodWind Я тоже хочу рейтинг -1 :( . Ты же всемо...   29.11.2004 17:46
APAL   Мазохист..... я не садист, но помочь могу... хотя...   29.11.2004 18:08
Jahnerus   Спасибо за понимание ... APAL :lol:   29.11.2004 18:23
GoodWind   APAL, млин я тоже чуть ему не понизил :lol: :lol...   29.11.2004 19:00
Jahnerus   GoodWind Конешно , а почему бы и нет ... :lol: с...   29.11.2004 19:23
Altair   Апалу: плохой пример подаешь - ты же админ - образ...   29.11.2004 22:16
GoodWind   Гы... зато весело было :lol: А кто тебе разреша...   30.11.2004 18:31


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.06.2025 11:05
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"