Function normal()
 Dim max,i,j,k,koeff,por
 i=0
 j=0
 k=0
 por=1		//порядок числа
 koeff=1	//коэффициент масштабирования
 max=0
 //нахождение максимального значения
 For i=1 to 5
 if data1(i)>max then max=data1(i)
 if data2(i)>max then max=data2(i)
 next
 If max>999 and max<=999000 then 
 koeff=1000 
 por=3
 End If
 If max>999000 and max<=999000000 then
 koeff=1000000
 por=6
 End If
 If max>999000000 and max<=999000000000 then
 koeff=1000000000
 por=9
 End If  
 //преобразование значений
 For i=1 to 5
 data1(i)=data1(i)/koeff
 data2(i)=data2(i)/koeff
 next
 max=max/koeff
 normal=por
End Function

назад

Поделитесь материалом с коллегами и друзьями