Математическое моделирование на языке Турбо-Паскаль. Черный А.А. - 69 стр.

unit TPG3_3;
Interface
  uses graph, 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;
   begin
     writeln('Ввод A1 C1 E1 D1 B1 J1 O1 P1 T1');
     readln(A1,C1,E1,D1,B1,J1,O1,P1,T1);
     writeln(F0,'A1=',A1,' C1=',C1,' E1=',E1);
     writeln(F0,'D1=',D1,' B1=',B1,' J1=',J1);
     writeln(F0,'O1=',O1,' P1=',P1,' T1=',T1);
   end;{VVOD51}
 procedure VVOD52;
   begin
     writeln('Ввод A2 C2 E2 D2 B2 J2 O2 P2 T2');
     readln(A2,C2,E2,D2,B2,J2,O2,P2,T2);

                                          69