Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?
Гродненский Форум
21 Июль 2025, 23:54:32
Новости, реклама:
   Главная   Новости Гродно Помощь Игры Календарь Войти Регистрация   Меню
Страниц  : 1 2 3 5 6 Далее»  Все   Вниз
  Печать  
Автор Тема: PASCAL RULEZ  (Прочитано 26886 раз)
0 Пользователей и 1 Гость смотрят эту тему.
iced
Гость


Email
« Ответ #90 : 10 Сентябрь 2005, 05:16:40 »

привезите мну ключик и софт - потыркаюсь. ехать куда либо (а так же коннектиццо на вентовз по rdc) мну лень.
Записан
iced
Гость


Email
« Ответ #91 : 11 Сентябрь 2005, 10:12:36 »

позвони - договоримся.
Записан
Артист
Почетный гродненец
*****

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

Пол: Мужской
Сообщений: 1243


пум-пурум-пум-пум

Просмотр профиля
« Ответ #92 : 17 Сентябрь 2005, 18:09:11 »

Народ помогите!!! Надо срочно решить задачу:
Вокруг сидит k мышей, а в ценре кот(кошка- кому как нравиться:), и поедает каждую n-ную.Нужно узнать мышь под каким номером он съест последней.
Очень нада.заранее благодарю.
Записан

Хочешь изменить мир - начни с себя.
iced
Гость


Email
« Ответ #93 : 17 Сентябрь 2005, 20:49:43 »

2MAN: а в чём вопрос - берёшь и пишешь.
Записан
7floor
Автолюбитель
Губернатор
*****

Репутация: +709/-5
Offline Offline

Пол: Мужской
Сообщений: 10506


Я люблю разные вещи!

Просмотр профиля
« Ответ #94 : 18 Сентябрь 2005, 00:14:25 »

Хоть бы сказал, на чем задачку делать :-) Судя по теме, то вроде как на паскале, короче:

Код:
program CatMices;

{$APPTYPE CONSOLE}

var
 k, n: Integer;
 Mices: array[1..100] of Boolean;
 MouseIndex, MouseCounter, MicesLeft: integer;

begin
 Write('Enter k (k <= 100): ');
 ReadLn(k);
 Write('Enter n: ');
 ReadLn(n);

 for MouseIndex := 1 to k do
   Mices[MouseIndex] := True;

 MicesLeft := k;
 MouseIndex := 0;
 while MicesLeft > 0 do begin
   MouseCounter := 0;
   while MouseCounter < n do begin
     MouseIndex := MouseIndex + 1;
     if MouseIndex > k then
       MouseIndex := 1;
     if Mices[MouseIndex] then
       MouseCounter := MouseCounter + 1;
   end;
   Mices[MouseIndex] := False;
   MicesLeft := MicesLeft - 1;
 end;

 WriteLn('Last mouse was ', MouseIndex);
 ReadLn;
end.

Писалось на делфи, но использовался тут только чистый паскаль, кроме камента {$APPTYPE CONSOLE}. Из соображений "образовательности" задачки не юзалось никаких наворотов типа динамических списков еще чего (хотя можно было сделать покрасивше :-) ). Даже массив не динамический. А так, дубово, как и все задачки такого типа.
« Последнее редактирование: 18 Сентябрь 2005, 00:16:36 от 7floor » Записан

Древняя китайская мудрость гласит: "Когда нечего сказать, но очень хочется, скажи древнюю китайскую мудрость!"
Я на drive2.ru
iced
Гость


Email
« Ответ #95 : 18 Сентябрь 2005, 01:21:35 »

27floor: мона было и короче немного записать

а вот теперь вопрос - а слабо f(n, k) выписать?
Записан
7floor
Автолюбитель
Губернатор
*****

Репутация: +709/-5
Offline Offline

Пол: Мужской
Сообщений: 10506


Я люблю разные вещи!

Просмотр профиля
« Ответ #96 : 18 Сентябрь 2005, 01:28:39 »

За краткостью даже не пытался гнаться, я писал, как нагляднее, а не как оптимальнее или короче.

Имеешь в виду решить задачу не алгоритмически? То есть, не поедая мышей, сразу сказать, кто последний?
Записан

Древняя китайская мудрость гласит: "Когда нечего сказать, но очень хочется, скажи древнюю китайскую мудрость!"
Я на drive2.ru
lotas
Гродненец
**

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

Пол: Мужской
Сообщений: 141


Просмотр профиля
« Ответ #97 : 21 Сентябрь 2005, 02:03:58 »

