Реферат: Программная система обработки и анализа изображений

dx, dy, Rand: word;

A, B, C, D, E, F: real;

x, y: word;

i: longint;

begin

A := 0.5; B := 0.5; E := 0;

C := 0.3; D := 0; F := 1;

dx := (xEnd-xStart+1) div 2; xEnd := xStart +2*dx - 1;

dy := (yEnd-yStart+1) div 2; yEnd := yStart +2*dy - 1;

x := xStart+dx; y := yStart+dy;

Randomize;

for i := 1 to 50000 do begin

Rand := Random(10);

Case Rand of

0..3: begin

x := xStart + 1 + (x-xStart+1) div 2;

y := yStart + 1 + (y-yStart+1) div 2;

end;

4: begin

x := xStart + dx + (x-xStart+1) div 2;

y := yStart + 1 + (y-yStart+1) div 2;

end;

5: begin

x := xStart + 1 + (x-xStart+1) div 2;

y := yStart + dy + (y-yStart+1) div 2;

end;

6..9: begin

x := xStart + dx + (x-xStart+1) div 2;

y := yStart + dy + (y-yStart+1) div 2;