profile

Опубликовано 5 лет назад по предмету Информатика от danilkonon

Задача «Вирусы»
Для моделирования различных объектов часто применяются так называемые клеточные поля. В простейшем случае – это прямоугольные таблицы, характеризующие некоторую область, а в каждой ячейке таблицы записывается какая-либо информация об исследуемом объекте. В биологии для моделирования распространения вирусов на плоской области в каждой ячейке помечается наличие вируса, а его распространение осуществляется в соседние ячейки по вертикали и горизонтали за одну единицу времени. Некоторые клетки обладают иммунитетом, заразить их невозможно и через них не распространяются вирусы. Требуется написать программу, которая определяет минимально возможное число вирусов, с помощью которых можно заразить всю исследуемую прямоугольную область (за исключением защищённых клеток).
Описание входных данныхВ первой строке входного файла input.txt записаны два натуральных числа n и m -размеры таблицы (количество строк и столбцов соответственно). Известно, что 1 n, m 100. Во второй строке вначале записано одно число k – количество защищённых клеток, а далее записаны 2k чисел – координаты этих клеток xi, yi (0 k n m, 1 xi n, 1 yi m).
Описание выходных данных
В единственную строку выходного файла output.txt нужно вывести одно число –минимально возможное число вирусов.
Примеры входных и выходных данных
input.txt
4 5 3 1 3 2 1 2 2 
output.txt 2

  1. Ответ
    Ответ дан Аккаунт удален
    uses GraphABC;
    const types = 3;
    rmax = 4;
    CanEat = rmax;
    eps = 0.00001;
    epsustupi = 0.1;
    strahkraj = 3;
    ustupi = CanEat*10;
    BkColor = clBlack;
    Height = 600;
    Width = 780;
    xmin = 10;
    ymin = 10;
    xmax = Width - 100;
    ymax = Height - 140;
    Type
    fishtype = class
    c, CanRazm, MaxKol, Kol, MaxLife, MinFood: integer;

    Speed, See: real;
    constructor create(ac, aCanRazm, aMaxKol, aMaxLife, aMinFood:integer; aSpeed, aSee: real);
    begin
    c:= ac; CanRazm:= aCanRazm; MaxKol:= aMaxKol; Kol:= 1;
    MaxLife:= aMaxLife; MinFood:= aMinFood; Speed:= aSpeed; See:= aSee
    end;
    procedure ShowKol(y: integer);
    var s: string;
    begin
    SetFontColor(c);
    TextOut(xmax + 20, y, ' ');
    str(Kol, s);
    TextOut(xmax + 20, y, s);
    end;
    end;
    var opisanie: array[0..types] of fishtype;
    Type
    fish = class
    x, y, r, dx0, dy0: real;
    tip, life, razm, status, food: integer;

    next, prev: fish;
    constructor Create(ax, ay, ar: real; atip: integer; aprev, anext: fish);
    begin
    x:= ax; y:= ay; r:= ar; tip:= atip; prev:= aprev; next:= anext;
    life:= 0; razm:= 0; dx0:= random; dy0:= random; status:= 1; food:= 0;
    end;
    procedure show;
    begin
    SetPenColor(opisanie[tip].c);
    circle(round(x), round(y), round(r))
    end;
    procedure hide;
    begin
    SetPenColor(BkColor);
    circle(round(x), round(y), round(r))
    end;
    destructor Destroy;
    begin
    hide;
    opisanie[tip].kol:= opisanie[tip].kol - 1;
    opisanie[tip].ShowKol(tip*40 + 20);
    end;
    procedure moveto(dx, dy: real);
    begin
    hide;
    x:= x + dx; y:= y + dy;
    if x > xmax then x:= xmax;
    if x < xmin then x:= xmin;
    if y > ymax then y:= ymax;
    if y < ymin then y:= ymin;
    show
    end;
    procedure MakeDeti(var mama, StartAkula, KonAkula, StartKilka, KonKilka : fish);
    var d: fish;
    begin
    razm:= 0;
    food:= 0;
    d:= fish.create(x, y, r, tip, mama, next);
    next.prev:= d;
    next:= d;
    if mama = KonAkula then KonAkula:= d;
    if mama = KonKilka then KonKilka:= d;
    opisanie[tip].kol:= opisanie[tip].kol + 1;
    opisanie[tip].ShowKol(tip*40 + 20);
    end;
    procedure step(var ribka, StartAkula, KonAkula, StartKilka, KonKilka : fish);
    var i, imin: integer;
    dx, dy, d, dx2, dy2, dmin: real;
    t, trup, found: fish;
    FoundOhot: boolean;
    begin
    status:= 1;
    dx:= 0; dy:= 0;
    if tip > 0 then
    begin
    t:= StartAkula;
    if t<>nil then
    repeat
    d:= sqrt((x - t.x)*(x - t.x) + (y - t.y)*(y - t.y));
    if d < opisanie[tip].See then
    begin
    if d < eps then d:= eps;
    dx2:= (x - t.x)/(d*d);
    dy2:= (y - t.y)/(d*d);
    dx:= dx + dx2;
    dy:= dy + dy2;
    status:= 2;
    end;
    t:= t.next
    until t = KonAkula.next;
    if x - xmin < opisanie[tip].See then dx:= dx + 1/((x - xmin + eps)*strahkraj);
    if xmax - x < opisanie[tip].See then dx:= dx + 1/((x - xmax - eps)*strahkraj);
    if y - ymin < opisanie[tip].See then dy:= dy + 1/((y - ymin + eps)*strahkraj);
    if ymax - y < opisanie[tip].See then dy:= dy + 1/((y - ymax - eps)*strahkraj);
    d:= sqrt(dx*dx + dy*dy);
    if d < eps then
    begin
    dx:= 2*status*random*opisanie[tip].Speed - status*opisanie[tip].Speed;
    dy:= 2*status*random*opisanie[tip].Speed - status*opisanie[tip].Speed
       
    1. Ответ
      Ответ дан danilkonon
      это что? где конец задачи? И почему здесь вводится graphabc?

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт


