Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 28.10.2014
Сообщений: 2
1

Неправильно читает матрицу. Задача - покраска лабиринта

05.01.2015, 19:34. Показов 625. Ответов 3
Метки нет (Все метки)

Pascal
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
var i,j,n,l:longint;
a: array [0..51,0..51] of char;
c:char;
procedure p(x,y:integer);
begin
if a[x,y]<>'.' then exit;
a[x,y]:='@';
p(x+1,y);
p(x-1,y);
p(x,y+1);
p(x,y-1);
end;
begin
readln(n);
for i:=0 to n+1 do
for j:=0 to n+1 do
a[i,j]:='#';
for i:=1 to n do
  begin
    for j:=1 to n do
      read(a[i,j]);
    readln;
  end;
p(1,1);
a[0,0]:='.';
a[0,1]:='.';
a[1,0]:='.';
a[n+1,n+1]:='.';
a[n+1,n]:='.';
a[n,n+1]:='.';
for i:=1 to n do
for j:=1 to n do
if a[i,j]='@' then
begin
if a[i+1,j]='#' then inc(l);
if a[i-1,j]='#' then inc(l);
if a[i,j+1]='#' then inc(l);
if a[i,j-1]='#' then inc(l);
end;
write(l*25);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.01.2015, 19:34
Ответы с готовыми решениями:

Программа неправильно читает заданые данные из текстового файла
Собственно, программа неправильно читает заданые данные из текстового файла. При вводе данных с...

Покраска лабиринта
Лабиринт представляет собой квадрат, состоящий из N×N сегментов. Каждый из сегментов может быть...

Задание: Покраска лабиринта
Доброго времени суток ув. программисты. Помогите решить задачу...

USBasp неправильно читает Flash, но правильно читает EEprom
Ребята выручайте, нужен мозговой штурм... Пару лет назад собрал USBasp, до недавнего времени...

3
4660 / 2346 / 2216
Регистрация: 10.12.2014
Сообщений: 9,046
06.01.2015, 05:50 2
… Хм!
… Запустил вашу программу.
… Чё-то просит ввести.
… Ввёл число.
… Ещё чё-то просит!
Да ну на фиг!
0
0 / 0 / 0
Регистрация: 28.10.2014
Сообщений: 2
06.01.2015, 19:05  [ТС] 3
пример входных данных
5
.....
...##
..#..
..###
.....
вывод
550
0
4660 / 2346 / 2216
Регистрация: 10.12.2014
Сообщений: 9,046
08.01.2015, 05:32 4
… Хм!
… Ввёл всё как ты написал.
… Получил «550».
… Вроде всё правильно!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.01.2015, 05:32

Неправильно читает из файла
Привет. Не могу разобраться почему не работает код. На вход из файла подается три числа: 2, 4, 6. ...

Неправильно читает файл
Вот код программы (суть в тесте методов С++ по работе с бинарными файлами): #include &quot;stdafx.h&quot;...

Неправильно читает данные из файла
Ситуация следующая. Выполняю ввод данных(фамилия и возраст), затем они записываются в...

Неправильно читает двоичный файл
#include &lt;iostream&gt; #include &lt;locale.h&gt; using namespace std; /*14.Информационная система «Детали...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru