Курсовая работа: Условия неопредел нности критерий Сэвиджа 2

if min> r2 then

begin

min:=r2;

z:=2;

end;

if min> r3 then

begin

min:=r3;

z:=3;

end;

if min> r4 then

begin

min:=r4;

z:=4;

end;

shapka;

{vivod podschitannogo }

for i:=1 to 4 do

begin

writeln('| day ',i:1 ,'|',a[i].c1:8:2,'|',a[i].c2:8:2,'|',a[i].c3:8:2,'|',a[i].c4:8:2,'|',

b[i].c1:7:2,'|',b[i].c2:7:2,'|',b[i].c3:7:2,'|',b[i].c4:7:2,'|' );

writeln('|_________________________________________________________________|');

end;

writeln;

writeln;

writeln(' ________________________________________________________________ ');

writeln('| |') ;

writeln('|Max(Zij-minZij):|', r1:13:2,'| ',r2:13:2,'| ',r3:13:2,'| ',r4:13:2,'|' );

writeln('|_________________________________________________________________|');