Забравена парола

Език

Български    Английски

Реклами




Съобщи за грешка !
Добави търсачка

Валиден XHTML 1.1 Валиден CSS 2.1
Powered by PHP Powered by MySQL
Pascal емулатор
1 потребител(и) online
Контрол на шрифта Принтирай  Текущ език: Pascal

Упражнения://Редене на код


За да решите задачата е нужно чрез мишката да разместите кода, докато получите работеща програма.

Условие на задачата:
Дадена е двумерна мрежа от клетки, всяка от които е празна или запълнена. Запълнените клетки, които са свързани, т.е. имат съседи в хоризонтално, вертикално или диагонално направление, образуват област. Да се напише програма, която по въведени координати на клетка намира размерът на областта, на която тази клетка принадлежи.


  • else
  • end;
  • if M[x, y]=0 then Broi := 0
  • Broi := 1 + Broi(M, x-1, y+1) + Broi(M, x, y+1)
  • + Broi(M, x-1, y-1) + Broi(M, x-1, y)
  • function Broi (var M : masiv; x , y : byte) : byte;
  • + Broi(M, x+1, y+1) + Broi(M, x+1, y)
  • Broi := 0
  • else
  • begin
  • if (x<1) or (x>k) or (y<1) or (y>k) then
  • + Broi(M, x+1, y-1) + Broi(M, x, y-1)
  • M[x, y] := 0;
  • end
  • begin