Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.10.2013, 17:43   #1
FoX1488
Новичок
Джуниор
 
Регистрация: 07.10.2013
Сообщений: 6
Восклицание "Вирусы" на паскале.


Вот такая задача.
нужно решить.
Отблагодарю !
FoX1488 вне форума Ответить с цитированием
Старый 07.10.2013, 20:34   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Код:
type
    tarray = array[1..100, 1..100] of byte;

procedure fill(var a: tarray; i, j, n, m: integer);
begin
    if (i <= 0) or (i > n) or (j <= 0) or (j > m) or (a[i, j] = 1) then
        exit;
    a[i, j] := 1;
    fill(a, i + 1, j, n, m);
    fill(a, i, j + 1, n, m);
    fill(a, i - 1, j, n, m);
    fill(a, i, j - 1, n, m);
end;   

var
    a: tarray;
    i, j, n, m, k, count: integer;

begin
    readln(n, m);
    for i := 1 to n do
        for j := 1 to m do
            a[i, j] := 0;
    read(k);
    while k > 0 do
    begin
        read(i, j);
        a[i, j] := 1;
        dec(k);
    end;
    count := 0;
    for i := 1 to n do
        for j := 1 to m do
            if a[i, j] = 0 then
            begin
                inc(count);
                fill(a, i, j, n, m);
            end;
    writeln(count);
end.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 08.10.2013, 06:56   #3
FoX1488
Новичок
Джуниор
 
Регистрация: 07.10.2013
Сообщений: 6
По умолчанию

BDA, большое спасибо !)
FoX1488 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создать класс "Фигура", от него наследованием создать 3 класса ("треугольник", "четырехугольник", "окружность") funnyy Помощь студентам 3 17.10.2012 17:40
Вывести название соответствующей карты вида "шестерка бубен", "дама червей","туз треф" и т.п. воваава Помощь студентам 3 01.12.2011 12:50
Как обойти "преобразование типа из "string" в "float" невозможно" lexluter1988 Помощь студентам 1 07.08.2010 12:23
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04