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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.11.2009, 09:44   #1
PPVPPV
Новичок
Джуниор
 
Регистрация: 18.11.2009
Сообщений: 2
По умолчанию Матрица на Паскале

Доброго дня всем местным программерам!
Задали задачу в школе дитю:
Дана матрица NxN. Элементами матрицы является 0 и 1 0-лампа не включена, 1 лампа горит, у каждого столбца и строки есть переключатель, он позволяет инвертировать числа в столбце.
Нужно написать программу, которая включит все лампочки. первоначально матрица сгенерирована случайным образом.
PPVPPV вне форума Ответить с цитированием
Старый 18.11.2009, 11:32   #2
DmuS
Пользователь
 
Регистрация: 14.11.2009
Сообщений: 12
По умолчанию

Код:
Program test;
 Uses crt;
  Var
     a:array [1..100,1..100] of Byte;
     i,j,n:Byte;
BEGIN
  ClrScr;
  Write('n=');
  ReadLn(n);
  For i:=1 to n do
     Begin
       For j:=1 to n do
          Begin
            a[i,j]:=random(2);
            Write(a[i,j],' ');
          End;
       WriteLn;
     End;
  WriteLn;
  For i:=1 to n do
     For j:=1 to n do
        If a[i,j]=0 then
          a[i,j]:=1;
  For i:=1 to n do
     Begin
       For j:=1 to n do
          Write(a[i,j],' ');
       WriteLn;
     End;
  ReadKey;
END.

Последний раз редактировалось DmuS; 18.11.2009 в 11:38.
DmuS вне форума Ответить с цитированием
Старый 18.11.2009, 12:18   #3
PPVPPV
Новичок
Джуниор
 
Регистрация: 18.11.2009
Сообщений: 2
По умолчанию

Большое спасибо за ответ!
PPVPPV вне форума Ответить с цитированием
Старый 18.11.2009, 13:39   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

DmuS, да щас!!!
Вы что, всерьёз считаете, что Ваш код решает поставленную задачу?!!!
вы все нолики в матрице заменяете на единички и считаете, что задача решена?!!

PPVPPV, неоднократно играл в такую игру.
(даже в Братьях Пилотах одна из головоломок была именно такая - нужно было открыть сейф, поворачивая ручки...)
но, честно говоря, формализовать алгоритм я сейчас не смог бы.. Вы можете написать правила по которым можно решить данную задачу?!

___________________________________ ____________

старенькая игрушка Флип-флоп. (rapidshare, 3176 KB)
Цитата:
Описание игры.

Правила игры просты. Вам надо открыть все окна в доме. Чтобы открыть или закрыть окно, подведите к нему курсор мышки и нажмите левую кнопку. Но все остальные окошки в этом же ряду и столбце тоже поменяют свое состояние на противоположное.
Справившись с задачей на первом этаже, наш герой с помощью лифта попадает на второй этаж. Здесь ему начинает мешать противный барабашка, который сам изредка открывает или закрывает одно из окон, выбраное случайным образом. Но и с этим можно справиться. Гораздо труднее придется на третьем этаже...

Чем меньше ходов вы сделаете прежде, чем открыть все окна, тем больше очков наберете. После ста ходов игра прекращается, и, если вы за это время смогли пройти хотя бы один уровень, то ваш результат запоминается.

Flip-Flop Help

Последний раз редактировалось Serge_Bliznykov; 18.11.2009 в 14:06.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
матрица в паскале GaJIbI4 Паскаль, Turbo Pascal, PascalABC.NET 12 02.06.2010 10:07
Матрица в Паскале Stas9n Помощь студентам 4 06.08.2009 19:21
Матрица в паскале Алeксандр Паскаль, Turbo Pascal, PascalABC.NET 1 21.01.2009 18:22
МАТРИЦА В ПАСКАЛЕ евгения, Помощь студентам 4 31.05.2007 19:32