Решите, пожалуйста задачу в Кумире, на ВЕТВЛЕНИЯ?

Anitka120405 13 дек. 2020 г., 15:45:55

Var

N : integer = 600 ;

LABIRINT : array[0.

600, 0.

600] of integer ;

.

Procedure setBlankAsDeadblockRec(x, y : integer) ;

var k : integer ;

begin

k : = 0 ;

if LABIRINT[x, y] = blank then

begin

if LABIRINT[x - 1, y]< ; > ; BLANK then k : = k + 1 ;

if LABIRINT[x, y - 1]< ; > ; BLANK then k : = k + 1 ;

if LABIRINT[x + 1, y]< ; > ; BLANK then k : = k + 1 ;

if LABIRINT[x, y + 1]< ; > ; BLANK then k : = k + 1 ;

if k = 4 then LABIRINT[x, y] : = DEADBLOCK ;

if k = 3 then

begin

LABIRINT[x, y] : = DEADBLOCK ;

if LABIRINT[x - 1, y] = BLANK then setBlankAsDeadblockRec(x - 1, y) ;

if LABIRINT[x, y - 1] = BLANK then setBlankAsDeadblockRec(x, y - 1) ;

if LABIRINT[x + 1, y] = BLANK then setBlankAsDeadblockRec(x + 1, y) ;

if LABIRINT[x, y + 1] = BLANK then setBlankAsDeadblockRec(x, y + 1) ;

end ;

end ;

end ;

procedure setDeadblock ;

var i, j : integer ;

begin

for i : = 1 to N - 1 do

for j : = 1 to N - 1 do

setBlankAsDeadblockRec(i, j) ;

end ;

Nataa25 13 дек. 2020 г., 15:45:58

Нач

нц

пока справа свободно вправо

кц

нц

пока снизу свободно вниз

кц

нц

пока слева не свободно вверх

кц

нц

пока слева свободно влево

кц

кон.

Elenaelena45 30 мая 2020 г., 11:18:52 | 5 - 9 классы

Составить и решить задачу на ветвление и циклСРОЧНО?

Составить и решить задачу на ветвление и цикл

СРОЧНО!

Агатия 10 янв. 2020 г., 20:58:23 | 5 - 9 классы

Дано двузначное число верно ли что все цифры этого числа одинаковые?

Дано двузначное число верно ли что все цифры этого числа одинаковые.

ПОЖАЛУЙСТА!

ОЧЕНЬ СРОЧНО !

РЕШИТЕ В КУМИРЕ!

Помощь4535 8 нояб. 2020 г., 18:56:09 | 10 - 11 классы

Решите задачу плиз я не понимаю не можете ли вы решить даю 109 баллов?

Решите задачу плиз я не понимаю не можете ли вы решить даю 109 баллов.

Vestlen1 26 июн. 2020 г., 13:29:19 | 5 - 9 классы

Даю 78 баллов Ребята решите срочно пожалуйста очень надо?

Даю 78 баллов Ребята решите срочно пожалуйста очень надо.

Альбина74 16 февр. 2020 г., 00:35:13 | 5 - 9 классы

Нужно сделать корону в программе кумир, срочно, дам все баллы что есть?

Нужно сделать корону в программе кумир, срочно, дам все баллы что есть.

Пожалуйста срочно.

Ak07032003 2 сент. 2020 г., 05:42:44 | 10 - 11 классы

Мне нужны любые три решеные задачи на три алгоритма Линейный, ветвленый, циклический?

Мне нужны любые три решеные задачи на три алгоритма Линейный, ветвленый, циклический.

TomFrost 15 нояб. 2020 г., 23:30:12 | 5 - 9 классы

СРОЧНО?

СРОЧНО!

Помогите с информальной.

ДАЮ 20БАЛЛОВ.

Нужно обе задачи.

ПОЖАЛУЙСТА СРОЧНО.

Gorolesya 7 сент. 2020 г., 07:07:24 | 5 - 9 классы

Решите информатику задачи на ветвление 7 и 8 пожалуйста?

Решите информатику задачи на ветвление 7 и 8 пожалуйста.

MilenaK 5 окт. 2020 г., 13:26:25 | 10 - 11 классы

Линейный алгоритм?

Линейный алгоритм.

Рисование простых фигур (Кумир) Объясните пожалуйста как сделать эту задачку.

Задача выполняется на "Кумире".

Gigi15Hadid 13 окт. 2020 г., 06:04:53 | 5 - 9 классы

ПОМОГИТЕ ПОЖАЛУЙСТА?

ПОМОГИТЕ ПОЖАЛУЙСТА!

Не могу решить 2 задачи!

Даю 30 баллов!

(см. картинку прикрепленную).