|
Результаты поиска
| |
| vicu2010 | Дата: Среда, 23 Января 2013, 21:57 | Сообщение # 421 | Тема: Посчитать прямоугольники на клеточном листе |
Сейчас нет на сайте
| fireday, Не знаю что в твоём варианте с проверочником(check var), но всунув и его в мой алгоритм, он заработал:
Код program dreptunghi;
var a : array[1..3000,1..3000] of byte;
i,j,u,n,m:integer; inp:text;
begin
Writeln('Introdu N:');
readln(n);
assign(inp, 'inp.txt'); reset(inp);
for i:=1 to n do begin
for j:=1 to n do read(inp, a[i,j]);
readln(inp); end;
for i:=1 to n do begin
for j:=1 to n do write(a[i,j],' ');
writeln; end;
writeln;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=1 then begin
u:=0;
if (a[i-1,j])=0 then u:=u+1;
if (a[i,j+1])=0 then u:=u+1;
if u=2 then m:=m+1;
end;
for i:=1 to n do begin
for j:=1 to n do write(a[i,j],' ');
writeln; end;
Writeln(m);
close(inp);
end. Добавлено (23.01.2013, 21:57)
---------------------------------------------
GECK, ну да, я просто изучаю азы...
 
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| |
| vicu2010 | Дата: Среда, 23 Января 2013, 21:12 | Сообщение # 422 | Тема: Посчитать прямоугольники на клеточном листе |
|
Сейчас нет на сайте
| fireday, спасибо, работает и к тому-же всё просто и понятно) Добавлено (23.01.2013, 21:12)
---------------------------------------------
Цитата (Сибирский) vicu2010, если олимпиада не лоховская какая-нибудь, сдаются задачи на тестировщик. Тогда возможность использования языка определяется компилятором.
Не знаю, я в этом заведение первый год участвую... А так, то в колледже нас обычному паскалю обучают..
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| |
| vicu2010 | Дата: Среда, 23 Января 2013, 21:00 | Сообщение # 423 | Тема: Посчитать прямоугольники на клеточном листе |
|
Сейчас нет на сайте
| GECK, Спасибо чел, работает, но это чертовски большая программа, я бы сказал уж слишком большая... И использовал ты обжект паскаль - не думаю, что на олимпиадах такое позволят((
Дело в том, что вопрос просто про прямоугольники, пересекаться и накладываться они не могут, т.е. всегда между прямоугольников будут нолики...
Я пытаюсь сделать через алгоритм, типа если клетка равна 1 и клетка сверху и слева этой 0 - то прибавить к счётчику. Однако почему-то не работает. Вот код:
Код program dreptunghi;
var a : array[1..3000,1..3000] of byte;
i,j,u,n:integer; inp:text;
begin
Writeln('Introdu N:');
readln(n); // колво колонок
assign(inp, 'inp.txt'); reset(inp); // тут грузим матрицу с тхтэщника
for i:=1 to n do begin
for j:=1 to n do read(inp, a[i,j]);
readln(inp); end;
for i:=1 to n do begin
for j:=1 to n do write(a[i,j],' ');
writeln; end;
writeln;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=1 then begin
if (a[i-1,j]) and (a[i,j+1])=0 then u:=u+1;
end;
//собственно тут происходит проверка
for i:=1 to n do begin
for j:=1 to n do write(a[i,j],' ');
writeln; end;
Writeln(u);
close(inp);
end.
Понять не могу почему не срабатывает, ещё подумаю - попробую решить.Добавлено (23.01.2013, 21:00)
---------------------------------------------
Цитата (fireday) Могут ли они соприкасаться?
нет
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| |
| vicu2010 | Дата: Среда, 23 Января 2013, 15:11 | Сообщение # 424 | Тема: Посчитать прямоугольники на клеточном листе |
|
Сейчас нет на сайте
| Размер может быть любым. Так-же и размер карты может быть любым. Добавлено (23.01.2013, 15:11)
---------------------------------------------
Пацаны помогите, реально надо. Надо за 2 дня выучить эти чёртовы алгоритмы, а понять их без помощи не могу.... тим круз, ты где?
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| |
| vicu2010 | Дата: Вторник, 22 Января 2013, 23:16 | Сообщение # 425 | Тема: Посчитать прямоугольники на клеточном листе |
|
Сейчас нет на сайте
| Помогите решить, вопрос конечно разъеженный - но я в гугле на ответ не наткнулся. Был бы рад если-бы кто-нибудь мне объяснил как всё делается, я знаком с массивами и программирую вроде по чуть-чуть - хочу подготовится к олимпиаде.
Имеется квадратный клетчатый лист, на нем n*n клеток. Из нескольких клеток делаются прямоугольники, которые никогда не накладываются друг на друга. Прямоугольник может состоять даже из одной клетки. Они выделены цифрой 1, когда фон цифрой 0.
Цель: Посчитать Прямоугольники на листе.
К примеру: n=5
0 0 0 0 0
1 0 1 1 0
1 0 1 1 0
0 0 0 0 0
0 0 0 0 0
В данном случае у нас 2 прямоугольника в матрице.
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
Сообщение отредактировал vicu2010 - Среда, 23 Января 2013, 20:01 |
|
|
| | |
| vicu2010 | Дата: Воскресенье, 20 Января 2013, 22:00 | Сообщение # 427 | Тема: Ноутбук греется после выключения |
|
Сейчас нет на сайте
| Вот такая проблема, заметил недавно.
Бывал в колледже с ноутом, и там он не хотел работать(драйвер сети слетел) и я его выключил и в чехол.
Когда пришел ужаснулся - он был очень тёплым, я вынул акумулятор и оставил на время.
Потом включать не выходило, я вспомнил что на кануне устанавливал драйвера, и один заглючил при установке.
Я включил комп из безопасного режима и снёс драйвер, далее комп работал нормально. Но при выключении, когда ставлю в чехол на хранение через время замечаю что он нагревается.
Если уже выну аккумулятор и поставлю обратно то температура спадает.
Что за хрень?
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| | | | | | |
| vicu2010 | Дата: Суббота, 12 Января 2013, 01:22 | Сообщение # 433 | Тема: Колесо Фортуны - УбейМозг |
|
Сейчас нет на сайте
| 
Название: Wheel of Fortune - BrainFuck / Колесо Фортуны - УбейМозг
Разработка: vicu2010
В продолжении игр о Поле Чудес, я разработал очередную игру, теперь на С2.
Суть игры:
Крути барабан, угадывай слова.
Играть в браузере, скачать на windows: TheVictor.Com
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
Сообщение отредактировал vicu2010 - Суббота, 12 Января 2013, 02:15 |
|
|
| | |
| vicu2010 | Дата: Пятница, 11 Января 2013, 00:59 | Сообщение # 435 | Тема: Поле Чудес на Pascal |
|
Сейчас нет на сайте
| Цитата (Destroy) да какой годок почитай пару вечерков книгу про delphi и научишься)
основа у тебя есть
Да лень просто, а через пару годков начну сурьёзно заниматься)
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| | | |
| vicu2010 | Дата: Четверг, 10 Января 2013, 01:41 | Сообщение # 438 | Тема: Falcoware - Заработай на своих играх! |
|
Сейчас нет на сайте
| Цитата (falcoware) Хорошие новости - РК заплатит за украденные установки.
Республика Казахстан?
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| |
| vicu2010 | Дата: Четверг, 10 Января 2013, 01:24 | Сообщение # 439 | Тема: Falcoware - Заработай на своих играх! |
|
Сейчас нет на сайте
| Цитата (falcoware) SarCasm, Bs1, мы бы хотели предоставить хостинг, много места,
Вы слышали об ucoz?
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
|
|
|
| |
| vicu2010 | Дата: Четверг, 10 Января 2013, 00:25 | Сообщение # 440 | Тема: Поле Чудес на Pascal |
|
Сейчас нет на сайте
|
Разработал Поле Чудес на Паскале. Правда игра в досном виде, т.е. без графики.
Играйте и вносите свои слова.
Скачать: Поле Чудес Паскаль
Программист Ruby on Rails / COBOL | Веб-дизайнер(Bootstrap, HTML5, JS) | Викверс на Construct 2 / Classic
Сообщение отредактировал vicu2010 - Воскресенье, 16 Июня 2013, 15:31 |
|
|
| |
|
