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

1: for J:=1 to 25 do writeln;
   writeln(' Программа на языке Турбо-Паскаль состоит из двух');
   writeln(' файлов tpgl1_1,tpl1_2(lv1_1,lv1_2). Математическое');
   writeln(' моделирование на основе планирования экспериментов.');
   writeln(' Переложение с языка Бейсик программ GGL3, LV1.');
   writeln('          Разработка Черного А.А.');
   writeln('      Autor Chernyy Anatoly Alekseevech');
   writeln('Введите имя файла для вывода resultant (без расширения)');
   readln(NAME);
   Assign(F0, (NAME+'.dat'));
   Rewrite(F0);
   writeln(F0,'Выполнение программы математического моделирования');
   writeln(F0,' tpgl1_1 (lv1_1). (Программа на языке Турбо-Паскаль).');
   writeln('_X=2_, _X=4_ ,_X=8_ ,X=16');
   writeln(F0,' Autor Chernyy Anatoly Alekseevech');
   J:=0;X:=0;F3:=0;F4:=0;H3:=0;H4:=0;
   L3:=0;L4:=0;K3:=0;K4:=0;K5:=0;
   K7:=0;K8:=0;K0:=0;X0:=0;Y0:=0;J5:=0;
   J6:=0;J9:=0;S:=0;
   writeln('Если X=0, то выход из программы');
   write('X=');readln(X);
   writeln(F0,'X=',X);
   for J:=1 to X do
     begin
       F[J]:=0; H[J]:=0; L[J]:=0; Z[J]:=0; KK5[J]:=0;
       KK6[J]:=0; KK7[J]:=0; J7[J]:=0; J8[J]:=0;
       JJ9[J]:=0;
     end;
 case X of
 2: begin
      vvod21;
      GB2480(A1,B1,J1,V1);
      writeln(F0,'V1=',V1);
      writeln('V1=',V1);
    end;
 4: begin
      vvod21;
      GB2480(A1,B1,J1,V1);
      writeln(F0,'V1=',V1);
      writeln('V1=',V1);
      vvod22;
      GB2480(A2,B2,J2,V2);
      writeln(F0,'V2=',V2);
      writeln('V2=',V2);
      end;
 8: begin
      vvod21;
      GB2480(A1,B1,J1,V1);
      writeln(F0,'V1=',V1);
      writeln('V1=',V1);
      vvod22;
      GB2480(A2,B2,J2,V2);
      writeln(F0,'V2=',V2);
      writeln('V2=',V2);
      vvod23;
      GB2480(A3,B3,J3,V3);
      writeln(F0,'V3=',V3);




                                                  14