Комплекс компьютерных программ эффективного математического моделирования на языке Турбо Паскаль. Черный А.А. - 19 стр.

UptoLike

Составители: 

19
writeln(F0,'Расчетная величина F-критерия F6=',F6);
if F6<=F7 then
begin
writeln('Адекватно, так как F6<=F7');
writeln(F0,'Адекватно, так как F6<=F7');
end;
if F6>F7 then
begin
writeln('Неадекватно, так как F6>F7');
writeln(F0,'Неадекватно, так как F6>F7');
end;
if X=2 then
begin
writeln(F0,'X=2. System, 1.1 - 1.2, finish 1.2.');
writeln(F0,'1.1.','A1=',A1,'Z(1)=',Z[1]);
writeln(F0,'1.2.','B1=',B1,'Z(2)=',Z[2]);
end;
if X=4 then
begin
writeln(F0,'X=4. System, 1.1 - 4.2, finish 4.2.');
writeln(F0,'1.1.','A2=',A2,'A1=',A1,'Z(1)=',Z[1]);
writeln(F0,'1.2.','A2=',A2,'B1=',B1,'Z(2)=',Z[2]);
writeln(F0,'2.1.','B2=',B2,'A1=',A1,'Z(3)=',Z[3]);
writeln(F0,'2.2.','B2=',B2,'B1=',B1,'Z(4)=',Z[4]);
writeln(F0,'3.1.','A1=',A1,'A2=',A2,'Z(1)=',Z[1]);
writeln(F0,'3.2.','A1=',A1,'B2=',B2,'Z(3)=',Z[3]);
writeln(F0,'4.1.','B1=',B1,'A2=',A2,'Z(2)=',Z[2]);
writeln(F0,'4.2.','B1=',B1,'B2=',B2,'Z(4)=',Z[4]);
end;
if X=8 then
begin
writeln(F0,'X=8. System, 1.1 - 12.2, finish 12.2.');
writeln(F0,'1.1.','A2=',A2,'A3=',A3,'A1=',A1,'Z(1)=',Z[1]);
writeln(F0,'1.2.','A2=',A2,'A3=',A3,'B1=',B1,'Z(2)=',Z[2]);
writeln(F0,'2.1.','A2=',A2,'B3=',B3,'A1=',A1,'Z(5)=',Z[5]);
writeln(F0,'2.2.','A2=',A2,'B3=',B3,'B1=',B1,'Z(6)=',Z[6]);
writeln(F0,'3.1.','B2=',B2,'A3=',A3,'A1=',A1,'Z(3)=',Z[3]);
writeln(F0,'3.2.','B2=',B2,'A3=',A3,'B1=',B1,'Z(4)=',Z[4]);
writeln(F0,'4.1.','B2=',B2,'B3=',B3,'A1=',A1,'Z(7)=',Z[7]);
writeln(F0,'4.2.','B2=',B2,'B3=',B3,'B1=',B1,'Z(8)=',Z[8]);
writeln(F0,'5.1.','A1=',A1,'A3=',A3,'A2=',A2,'Z(1)=',Z[1]);
writeln(F0,'5.2.','A1=',A1,'A3=',A3,'B2=',B2,'Z(3)=',Z[3]);
writeln(F0,'6.1.','A1=',A1,'B3=',B3,'A2=',A2,'Z(5)=',Z[5]);
writeln(F0,'6.2.','A1=',A1,'B3=',B3,'B2=',B2,'Z(7)=',Z[7]);
writeln(F0,'7.1.','B1=',B1,'A3=',A3,'A2=',A2,'Z(2)=',Z[2]);
writeln(F0,'7.2.','B1=',B1,'A3=',A3,'B2=',B2,'Z(4)=',Z[4]);
writeln(F0,'8.1.','B1=',B1,'B3=',B3,'A2=',A2,'Z(6)=',Z[6]);
writeln(F0,'8.2.','B1=',B1,'B3=',B3,'B2=',B2,'Z(8)=',Z[8]);
writeln(F0,'9.1.','A1=',A1,'A2=',A2,'A3=',A3,'Z(1)=',Z[1]);
writeln(F0,'9.2.','A1=',A1,'A2=',A2,'B3=',B3,'Z(5)=',Z[5]);
writeln(F0,'10.1.','A1=',A1,'B2=',B2,'A3=',A3,'Z(3)=',Z[3]);
writeln(F0,'10.2.','A1=',A1,'B2=',B2,'B3=',B3,'Z(7)=',Z[7]);
writeln(F0,'11.1.','B1=',B1,'A2=',A2,'A3=',A3,'Z(2)=',Z[2]);
writeln(F0,'11.2.','B1=',B1,'A2=',A2,'B3=',B3,'Z(6)=',Z[6]);
writeln(F0,'12.1.','B1=',B1,'B2=',B2,'A3=',A3,'Z(4)=',Z[4]);
writeln(F0,'12.2.','B1=',B1,'B2=',B2,'B3=',B3,'Z(8)=',Z[8]);
end;
   writeln(F0,'Расчетная величина F-критерия F6=',F6);
   if F6<=F7 then
     begin
      writeln('Адекватно, так как F6<=F7');
      writeln(F0,'Адекватно, так как F6<=F7');
     end;
   if F6>F7 then
     begin
      writeln('Неадекватно, так как F6>F7');
      writeln(F0,'Неадекватно, так как F6>F7');
    end;
