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

       R5:=B[24]*I[J]*Q[J]*V[J]+B[25]*P[J]*K[J]*V[J];
       R6:=B[26]*U[J]*K[J]*Q[J]+B[27]*K[J]*Q[J]*V[J];
       Z[J]:=N3+N4+N5+N6+N7+R0+R4+R5+R6;
     end;
   end;{GB4770}
end.
unit TPG3_3;
Interface
 uses tpg3_2;
 var
   grDriver: Integer;
   grMode: Integer;
 procedure PR_MOD; procedure GB4880;
 procedure GB7000; procedure VVOD31;
 procedure VVOD32; procedure VVOD33;
 procedure VVOD41; procedure VVOD42;
 procedure VVOD51; procedure VVOD52;
 procedure tablF9; procedure OUT_F_H_L(PR:integer);
Implementation
 procedure VVOD31;
   begin
    writeln('Ввод A1 E1 B1 J1 O1');
    readln(A1,E1,B1,J1,O1);
    writeln(F0,'A1=',A1,' E1=',E1,' B1=',B1);
    writeln(F0,'J1=',J1,' O1=',O1);
   end;{VVOD31}
 procedure VVOD32;
   begin
    writeln('Ввод A2 E2 B2 J2 O2');
    readln(A2,E2,B2,J2,O2);
    writeln(F0,'A2=',A2,' E2=',E2,' B2=',B2);
    writeln(F0,'J2=',J2,' O2=',O2);
   end;{VVOD32}
 procedure VVOD33;
   begin
    writeln('Ввод A3 E3 B3 J3 O3');
    readln(A3,E3,B3,J3,O3);
    writeln(F0,'A3=',A3,' E3=',E3,' B3=',B3);
    writeln(F0,'J3=',J3,' O3=',O3);
   end;{VVOD33}
 procedure VVOD41;
   begin
    writeln('Ввод A1 C1 D1 B1 J1 O1 P1');
    readln(A1,C1,D1,B1,J1,O1,P1);
    writeln(F0,'A1=',A1,' C1=',C1,' D1=',D1);
    writeln(F0,'B1=',B1,' J1=',J1,' O1=',O1);
    writeln(F0,'P1=',P1);
   end;{VVOD41}
 procedure VVOD42;
   begin
    writeln('Ввод A2 C2 D2 B2 J2 O2 P2');
    readln(A2,C2,D2,B2,J2,O2,P2);
    writeln(F0,'A2=',A2,' C2=',C2,' D2=',D2);
    writeln(F0,'B2=',B2,' J2=',J2,' O2=',O2);
    writeln(F0,'P2=',P2);
   end;{VVOD42}
 procedure VVOD51;




                                                 476