эта задача, как сейчас помню решалась на 1м курсе в теме "Стэк, очередь, ...."
так тут и есть как раз очередь (можно односвязная)
... ну и дальше по плану....
Записан
iced
Гость


Email
« Ответ #98 : 21 Сентябрь 2005, 05:30:13 »

если найду записки со сборов - то возможно формулу запостю.
Записан
kaa
Гродненец
**

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

Пол: Мужской
Сообщений: 61


Просмотр профиля
« Ответ #99 : 28 Октябрь 2005, 17:13:40 »

Задачка решалась формулой, насколько я помню. Если не ошибаюсь, то её решали с IceD, когда он сборы вёл Улыбка Но вот в упор не помню решения... Улыбка
Записан

Играюсь туд: http://unit-online.ru
iced
Гость


Email
« Ответ #100 : 28 Октябрь 2005, 21:46:57 »

2kaa - теже яйца ;]
Записан
ErEpb
Настоящий гродненец
****

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

Пол: Мужской
Сообщений: 323

Просмотр профиля Email
« Ответ #101 : 21 Декабрь 2005, 12:10:29 »

Короч задача:
Задана двумя точками прямая . Найти серединный перпендикуляр к этой прямой. Мож хто подскажите как решить.
Записан

Грузоперевозки по городу и области. Автомобиль ГАЗ-53, 6 тонн.
Тел. 7808690
ErEpb
Настоящий гродненец
****

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

Пол: Мужской
Сообщений: 323

Просмотр профиля Email
« Ответ #102 : 21 Декабрь 2005, 12:26:58 »

Короч задача:
Задана двумя точками прямая . Найти серединный перпендикуляр к этой прямой. Мож хто подскажите как решить.
Записан

Грузоперевозки по городу и области. Автомобиль ГАЗ-53, 6 тонн.
Тел. 7808690
ZaiC3k
Настоящий гродненец
****

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

Пол: Мужской
Сообщений: 681


еще один урод

Просмотр профиля
« Ответ #103 : 21 Декабрь 2005, 19:11:22 »

Цитировать
Короч задача:
Задана двумя точками прямая . Найти серединный перпендикуляр к этой прямой. Мож хто подскажите как решить.

искать похоже надо серединный перпендикуляр к отрезку прямой
для начала составь уравнение нормального вектора для прямой,а уж найдя координаты середины отрезка и имея нормальный вектор к прямой, содержащей отрезок, составляй уравнение серединного перпендикуляра
« Последнее редактирование: 21 Декабрь 2005, 19:12:11 от ZaiC3k » Записан

The proud member of Petrosjan crew
intro
Кандидат в депутаты
****

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

Пол: Мужской
Сообщений: 4020

Просмотр профиля WWW
« Ответ #104 : 21 Декабрь 2005, 20:12:32 »

Дано число в K-ичной системе счисления an an-1 ...a0 (K<=36).
Найти остаток от деления его на m.
Числа K, n, m, как и остаток от деления на m, представляются в десятичной системе счисления.


Данные N косточек домино по правилам игры выкладываются в прямую цепочку, начиная с косточки, выбранной произвольно,в оба конца до тех пор, пока это возможно. Построить алгоритм, позволяющий определить такой вариант выкладывания заданных косточек, при котором к моменту, когда цепочка не может быть продолжена, "на руках" останется максимальное число очков.
Записан

dragoon6
Гость
« Ответ #105 : 22 Декабрь 2005, 15:36:58 »

to ZaiC3k: Вообщенто задача ErEpbя звучит немного по-другому, но это единственная подзадача, которую мы не можем решить. Я вообще пишу в основном переборные задачи, а не геометрические, и ещё ни разу не пользовался вектором, и потому не знаю решения энтой задачи. А если взять более большой кусок задачи, то нам надо построить окружность по трём точкам, лежащим на окружности. Мот есть какой-нибудь другой способ решения этого??? :-/
Записан
ZaiC3k
Настоящий гродненец
****

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

Пол: Мужской
Сообщений: 681


еще один урод

Просмотр профиля
« Ответ #106 : 22 Декабрь 2005, 20:20:43 »

Цитировать
to ZaiC3k: Вообщенто задача ErEpbя звучит немного по-другому, но это единственная подзадача, которую мы не можем решить. Я вообще пишу в основном переборные задачи, а не геометрические, и ещё ни разу не пользовался вектором, и потому не знаю решения энтой задачи. А если взять более большой кусок задачи, то нам надо построить окружность по трём точкам, лежащим на окружности. Мот есть какой-нибудь другой способ решения этого??? :-/