if X=2 then
  begin
    writeln(F0,'X=2. System, 1.1 - 1.2, finish 1.2.');
    writeln(F0,'1.1.','A1=',A1,'Z(1)=',Z[1]);
    writeln(F0,'1.2.','B1=',B1,'Z(2)=',Z[2]);
   end;
if X=4 then
  begin
    writeln(F0,'X=4. System, 1.1 - 4.2, finish 4.2.');
    writeln(F0,'1.1.','A2=',A2,'A1=',A1,'Z(1)=',Z[1]);
    writeln(F0,'1.2.','A2=',A2,'B1=',B1,'Z(2)=',Z[2]);
    writeln(F0,'2.1.','B2=',B2,'A1=',A1,'Z(3)=',Z[3]);
    writeln(F0,'2.2.','B2=',B2,'B1=',B1,'Z(4)=',Z[4]);
    writeln(F0,'3.1.','A1=',A1,'A2=',A2,'Z(1)=',Z[1]);
    writeln(F0,'3.2.','A1=',A1,'B2=',B2,'Z(3)=',Z[3]);
    writeln(F0,'4.1.','B1=',B1,'A2=',A2,'Z(2)=',Z[2]);
    writeln(F0,'4.2.','B1=',B1,'B2=',B2,'Z(4)=',Z[4]);
    end;
if X=8 then
  begin
    writeln(F0,'X=8. System, 1.1 - 12.2, finish 12.2.');
    writeln(F0,'1.1.','A2=',A2,'A3=',A3,'A1=',A1,'Z(1)=',Z[1]);
    writeln(F0,'1.2.','A2=',A2,'A3=',A3,'B1=',B1,'Z(2)=',Z[2]);
    writeln(F0,'2.1.','A2=',A2,'B3=',B3,'A1=',A1,'Z(5)=',Z[5]);
    writeln(F0,'2.2.','A2=',A2,'B3=',B3,'B1=',B1,'Z(6)=',Z[6]);
    writeln(F0,'3.1.','B2=',B2,'A3=',A3,'A1=',A1,'Z(3)=',Z[3]);
    writeln(F0,'3.2.','B2=',B2,'A3=',A3,'B1=',B1,'Z(4)=',Z[4]);
    writeln(F0,'4.1.','B2=',B2,'B3=',B3,'A1=',A1,'Z(7)=',Z[7]);
    writeln(F0,'4.2.','B2=',B2,'B3=',B3,'B1=',B1,'Z(8)=',Z[8]);
    writeln(F0,'5.1.','A1=',A1,'A3=',A3,'A2=',A2,'Z(1)=',Z[1]);
    writeln(F0,'5.2.','A1=',A1,'A3=',A3,'B2=',B2,'Z(3)=',Z[3]);
    writeln(F0,'6.1.','A1=',A1,'B3=',B3,'A2=',A2,'Z(5)=',Z[5]);
    writeln(F0,'6.2.','A1=',A1,'B3=',B3,'B2=',B2,'Z(7)=',Z[7]);
    writeln(F0,'7.1.','B1=',B1,'A3=',A3,'A2=',A2,'Z(2)=',Z[2]);
    writeln(F0,'7.2.','B1=',B1,'A3=',A3,'B2=',B2,'Z(4)=',Z[4]);
    writeln(F0,'8.1.','B1=',B1,'B3=',B3,'A2=',A2,'Z(6)=',Z[6]);
    writeln(F0,'8.2.','B1=',B1,'B3=',B3,'B2=',B2,'Z(8)=',Z[8]);
    writeln(F0,'9.1.','A1=',A1,'A2=',A2,'A3=',A3,'Z(1)=',Z[1]);
    writeln(F0,'9.2.','A1=',A1,'A2=',A2,'B3=',B3,'Z(5)=',Z[5]);
    writeln(F0,'10.1.','A1=',A1,'B2=',B2,'A3=',A3,'Z(3)=',Z[3]);
    writeln(F0,'10.2.','A1=',A1,'B2=',B2,'B3=',B3,'Z(7)=',Z[7]);
    writeln(F0,'11.1.','B1=',B1,'A2=',A2,'A3=',A3,'Z(2)=',Z[2]);
    writeln(F0,'11.2.','B1=',B1,'A2=',A2,'B3=',B3,'Z(6)=',Z[6]);
    writeln(F0,'12.1.','B1=',B1,'B2=',B2,'A3=',A3,'Z(4)=',Z[4]);
    writeln(F0,'12.2.','B1=',B1,'B2=',B2,'B3=',B3,'Z(8)=',Z[8]);
  end;




                                                      19