Ткачев Ю.А. Открытые и закрытые числовые системы

63 Procedure Histo(nf,nk:integer;var H:TH;var X:TComp; var K:TK); {вычисление частот в интервалах гистограммы по данным предварительно ранжированного массива; nf - число проб; nk - число интервалов гистограммы; H - массив частот в интервалах гистограммы; X - массив значений компонентов; K - массив границ гистограммы} label 10,20; var i:integer;{номера массива интервалов гистограммы} j:integer;{нмера элементов массива данных} begin for i:=0 to nk+3 do H[i]:=0; i:=0; for j:=1 to nf do begin 10:if (X[j]>=K[i]) and (X[j]<K[i+1]) then begin H[i]:=H[i]+1;goto 20; end else begin i:=i+1;goto 10; end; 20:end; end; Procedure BubblePar(n:integer;var Diag:TComp; var DiagR:Trang); {ранжирование массива Diag с параллельным запоминанием первоначальных номеров (мест) элементов (массив DiagR) или с параллельной перестановкой элементов другого массива, с первым связанного номерами; Diag - ранжиреумый массив; DiagH - сцепленный с ним массив; n - число элементов массивов } label 10,20; var n1,k,j:integer; u1:real; u2:integer; begin n1:=n-1; for i:=1 to n1 do begin k:=i; 10:j:=k+1; if Diag[k]<=Diag[j] then goto 20; u1:= Diag[k];Diag[k]:=Diag[j];Diag[j]:=u1;