1..10,1..10] of real; _mas: array [1..10] of integer; _mas_hod: array [1..10] of real; _mas_ger: array [1..10] of real; _mas: array [1..10] of integer; _mas: array [1..10] of real; _par: array [1..10] of real; _bair: array [1..10] of real; _el_stol: array [1..10] of integer;,j:integer;,n,u:string;,dl,min:integer;,c1,c:variant;,znach,znach1,param_bair,ver:real;.Clear;.Clear;.Clear;.clear;.Clear;.Clear;.Clear;.clear;14.clear;
dt:=InputBox ( Розмір матриці raquo ;, Кількість досліджень - 3 , 3 );
kol:=strtoint (dt);:=1; x:=1 to kol doy:=1 to kol do:=inputbox ( Введіть елемент: + inttostr (j), , ); [x, y]:=Strtoint (n);:=j + 1 ;;;
//// Виведення масиву:=0;:=0;:= raquo ;; y:=1 to kol dox:=1 to kol do:=Length (inttostr (z [ x, y])); (y123 lt; 6) then y124:=6-y123;:=inttostr (z [x, y]); dl:=1 to y124 do:= + st1 ;;:=st + st1 ;;. Items.Add (st);:= raquo ;;; (Checkbox1.Checked=true) then
//// Мінімальні:=1; y lt;=kol do:=1;:=z [x, y];:=z [x, y]; x lt;=kol domin1 gt; z [x, y] then min1:=z [x, y]; max lt; z [x, y] then max:=z [x, y];:=x + 1 ;; _ mas [y]:=min1 ; _mas [y]:=max;:=y + 1 ;; x:=1 to kol do.Items.Add (inttostr (min_mas [x])) ;;. Visible:=true;:=min_mas [1] ; x:=1 to kol do (max lt; min_mas [x]) then max:=min_mas [x] ;;. text:=inttostr (max); x:=1 to kol do.Items.Add (inttostr (max_mas [x])) ;;. Visible:=true ;;:=0;:=0;:= raquo ;; y:=1 to kol dox:=1 to kol do:=Length (inttostr (z [ x, y])); (y123 lt; 6) then y124:=6-y123;:=inttostr (z [x, y]); dl:=1 to y124 do:= + st1 ;;:=st + st1 ;;. Items.Add (st);:= raquo ;;; (Checkbox1.Checked=true) then (Checkbox2.Checked=true) then:=InputBox ( laquo ; Критерій Гурвіца raquo ;, , 0,5 );
Label32.Caption:=c;:=strtofloat (c); 1:=1-c;
///////// Мінімальний, максимальний масив
y:=1;
while y lt;=kol do:=1;:=z [x, y];:=z [x, y]; x lt;=kol domin1 gt; z [x, y] then min1 :=z [x, y]; max lt; z [x, y] then max:=z [x, y];:=x + 1 ;; _ mas [y]:=min1; _mas [y]:=max ;:=y + 1 ;;
////////////////////////////////////// x:=1 to kol do_mas [x]:=min_mas [x] * c + max_mas [x] * c1 ;;:=vich_mas [1]; x:=1 to kol do (max2 lt; vich_mas [x]) then max2:=vich_mas [x] ;;. text:=floattostr (max2); x:=1 to kol do.Items.Add (floattostr (vich_mas [x])) ;;;
///////////////// Байеса-Лапласа (Checkbox3.Checked=true) thenx:=1 to kol do:=inputbox ( Введіть параметр Байеса-Лапласа:raquo;,laquo;0.5,0.3,0.2raquo;,laquo;raquo;);_par[x]:=StrtoFloat(n);.Items.Add(n);:=j+1;;:=0;:=1;ylt;=kol do:=1; x lt;=kol do:=0; _bair:=mas_par [x];:=z [x, y] * param_bair;:=znach1 + znach;:=x + 1 ;; _ bair [y] :=znach1;:=0;:=y + 1;
//// Висновок в Boxx:=1 to kol do.Items.Add (floattostr (mas_bair [x])) ;;:=vich_mas [1]; x:=1 to kol do (max2 lt; vich_mas [x]) then max2:=vich_mas [x] ;;. text:=floattostr (max2); x:=1 to kol do.Items.Add (floattostr (vich_mas [x])) ;;
end;
///// Пошук максимального значення
max2:=mas_bair [1];
for x:=1 to kol do (max2 lt; mas_bair [x]) then max2:=mas_bair [x] ;;. text:=floattostr (max2) ;;
//// Критерій Севіджа (Checkbox4.Checked=true) then:=1; y lt;=kol do:=1;:=z [y, x]; x lt;=kol domax lt; z [y, x] then max:=z [y, x];:=x + 1 ;; _ el_stol [y]:=max;:=y + 1 ;;
////////////////////////:=1; y lt;=kol do:=1; x lt;=kol do_sed [y, x]:=max_el_stol [y] -z [y, x];:=x + 1 ;;:=y + 1 ;;
///////////:=0;:=0;:= raquo ;;:=1; y lt;=kol do:=1; x lt;= kol do:=Length (inttostr (matr_sed [x, y])); (y123 lt; 6) then y124:=6-y123;:=inttostr (matr_sed [x, y]);:=x + 1; dl: =1 to y124 do:= + st1 ;;:=st + st1 ;;. Items.Add (st);:= raquo ;;:=y + 1 ;;
/////////////. Clear; x:=1 to kol do.Items.Add (inttostr (max_el_stol [x])) ;;
/// Максимальний:=1; y lt;=kol do:=1;:=matr_sed [x, y]; x lt;=kol domax lt; matr_sed [x, y] then max:= matr_sed [x, y];:=x + 1 ;; _ mas [y]:=max;:=y + 1 ;; x:=1 to kol do.Items.Add (inttostr (max_mas [x])); ;
////////////:=max_mas [1]; x:=1 to kol do (min gt; max_mas [x]) then min:=max_mas [x] ;;. text:=inttostr (min) ;;; TForm1.Timer1Timer (Sender: TObject) ;. Panels [0] .Text:=TimeToStr (Time) ;; TForm1.FormCreate (Sender: TObject) ;. Panels [1 ] .Text:=Application.ExeName ;; TForm1.ApplicationEvents1Exception (Sender: TObject ;: Exception);:=3 ;; TForm1.CheckBox1Click (Sender: TObject);.BitBtn1.Enabled:=true;.Image1.Visible:=false;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;(Checkbox1.Checked=false) then.Visible:=false; .Visible:=false; .Visible:=false; .Visible:=false ;;;. Clear; x:=1 ...
