1) на бесконечном поле имеются две одинаковые вертикальные стены и одна горизонтальная, соединяющая нижние концы стен. длины стен неизвестны. робот находится в одной из клеток, расположенных между верхними краями вертикальных стен. hапишите для робота алгоритм, закрашивающий все клетки, расположенные ниже горизонтальной стены непосредственно под ней.2) на бесконечном поле имеется вертикальная стена. длина стены неизвестна. от верхнего конца стены вправо отходит горизонтальная стена также неизвестной длины. от правого конца этой стены отходит вниз вторая вертикальная стена неизвестной длины. робот находится в клетке, расположенной справа от нижнего края первой вертикальной стены. напишите для робота алгоритм, закрашивающий клетку, на которой находится робот первоначально, и клетки, расположенные слева от второй вертикальной стены.
Ответы
Спираль из центра массива по часовой стрелке (для нечетных n):
const n=7;
var a:array[1..n,1..n] of integer;
i,j,d,k,l,m:integer;
begin
k:=n*n;
i:=n div 2 + 1; j:=n div 2 + 1;
a[i,j]:=k;
d:=1;
for m:=1 to n div 2 do
begin
for l:=1 to d do
begin k:=k-1; j:=j+1; a[i,j]:=k; end;
for l:=1 to d do
begin k:=k-1; i:=i+1; a[i,j]:=k; end;
d:=d+1;
for l:=1 to d do
begin k:=k-1; j:=j-1; a[i,j]:=k; end;
for l:=1 to d do
begin k:=k-1; i:=i-1; a[i,j]:=k; end;
d:=d+1;
end;
d:=d-1;
for l:=1 to d do
begin k:=k-1; j:=j+1; a[i,j]:=k; end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Результат:
7 6 5 4 3 2 1
8 29 28 27 26 25 24
9 30 43 42 41 40 23
10 31 44 49 48 39 22
11 32 45 46 47 38 21
12 33 34 35 36 37 20
13 14 15 16 17 18 19
const n=7;
var a:array[1..n,1..n] of integer;
i,j,d,k,l,m:integer;
begin
k:=n*n;
i:=n div 2 + 1; j:=n div 2 + 1;
a[i,j]:=k;
d:=1;
for m:=1 to n div 2 do
begin
for l:=1 to d do
begin k:=k-1; j:=j+1; a[i,j]:=k; end;
for l:=1 to d do
begin k:=k-1; i:=i+1; a[i,j]:=k; end;
d:=d+1;
for l:=1 to d do
begin k:=k-1; j:=j-1; a[i,j]:=k; end;
for l:=1 to d do
begin k:=k-1; i:=i-1; a[i,j]:=k; end;
d:=d+1;
end;
d:=d-1;
for l:=1 to d do
begin k:=k-1; j:=j+1; a[i,j]:=k; end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Результат:
7 6 5 4 3 2 1
8 29 28 27 26 25 24
9 30 43 42 41 40 23
10 31 44 49 48 39 22
11 32 45 46 47 38 21
12 33 34 35 36 37 20
13 14 15 16 17 18 19
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Действия с информацией - это действие , связанные с
Автор: yusovd291
Программа на паскале, которая считает сумму трёх последних цифр в числе.
Автор: зырянов_Юрьевна378
Замени шестнадцатеричную цифру B четырьмя двоичными цифрами (тетрадой
Автор: bagramyansvetlana
Багато користувачів вважають, що якщо фотографії викладені в мережу, їх автори надали дозвіл на їх вільне використання. Такі міркування є помилковими, та призводять до порушення законодавства України про авторські та суміжні права. Тому важливо знати правила, які охороняють твори та їх авторів від протиправних посягань з боку інших осіб.
Про відповідальність за порушення законодавства про авторські права та захисту своїх прав інтелектуальної власності розповідає фахівчиня Першого одеського бюро правової до Ірина Кисельова.
Одним з поширених порушень авторського права є протиправне розміщення письмового твору автора в мережі Інтернет. Захищати власні права важливо: ставлення до таких кейсів може стати серйознішим, якщо вони частіше будуть з’являтися в інформаційному просторі.