Другие вопросы
Шалаш
Другие предметы - 5 месяцев назад

Пытался написать сочинение по егэ по русскому не могу понять как,написать хотелось бы пример увидеть по этому тексту. (1)в солнечный день я приехал в старинный посёлок гусь-железный полюбоваться на озеро, искупаться, поплавать в нём. (2)доехал до речки, поднялся на бугор, глянул и... (3)о ужас! (4)нет озера. (5)по широкой впадине, окаймлённой дальней опушкой бывшего прибрежного леса, текла, извиваясь, узкая, местами пересыхающая речушка. (6)и старинной плотины, высокой, кирпичной, с чугунными шлюзами, в тёмных казематах которой, по преданию, разбойная братия чеканила фальшивые деньги, тоже не было. (7)шлюзы, регулировавшие сток, убрали, засыпали – и затянуло озеро тиной да ряской. (8)на месте этом проходила теперь обыкновенная дорожная насыпь; дорога делала крутой поворот, огибала белый двухэтажный барский дом, похожий на длинную казарму, заломанный чахлый парк и снова вырывалась на простор. (9)главный врач детского санатория, размещённого в барском доме, показал мне давние фотографии этого исчезнувшего озера, высокой кирпичной плотины, торговых рядов с доисторическими портиками, он водил по внутренним покоям огромного дома, заново перегороженного, приспособленного для иных надобностей. (10)переделка и ремонт когда-то выполнены были наспех: половицы скрипят и хлябают под ногами, двери перекошены, в оконные рамы задувает свежий ветерок. – (11)сохранилась хоть одна комната от давнего времени? – спросил я. – (12)с полами, дверями и окнами? – (13)полы, двери и прочее – всё порастащили. (14)а вот стены и потолок сохранились в одном месте. (15)идёмте, покажу. (16)он ввёл меня в зал, кажется, в теперешнюю столовую, с белыми строгими пилястрами, с лепным потолком. – (17)полы здесь были, говорят, из наборного паркета, двери из орехового дерева с бронзовой инкрустацией, люстра позолоченная висела. – (18)жалко, – говорю, – что не сохранилось всё это. – (19)о чём жалеть? (20)архитектурной ценности этот дом не имеет, – сказал доктор. (21)я взглянул на него с удивлением. (22)не шутит ли? (23)нет, смотрит прямо в глаза, даже с каким-то вызовом. (24)задиристый хохолок на лысеющем лбу топорщится, как петушиный гребешок. – (25)как не имеет ценности? – говорю. – (26)это ж дом! (27)большой, крепкий, красивый, полный когда-то дорогого убранства. – (28)барские покои, и больше ничего. (29)таких в россии тысячи. – (30)так ведь и народу нашему пригодились бы такие покои. – (31)людям нашим нужны другие ценности. (32)вы ещё храм пожалейте. (33)теперь это модно. – (34)а что, не жаль храма? – (35)и храм цены не имеет. (36)архитектура путаная. (37)специалисты приезжали, говорят – эклектика. (38)потом, правда, всё-таки восстановили храм этот. – (39)и парка не жаль? – (40)парк – природа, и больше ничего. (41)в одном месте убавилось, в другом прибавилось. (42)в любую минуту его насадить можно. (43)мы стояли возле окна, внизу под нами раскинулся обширный посёлок. – (44)смотрите, – говорю, – сколько домов. (45)приличные дома, большинство новых. – (46)здесь живёт в основном торговый люд, кто чем торгует, работы хватает. – (47)вот и хорошо, – говорю. – (48)увеличился посёлок за полвека? – (49)увеличился. – (50)а теперь подумайте вот о чём: раньше, ну хоть ещё в тридцатые годы, здесь меньше жило народу, но успевали не только свои рабочие дела делать. (51)ещё и плотину чинили, озеро в берегах держали и парк обихаживали. (52)а теперь что ж, времени на это не хватает или желания нет? – (53)а это, – говорит, – знакомый мотив. (54)это всё ваше писательское ворчание. (55)что озеро спустили – это вы заметили. (56)что над каждой крышей телевизионная тарелка поставлена – этого вы не замечаете. (57)спорить с ним трудно, почти невозможно: доводы ваши он не слушает, только глаза навострит, тряхнёт головой и чешет без запинки, как будто доклад читает… – (58)есть писатели-патриоты. (59)их книги читают, фильмы по книжкам их смотрят наравне с футболом и хоккеем, потому что яркие, незабываемые образы. (60)а есть писатели-ворчуны, которые всем недовольны. (61)и всё им что-то надо. (62)вот одного такого лечили, а он нас же, медиков, опозорил в своём последнем сочинении. (63)за что, спрашивается? (64)да, не раз вспомянешь в дальней дороге бессмертного писателя земли русской николая васильевича гоголя: «россия такая уж страна – стоит высмеять одного околоточного надзирателя, как вся полиция обидится».