Информационные процессы в живой природе распространены гораздо больше, чем это может показаться на первый взгляд. С ними связано опадение листвы осенью, прорастание цветов весной и другие привычные явления хранить, передавать и получать информацию — одна из особенностей живой материи. Без нее невозможен нормальный обмен веществ, при к условиям окружающей среды, обучение и так далее. Информационные процессы в неживой природе также существуют, но отличаются несколькими особенностями и в первую очередь выступают в качестве меры упорядоченности системы. - Читайте подробнее на FB.ru: http://fb.ru/article/240131/informatsionnyie-protsessyi-v-jivoy-prirode-ponyatie-informatsionnogo-pr...
Var i, j, k : integer; a : array [0..9,0..9] of char; procedure U(i,j:integer); var c : char; begin c:=a[i,j]; a[i,j]:=' '; if (c='W')and(a[i+1,j]='B') then U(i+1,j); if (c='B')and(a[i+1,j]='W') then U(i+1,j); if (c='W')and(a[i-1,j]='B') then U(i-1,j); if (c='B')and(a[i-1,j]='W') then U(i-1,j); if (c='W')and(a[i,j+1]='B') then U(i,j+1); if (c='B')and(a[i,j+1]='W') then U(i,j+1); if (c='W')and(a[i,j-1]='B') then U(i,j-1); if (c='B')and(a[i,j-1]='W') then U(i,j-1); end; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); for i:=1 to 8 do begin for j:=1 to 8 do read(a[i,j]); readln end; for i:=1 to 8 do begin a[0,i]:=' '; a[9,i]:=' '; a[i,0]:=' '; a[i,9]:=' ' end; k:=0; for i:=1 to 8 do for j:=1 to 8 do if a[i,j]<>' ' then begin k:=k+1; U(i,j) end; write(k); close(output) end.
Var i, j, k : integer; a : array [0..9,0..9] of char; procedure U(i,j:integer); var c : char; begin c:=a[i,j]; a[i,j]:=' '; if (c='W')and(a[i+1,j]='B') then U(i+1,j); if (c='B')and(a[i+1,j]='W') then U(i+1,j); if (c='W')and(a[i-1,j]='B') then U(i-1,j); if (c='B')and(a[i-1,j]='W') then U(i-1,j); if (c='W')and(a[i,j+1]='B') then U(i,j+1); if (c='B')and(a[i,j+1]='W') then U(i,j+1); if (c='W')and(a[i,j-1]='B') then U(i,j-1); if (c='B')and(a[i,j-1]='W') then U(i,j-1); end; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); for i:=1 to 8 do begin for j:=1 to 8 do read(a[i,j]); readln end; for i:=1 to 8 do begin a[0,i]:=' '; a[9,i]:=' '; a[i,0]:=' '; a[i,9]:=' ' end; k:=0; for i:=1 to 8 do for j:=1 to 8 do if a[i,j]<>' ' then begin k:=k+1; U(i,j) end; write(k); close(output) end.
Информационные процессы в живой природе распространены гораздо больше, чем это может показаться на первый взгляд. С ними связано опадение листвы осенью, прорастание цветов весной и другие привычные явления хранить, передавать и получать информацию — одна из особенностей живой материи. Без нее невозможен нормальный обмен веществ, при к условиям окружающей среды, обучение и так далее. Информационные процессы в неживой природе также существуют, но отличаются несколькими особенностями и в первую очередь выступают в качестве меры упорядоченности системы. - Читайте подробнее на FB.ru: http://fb.ru/article/240131/informatsionnyie-protsessyi-v-jivoy-prirode-ponyatie-informatsionnogo-pr...