Самоучитель по UML




Методология процедурно-ориентированного - часть 4


            end;

          for j:=1 to К do 

            for i:=l to N do 

              begin

                S:=0.0; 

                P:=0.0; 

                Q:=0.0; 

                for l:=1 to M do

                  S:=S+sqr(Xpr[i,l]-Zentr[j,l]); 

                P:=1.0/S; 

              end; 

            Q:=0.0; 

            D:=0;

            for i:=1 to N do 

              for j:=1 to К do

                if Abs(Wl[i,j]-W2[i,j]) >= Eps then D:=l; 

              for i:=l to N do

                for j:=1 to К do

                  W1[i,j]:=W2[i,j] 

  Until (D=0)or(NumIt=NumMax) 




Содержание  Назад  Вперед