type maze = array [1..k, 1..k] of integer; var l : maze; n, m: integer; i, j: integer; c: char; t: text; w: integer; x0, y0: integer; x1, y1: integer;
procedure ways(a,b,r:integer); begin if (w = 0) or (r < w) then {нет смысла идти дальше, если текущий путь уже превосходит найденный} if (l[a,b] <> -2) then if (r < l[a,b]) or (l[a,b] = -1) then {нет смысла идти, если текущая клетка уже была достигнута за меньшее число шагов} begin l[a,b] := r; if (a = x1) and (b = y1) then w := r else begin if a <> 1 then ways(a - 1, b, r + 1); if b <> 1 then ways(a, b - 1, r + 1); if a <> n then ways(a + 1, b, r + 1); if b <> m then ways(a, b + 1, r + 1); end end; end; begin assign(t, 'input.txt'); reset(t); w := 0; readln(t, n, m); readln(t, x0, y0); readln(t, x1, y1); for i := 1 to n do begin for j := 1 to m do begin read(t, c); case c of '.' : l[i,j] := -1; {будем считать, что если клетка отмечена как -1, то путь к ней еще не найден} 'X' : l[i,j] := -2; {-2, если клетка непроходима} end; end; readln(t) end; close(t); if (l[x0,y0] <> -2) and (l[x1,y1] <> -2) then begin l[x0,y0] := 1; {просто трюк, чтобы пройти проверку на (r < l[x0,y0])} ways(x0, y0, 0); end else l[x1,y1] := -1; writeln(l[x1,y1]) end.
Слишком индивидуальный вопрос, у каждого своё мнение. Ну так уж и быть, напишу своё. Перспектива безусловно есть, ибо если вспомнить то, что было 10 лет назад, то явно можно сказать, что IT индустрия поднялась очень высоко. Могу описывать всё по отдельности, но зачем это всё нужно, напишу про самую главную часть - интернет. Само собой, это будет нечто большее, нежели сегодня. Все сайты и сервисы будут тесно завязанны социальными сетями, вплоть до кредитных карт. Очень медленно, но уже практически все перейдут на IPv6, тем самым расширяя сеть до бесконечности. Внешний адрес теперь будет практически у каждого устройства, включенного в сеть. Поисковые машины, с развитием кибернетики станут умнее, ранжировка поисковых запросов станет намного эффективнее, находить информацию станет всё проще и быстрее. Такие вещи, как голосовой поиск, станут более популярны и эффективны. И это только интернет. Но есть и другая сторона медали. Паспорта и даже ваши данные - всё это, через каких-то 10-15 лет полностью уйдут в сеть, а обычному человеку ничего не останется, как доверять третьим лицам. Тоесть об анонимности можно забыть.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку