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

       vvod25;
       GB2480(A5,B5,J5,V5);
       writeln(F0,'V5=',V5);
       writeln('V5=',V5);
     end;
   0: goto 2;
    else goto 2;
  end;{case}
  if (X=2)or(X=4)or(X=8)or(X=16)or(X=32) then
     begin
      F[1]:=A1; F[2]:=B1;
     end;
  if (X=4)or(X=8)or(X=16)or(X=32) then
     begin
      H[1]:=A2; H[2]:=A2; F[3]:=A1; H[3]:=B2;
      F[4]:=B1; H[4]:=B2;
     end;
  if (X=8)or(X=16)or(X=32) then
     begin
      L[1]:=A3; L[2]:=A3; L[3]:=A3; L[4]:=A3; F[5]:=A1;
      H[5]:=A2; L[5]:=B3; F[6]:=B1; H[6]:=A2; L[6]:=B3;
      F[7]:=A1; H[7]:=B2; L[7]:=B3; F[8]:=B1; H[8]:=B2;
      L[8]:=B3;
     end;
  if (X=16)or(X=32) then
     begin
      K[1]:=A4; K[2]:=A4; K[3]:=A4; K[4]:=A4; K[5]:=A4;
      K[6]:=A4; K[7]:=A4; K[8]:=A4; F[9]:=A1; H[9]:=A2;
      L[9]:=A3; K[9]:=B4; F[10]:=B1; H[10]:=A2; L[10]:=A3;
      K[10]:=B4; F[11]:=A1; H[11]:=B2; L[11]:=A3; K[11]:=B4;
      F[12]:=B1; H[12]:=B2; L[12]:=A3; K[12]:=B4; F[13]:=A1;
      H[13]:=A2; L[13]:=B3; K[13]:=B4; F[14]:=B1; H[14]:=A2;
      L[14]:=B3; K[14]:=B4; F[15]:=A1; H[15]:=B2; L[15]:=B3;
      K[15]:=B4; F[16]:=B1; H[16]:=B2; L[16]:=B3; K[16]:=B4;
     end;
  if X=32 then
    begin
      M[1]:=A5; M[2]:=A5; M[3]:=A5; M[4]:=A5; M[5]:=A5;
      M[6]:=A5; M[7]:=A5; M[8]:=A5; M[9]:=A5; M[10]:=A5;
      M[11]:=A5; M[12]:=A5; M[13]:=A5; M[14]:=A5; M[15]:=A5;
      M[16]:=A5; F[17]:=A1; H[17]:=A2; L[17]:=A3; K[17]:=A4;
      M[17]:=B5; F[18]:=B1; H[18]:=A2; L[18]:=A3; K[18]:=A4;
      M[18]:=B5; F[19]:=A1; H[19]:=B2; L[19]:=A3; K[19]:=A4;
      M[19]:=B5; F[20]:=B1; H[20]:=B2; L[20]:=A3; K[20]:=A4;
      M[20]:=B5; F[21]:=A1; H[21]:=A2; L[21]:=B3; K[21]:=A4;
      M[21]:=B5; F[22]:=B1; H[22]:=A2; L[22]:=B3; K[22]:=A4;
      M[22]:=B5; F[23]:=A1; H[23]:=B2; L[23]:=B3; K[23]:=A4;
      M[23]:=B5; F[24]:=B1; H[24]:=B2; L[24]:=B3; K[24]:=A4;
      M[24]:=B5; F[25]:=A1; H[25]:=A2; L[25]:=A3; K[25]:=B4;
      M[25]:=B5; F[26]:=B1; H[26]:=A2; L[26]:=A3; K[26]:=B4;
      M[26]:=B5; F[27]:=A1; H[27]:=B2; L[27]:=A3; K[27]:=B4;
      M[27]:=B5; F[28]:=B1; H[28]:=B2; L[28]:=A3; K[28]:=B4;
      M[28]:=B5; F[29]:=A1; H[29]:=A2; L[29]:=B3; K[29]:=B4;
      M[29]:=B5; F[30]:=B1; H[30]:=A2; L[30]:=B3; K[30]:=B4;
      M[30]:=B5; F[31]:=A1; H[31]:=B2; L[31]:=B3; K[31]:=B4;
      M[31]:=B5; F[32]:=B1; H[32]:=B2; L[32]:=B3; K[32]:=B4;
      M[32]:=B5;
    end;
3:writeln('----------<Меню 1>------------');
  writeln('Если I0=6, то переход в начало');
  writeln('Если I0=7, то продолжение');
  write('I0=');
  readln(I0);
  if I0=6 then goto 1;

                                      17