Перейти к содержанию

Lakers

Пользователи
  • Постов

    347
  • Зарегистрирован

  • Посещение

Весь контент Lakers

  1. SxLvn uses crt; var i,j,n,m:integer; a:array[1..20,1..20]of integer; function min(i:integer):integer; var j,w:integer; begin w:=a[i,1]; for j:=2 to m do if a[i,j] min:=w; end; function max(i:integer):integer; var j,w:integer; begin w:=a[i,1]; for j:=2 to m do if a[i,j]>w then w:=a[i,j]; max:=w; end; begin clrscr; write('N= ');readln(n); write('M= ');readln(m); randomize; for i:=1 to n do for j:=1 to m do a[i,j]:=random(100); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; for i:=1 to n do begin writeln(min(i)+max(i)); end; readkey; end. Добавлено спустя 16 минут 20 секунд: Скиф program D_Andre; type Pere=array [1..10] of byte; var N,i,j:byte; X:Pere; Yes:boolean; procedure Next(var X:Pere;var Yes:boolean); var i:byte; procedure Swap(var a,b:byte); {обмен переменных} var c:byte; begin c:=a;a:=b;b:=c end; begin i:=N-1; while (i>0)and(X>X[i+1]) do dec(i); if i>0 then begin j:=i+1; while (jX) do inc(j); Swap(X,X[j]); for j:=i+1 to (N+i) div 2 do Swap(X[j],X[N-j+i+1]); Yes:=true end else Yes:=false end; function pro:boolean; var i:integer; f:boolean; begin f:=true; for i:=1 to n-1 do begin if i mod 2=1 then begin if x>x[i+1] then f:=false; end else begin if x end; end; pro:=f; end; begin assign(input,'p.txt'); reset(input); assign(output,'p_OUT.txt'); rewrite(output); readln(n); for i:=1 to N do X:=i; repeat if pro then begin for i:=1 to N do write(X);writeln;end; Next(X,Yes) until not Yes; close(output); end. создаш файл "p.txt" туда запишеш 7.
  2. а у тебя предусмотрена что картина недоконца заселена изначатьно?
  3. вообще я думаю её надо решать с конца,т.е. находить точки в обратном порядке, т.е. это ячейки с единицами. после по правилам убирать из соседних ячеек бактерии и дальше снова искать точку но уже предпоследнюю и так далее пока не получим пустую картину. я думаю поиск в ширину тут поможет...
  4. X-tender в задаче про это сказано... Процесс рисования заключается в том, что биоинженеры поочередно селят в свободные клетки холста по одной бактерии, при этом в каждой из соседних заселенных клеток (сверху, снизу, справа, слева) количество бактерий увеличивается на одну
  5. вот как производится заселение: for i:=1 to 9 do begin readln(x,y); inc(a[x,y]); if (x-1>0)and(a[x-1,y]<>0) then begin inc(a[x-1,y]); if a[x-1,y]>4 then a[x-1,y]:=1; end; if (x+1>0)and(a[x+1,y]<>0) then begin inc(a[x+1,y]); if a[x+1,y]>4 then a[x+1,y]:=1; end; if (y-1>0)and(a[x,y-1]<>0) then begin inc(a[x,y-1]); if a[x,y-1]>4 then a[x,y-1]:=1; end; if (y+1<4)and(a[x,y+1]<>0) then begin inc(a[x,y+1]); if a[x,y+1]>4 then a[x,y+1]:=1; end; end. вобщем инкремируютсяф непустые клетки.
  6. пинок... - ему будет больно. порох
  7. Шашлык - толстей - это полезно. паспорт
  8. бородавки-? - мы тоже не знаем зачем они нужны. яйцо дракона
  9. сотовый с подогревом уха зимой - согрейтесь теплом электроники. почки (донорские)
  10. ладно,думаю на эту задачу только времени уйдет больше.лучше чтонибудь не такое жёское=) Шифровка Ограничение времени: 1.0 секунды Ограничение памяти: 64 МБ Мюллер много раз пытался поймать Штирлица с поличным, но тот всё время выкручивался. Как-то раз Штирлиц просматривал электронную почту. В это время незаметно вошел Мюллер и увидел, как у него на экране появился бессмысленный набор символов. «Шифровка», — подумал Мюллер. «UTF-8», — подумал Штирлиц. Известно, что Штирлиц шифрует текст следующим образом: Убирает все пробелы и знаки препинания. Заменяет все подряд идущие одинаковые буквы на одну такую букву. Многократно вставляет в произвольное место текста две одинаковых буквы. Попробуйте восстановить текст, каким он был после второго шага. Для этого удалите из текста все пары одинаковых символов, добавленные на третьем шаге. Исходные данные В единственной строке записана шифровка Штирлица, состоящая из строчных латинских букв. Длина шифровки не превосходит 200000. Результат Выведите восстановленный текст. Пример исходные данные wwstdaadierfflitzzz результат stierlitz номер задачи: 1654. Добавлено спустя 1 минуту 3 секунды: заадча простая...
  11. там скорее всего кокаенибудь хитрость и так получается что должны сделать NxM заселеней.
  12. если она решается тупым перебором то действительно смешно.но както я сомневаюсь что она так проста. на acm.timus.ru её пробовали решить 9 человек а релил 1%, т.е. 1человек.скорее всего все валются на временном ограничении.или какаято хитрость в ней всёже есть.
  13. ну можно просто перебором сделать.брать точку,переберать все точки отличные от взятой,растояние между этими двумя точками считать радиусом.смотреть сколько точек невходит в этот круг,и запоминать радиус,ну и после найти минимальный радиус из найденных.
  14. бегемот - Самое вкусное сало. уже сам с собой играю next: intel pentium II
  15. вах вах вах!че никаких идей чтоли?ну вы че ребята!
  16. а.ну может.вторую решайте-) Добавлено спустя 33 минуты 43 секунды: проверил.в полсекунды уложылся:-)
  17. ща дам Абстракционизм в массы Ограничение времени: 1.0 секунды Ограничение памяти: 64 МБ Великий художник-абстракционист Герман Брукс придумал новый стиль в живописи — бактографию. И что же это за стиль, спросите вы. А все очень просто: теперь каждая картина — живая, в буквальном смысле этого слова. Герман рисует бактериями. Такая картина — настоящее произведение искусства. Видели бы вы это завораживающее зрелище, переливающееся двумя, а то и тремя сотнями разных оттенков. Но как же показать это чудо простым людям? Фотография или видео просто неспособны передать всю гамму красок, а музея у Германа пока еще нет (не нравятся новаторские идеи современным хранителям культуры, куда уж с ними спорить). К тому же подробно рисунок можно рассмотреть только под микроскопом. В конце концов было решено скопировать несколько особо удачных картин в тысячах экземпляров и продавать в качестве сувениров. Однако возникла проблема. Сам Герман, как настоящий творец, копировать не желает, а биоинженеры, нанятые Германом, в один голос заявляют, что можно сделать копию, только если знать четкую последовательность, в которой полотно заселяли бактериями. Ваша задача — восстановить эту последовательность. Для решения этой задачи биоинженеры сообщили следующую информацию: Законченная картина представляет собой прямоугольный холст, разделенный на одинаковые квадратные клетки, каждая из которых заселена несколькими бактериями. Перед рисованием холст обязательно дезинфицируется, все его клетки пусты и не содержат бактерий. В каждой клетке холста может быть не более четырех бактерий. Процесс рисования заключается в том, что биоинженеры поочередно селят в свободные клетки холста по одной бактерии, при этом в каждой из соседних заселенных клеток (сверху, снизу, справа, слева) количество бактерий увеличивается на одну. Если в некоторой клетке стало 5 бактерий, то из-за перенаселения 4 из них погибают. Поселить бактерию в уже заселенную клетку невозможно, ибо это приводит к непредсказуемой цепной реакции, портящей все полотно. Исходные данныеПервая строка содержит числа n и m — размеры картины Германа (1 ≤ n, m ≤ 20). Далее описывается сама картина в виде таблицы из n строк по m чисел, где в каждой ячейке записано количество бактерий в соответствующей клетке картины — целое число от 1 до 4. Результат В случае если получить исходную картину процедурой, доступной биоинженерам, невозможно, вывести единственное слово «No». Если же вам удалось найти какую-либо последовательность, позволяющую создать копию шедевра Германа, то выведите в первой строке «Yes», а в следующих строках саму последовательность: по два числа в каждой строке — номер строки и номер стоблца заселяемой клетки картины. Пример исходные данные 3 3 2 2 1 3 1 3 1 2 2 результат Yes 2 2 2 1 1 1 1 2 2 3 1 3 3 3 3 2 3 1 номер задачи:1649 Добавлено спустя 2 минуты 51 секунду: насчет предыдущей задачи,если просто получать клавишу и прыгать то ты не уложешся во временной лимит=)
  18. вот задачка росложнее: Марсопрыг Ограничение времени: 0.5 секунды Ограничение памяти: 16 МБ Марсопрыг - это новая, усовершенствованная модель лунохода. Умники из конструкторского бюро решили, что в условиях низкой гравитации прыгать выгоднее, чем ходить. Кстати, прыгает он всегда одинаково, ровно на один метр. Для дистанционного управления эти умники приспособили обычную клавиатуру компьютера, точнее, дополнительные цифровые клавиши, те самые, которые справа. Это очень удобно и привычно: цифра 8 значит прыжок на север, 2 - на юг, 6 - на восток, 7 - прыжок на северо-запад, и так далее. Цифра 5 означает команду на взятие пробы грунта. Еще осталась неиспользованной цифра 0, и главный конструктор посоветовал назначить на эту клавишу команду для самоуничтожения марсопрыга, так как это очень полезная функция. Конечно, управлять марсопрыгом нелегко. Не каждый сможет быстро переместиться, например, ровно на полметра к северу. Впрочем, умники из конструкторского бюро заявили, что можно сколь угодно близко припрыгать к любой указанной точке за конечное число прыжков. А за какое именно число прыжков, можете на досуге посчитать самостоятельно. Перед отлетом заказчики потребовали провести испытание марсопрыга. Для проведения испытаний умники из конструкторского бюро посадили за компьютер дочку главного конструктора и предложили ей понажимать на разные клавиши. В результате марсопрыг куда-то упрыгал. Теперь его срочно надо найти. Ваша задача - подсказать поисковой команде, где может находиться этот злополучный прибор. Теоретически он должен находиться в той точке, где впервые была нажата клавиша 0, или (если эту клавишу не нажимали) в той точке, куда он допрыгал к концу испытаний. Вам будет дана последовательность нажатий клавиш. Выведите конечное местоположение марсопрыга. Испытательный полигон считать бесконечной плоскостью. Исходные данные не более чем 1000000 цифр от 0 до 9. Результат Выведите координаты марсопрыга (в метрах, с точностью 10 знаков после запятой) в формате X Y, где X - смещение относительно начальной точки на восток, Y - смещение на север. Пример исходные данные 1236987412369870234567890123456789 результат 1.0000000000 0.0000000000 номер задачи:1413
  19. если кто хочет поришать олимпиадные задачи, вот сайт www.acm.timus.ru (внешка) задачь много от простых до очень сложных. Игра с камушками Ограничение времени: 1.0 секунды Ограничение памяти: 16 МБ Два Никифора играют в следующую игру. Перед ними лежит кучка из N камней. Никифоры по очереди берут из неё некоторое число камней. За один ход разрешается взять любое число камней, являющееся целой неотрицательной степенью числа 2 (то есть, 1, 2, 4, 8, и т.д.). Выигрывает Никифор, взявший последний камень. Требуется написать программу, которая определяла бы, какой Никифор выигрывает при правильной игре: начинающий или его партнер. Исходные данные В единственной строке находится целое положительное число N, не превосходящее 10250. РезультатВ первой строке должно находиться число 1, если выигрывает начинающий Никифор, либо 2, если выигрывает Никифор, который ходит вторым. В случае если выигрывает начинающий Никифор, во второй строке должно быть указано минимальное число камней, которое он должен взять первым ходом, чтобы гарантировать себе выигрыш. Пример исходные данные: 8 результат: 1 2 номер задачи на сайте: 1180 если че сайт с автоматической проверкой, засылайте решения туда если интересно... поришаем?
  20. Новоселье - купи посёлок в респектабельном районе. Добавлено спустя 1 минуту: Бегемот
×
×
  • Создать...