ну конечно же есть
надо фсеголишь найти координаты центра и радиус
тока раскажу как это сделать завтра - ибо сегодня раб. день заканчивается и надо бежать

(и это - вот - к паскалю задача никакого отношения не имет кстати)
Записан

The proud member of Petrosjan crew
ZaiC3k
Настоящий гродненец
****

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

Пол: Мужской
Сообщений: 681


еще один урод

Просмотр профиля
« Ответ #107 : 23 Декабрь 2005, 12:37:40 »

ИТАК
имеется ур-ние окружности (общее):
(x-o.x)^2+(y-o.y)^2=r^2, где o.x и o.y - координаты x и y центра окружности ( О)
подставь координаты известных точек принадлежащих окружности и получишь систему из 3-х уравнений с 3-я неизвестными o.x, o.y и r
Записан

The proud member of Petrosjan crew
dragoon6
Гость
« Ответ #108 : 23 Декабрь 2005, 14:48:57 »

to intro: ну и чего с первой задачей, сложно что-ли перевести чисто в десятичную сис-му счисления? Вот вторая задачка посложнее, можно будет как-нибудь с ней пое#.....

to ZaiC3k: к паскалю эта задача имеет самое прямое отношение, т.к. мне её надо реализовать на этой ДОЛБАНОЙ СРЕДЕ ПРОГРАМИРОВАНИЯ!!!(turbo pascal). Мне, кстати, оч. интерестно узнать, как можно решать сис-мы уравнения в PASе. И ещё оч. хочется узнать, как в сообщение на форуме вставлять цитаты(мот объяснишь, а)...
Записан
ZaiC3k
Настоящий гродненец
****

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

Пол: Мужской
Сообщений: 681


еще один урод

Просмотр профиля
« Ответ #109 : 23 Декабрь 2005, 17:03:58 »

Цитировать
Мне, кстати, оч. интерестно узнать, как можно решать сис-мы уравнения в PASе. И ещё оч. хочется узнать, как в сообщение на форуме вставлять цитаты(мот объяснишь, а)...


в данном случае не важно на каком языке ты будешь решать эту задачу - везде алгоритм будет выгляжеть одинаково
для решения систем ур-ний можно применять фсякие хитрые методы про которые в книжках пишут, но в данном случае проще решить ее руками на бумажке и получить готовые формулы для r, o.x и o.y - главное не лениться; а еще можно поискать в нете как люди решали подобные задачи - я почему-то уверен что такого рода примеры должны быть
ИЛИ ТЫ ХОЧЕШЬ ЧТО БЫ Я ЗА ТЕБЯ СЕЛ И ФСЕ ПОСЧИТАЛ ИЛИ НАШЕЛ?

а цитаты можно фставлять либо нажимая на кнопку "Цетировать", либо руками аисать ТЭГ quote в квадратных скобках (открывающий и закрывающий)
Записан

The proud member of Petrosjan crew
dragoon6
Гость
« Ответ #110 : 24 Декабрь 2005, 12:02:41 »

Ну, насчёт одинакового алгоритма - эт верно, вообще я искал по нету решение вот этого, но есть решение ни С++ и я его понять не могу... Грустный Били там ещё темы... Типа эта фишка MINDISKом называется... Вот только исходника, которого я бы смог понять, я не нашел... Грустный А способы, как там описывается его построение такие....(Ну, например, что-то вроде берём произвольную окружность...  :-/ Если все точки попадают в неё, то пытаемся уменьшить... иначе увеличиваем....) По-мойму это тупо.... А вообще, попробую формулы повыводить, мот чё-нибуть получаться (надеюсь, системы уравнений (да ещё с ТРЕМЯ неизвестными) я как-то не очень... :-/)... :-/
P.S. и, кстати, цитировать, а не "це"... ни в обиду... люблю я людей попраб##ть, особенно в написании слов, хотя и сам русским языком плохо владею...  Плачущий
Записан
ZaiC3k
Настоящий гродненец
****

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

Пол: Мужской
Сообщений: 681


еще один урод

Просмотр профиля
« Ответ #111 : 24 Декабрь 2005, 13:57:22 »

посмотрел я что там за "MINDISK"
там решается совершенно другая задача и MINDISKом называется одна из процедур
вот том алгоритме есть как раз таки процедура построения окружности по 3-м точкам - в которой есть готовые ф-лы для o.x o.y и r - надо только повнимательнее  прочитать и разобраться в Си - НО ЛУТШЕ ВЫВЕСТИ САМОМУ - на фсю жизнь запомнятся
Записан

