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 
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов
Altair
сообщение 28.11.2004 9:14
Сообщение #2


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

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


Больше 10000 программа Jahnerus не потянет. Массивы такие не задают уже....

так что повышение рейтингане оправданно, GoodWind. Ты поторопился, не проверив.

Массивы не могут быть длинее чем 65536 элементов.
...
Работает программа volvo ... только.


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  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

 



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