Основы построения и функционирования интеллектуальных информационных систем. Былкин В.Д - 74 стр.

     varik :=strtoint(editl .Text);
      nl :=strtoint(edit2.Text);
     n2;=strtoint(edit3.Text);
     if (varlk10) then showmessage('введите от 1 до 10')
     else
     begin
     //вычисление среднего для nl значения
      for i:=l to varik do
     meanl[i]:=0;
      for i:=l to nl do
      for j:=l to varik do begin
     value :=strtoint(InputBox('ввод', 'введите значение переменной '+inttostr(j)+' для N1.
Пример‘+ inttostr(i),2')); mean1[j]:=mean1[j]+value/nl;
     end;
     //вычисление среднего для n2 значений             for i:=l to varik do
     mean2[i]:=0; for i:=l to n2 do
     for j:=l to varik do begin
     value :=strtoint( Input Box ('ввод', 'введите значение переменной '+inttostr(j)+ ' для N2.
Пример‘+- inttostr(i)/2'));
      mean2[j] :=mean2[j ]+value/n2
      end; //
     вычисление расстояний до valuemas[ ] от mean1[ ] и mean2[ ]
      distance1=0;
      distance2:=0;
      for j:=l to varik do
     begin
     valuemas[j]:=strtoint(InputBox('ввод','введите расстояние от переменной '+inttostr(j)+' до
объекта', '5'));
     distance 1:= distance l+valuemas[j ] +mean1[j];
       distance2:=distance2+valuemas|j]+main2[j]
      end;




                                                       74