The proud member of Petrosjan crew
dragoon6
Гость
« Ответ #112 : 26 Декабрь 2005, 14:24:47 »

to ZaiC3k: Ладно, псиба, дальша кк-будь сам... Фсё-тки надо же когда-будь што-будь вывести самому... Смеющийся Гы...
Записан
Toreador
Гродненец
**

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

Пол: Мужской
Сообщений: 226


mode move move

Просмотр профиля WWW
« Ответ #113 : 31 Декабрь 2005, 18:19:55 »

НАРОД ПРОГРАММИСТОВ ВСЕХ С НОВЫМ ГОДОМ!!!
ОТРЫВАЙТЕСЬ ОТ КОМПОВ И ВСЕ НА ЕЛКУ...
 Смеющийся
Записан

+++++++++++++++++++++++++++++
VooDoo
Почетный гродненец
*****

Репутация: +89/-1
Offline Offline

Пол: Мужской
Сообщений: 2885


Dum spiro spero

Просмотр профиля WWW Email
« Ответ #114 : 05 Январь 2006, 10:07:14 »

Цитировать
Короч задача:
Задана двумя точками прямая . Найти серединный перпендикуляр к этой прямой. Мож хто подскажите как решить.
вся геометрия отлична написана в учебнике Котов "Методы программирования" 9 вроде класс. Там Есть всё
Записан

Are you human? - My body is.
Do you feel pain? - My body does.
..- --- --- -.. --- ---
Toreador
Гродненец
**

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

Пол: Мужской
Сообщений: 226


mode move move

Просмотр профиля WWW
« Ответ #115 : 07 Январь 2006, 16:59:23 »

Ну чё решили? Шокирован Строит глазки Улыбка
Записан

+++++++++++++++++++++++++++++
Sussanin
Настоящий гродненец
****

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

Пол: Мужской
Сообщений: 389


Offline

Просмотр профиля
« Ответ #116 : 11 Январь 2006, 18:05:36 »

Да Егерь к области готовился, олимпиада уже прошла... Строит глазки
Записан
iced
Гость


Email
« Ответ #117 : 11 Январь 2006, 18:26:01 »

Цитировать
to intro: ну и чего с первой задачей, сложно что-ли перевести чисто в десятичную сис-му счисления? Вот вторая задачка посложнее, можно будет как-нибудь с ней пое#.....

угу. тока задачка то олимпиадная. чило в 25ричной системе - GFGHFHG9068965895895489589589589589549874GFDDFGFFGGFGF ... <skipped> .. GHGGHGH. переводи давай.
Записан
dragoon6
Гость
« Ответ #118 : 18 Январь 2006, 19:39:54 »

Цитировать
Цитировать
Короч задача:
Задана двумя точками прямая . Найти серединный перпендикуляр к этой прямой. Мож хто подскажите как решить.
вся геометрия отлична написана в учебнике Котов "Методы программирования" 9 вроде класс. Там Есть всё
Короч, слуш... ДА ПОШЁЛ ЭТОТ КОТОВ ОНЧЕНЬ ДАЛЕКО!!! В нём почти везде есть ошибки, опечатки и прочая ...... Злой
to Susanin:
Он теперь ещё и к репе готовиться будет... Туда он попал на 95%... (только сборы отборочне пройти и не взять последнее...)
to IceD:
я его тебе переведу, причём и не такая уж проблема (фсего-лишь длинная арифметика...) Улыбка А по поводу олимпиадной задачки... в общем область.... я взял 1-ое абсалютнае...
Записан
iced
Гость


Email
« Ответ #119 : 18 Январь 2006, 20:49:13 »

нууу давайте хвастаться. а я республику брал первое абсолютное ;] и серебро с межнара ;]]]

Цитировать
Короч, слуш... ДА ПОШЁЛ ЭТОТ КОТОВ ОНЧЕНЬ ДАЛЕКО!!! В нём почти везде есть ошибки, опечатки и прочая ......

а по сопатке?
Записан
Страниц  : 1 2 3 5 6 Далее»  Все   Вверх
  Печать  
 
Перейти в:  

Войти
Войдите, чтобы добавить комментарий

Войдите через социальную сеть

Имя пользователя:
Пароль:
Продолжительность сессии (в минутах):
Запомнить:
Забыли пароль?

Контакт
Powered by MySQL Powered by PHP Мобильная версия
Powered by SMF 1.1.20
SMF © 2006-2025, Simple Machines
Simple Audio Video Embedder
| Sitemap
Valid XHTML 1.0! Valid CSS!
Страница сгенерирована за 0,191 секунд. Запросов: 19.