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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

48
ПРОГРАММЫ МАТЕМАТИЧЕСКОГО МОДЕЛИРОВАНИЯ
НА ЯЗЫКЕ ТУРБО ПАСКАЛЬ
Программа NW3(три модуля tpg3, 1-я часть,
_Х=3_, _Х=9_, _Х=27_, «система» после «адекватно», 1.1-18.3)…
program tpg3_1;
{Математическое моделирование}
uses tpg3_3, tpg3_2;
label 1,2,3,4,5;
procedure VV_DAN;
begin
case X of
3: begin
VVOD31;
GB3660(A1,E1,B1,J1,O1,V1,U1,Q1);
writeln('Коэффициенты ортогонализации');
writeln(F0,'Коэффициенты ортогонализации');
writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
end;
9: begin
VVOD31;
GB3660(A1,E1,B1,J1,O1,V1,U1,Q1);
writeln('Коэффициенты ортогонализации');
writeln(F0,'Коэффициенты ортогонализации');
writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
VVOD32;
GB3660(A2,E2,B2,J2,O2,V2,U2,Q2);
writeln('Коэффициенты ортогонализации');
writeln(F0,'Коэффициенты ортогонализации');
writeln('V2=',V2,' U2=',U2,' Q2=',Q2);
writeln(F0,'V2=',V2,' U2=',U2,' Q2=',Q2);
end;
27:begin
VVOD31;
GB3660(A1,E1,B1,J1,O1,V1,U1,Q1);
writeln('Коэффициенты ортогонализации');
writeln(F0,'Коэффициенты ортогонализации');
writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
VVOD32;
GB3660(A2,E2,B2,J2,O2,V2,U2,Q2);
writeln('Коэффициенты ортогонализации');
writeln(F0,'Коэффициенты ортогонализации');
writeln('V2=',V2,' U2=',U2,' Q2=',Q2);
writeln(F0,'V2=',V2,' U2=',U2,' Q2=',Q2);
VVOD33;
GB3660(A3,E3,B3,J3,O3,V3,U3,Q3);
writeln('Коэффициенты ортогонализации');
writeln(F0,'Коэффициенты ортогонализации');
writeln('V3=',V3,' U3=',U3,' Q3=',Q3);
writeln(F0,'V3=',V3,' U3=',U3,' Q3=',Q3);
end;
end;{case}
end;{VV_DAN} 
               ПРОГРАММЫ МАТЕМАТИЧЕСКОГО МОДЕЛИРОВАНИЯ
                        НА ЯЗЫКЕ ТУРБО ПАСКАЛЬ

                 Программа NW3(три модуля tpg3, 1-я часть,
        _Х=3_, _Х=9_, _Х=27_, «система» после «адекватно», 1.1-18.3)…


program tpg3_1;
 {Математическое моделирование}
 uses tpg3_3, tpg3_2;
  label 1,2,3,4,5;
procedure VV_DAN;
  begin
    case X of
   3: begin
       VVOD31;
       GB3660(A1,E1,B1,J1,O1,V1,U1,Q1);
       writeln('Коэффициенты ортогонализации');
       writeln(F0,'Коэффициенты ортогонализации');
       writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
       writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
      end;
   9: begin
       VVOD31;
       GB3660(A1,E1,B1,J1,O1,V1,U1,Q1);
       writeln('Коэффициенты ортогонализации');
       writeln(F0,'Коэффициенты ортогонализации');
       writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
       writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
       VVOD32;
       GB3660(A2,E2,B2,J2,O2,V2,U2,Q2);
       writeln('Коэффициенты ортогонализации');
       writeln(F0,'Коэффициенты ортогонализации');
       writeln('V2=',V2,' U2=',U2,' Q2=',Q2);
       writeln(F0,'V2=',V2,' U2=',U2,' Q2=',Q2);
      end;
   27:begin
       VVOD31;
       GB3660(A1,E1,B1,J1,O1,V1,U1,Q1);
       writeln('Коэффициенты ортогонализации');
       writeln(F0,'Коэффициенты ортогонализации');
       writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
       writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
       VVOD32;
       GB3660(A2,E2,B2,J2,O2,V2,U2,Q2);
       writeln('Коэффициенты ортогонализации');
       writeln(F0,'Коэффициенты ортогонализации');
       writeln('V2=',V2,' U2=',U2,' Q2=',Q2);
       writeln(F0,'V2=',V2,' U2=',U2,' Q2=',Q2);
       VVOD33;
       GB3660(A3,E3,B3,J3,O3,V3,U3,Q3);
       writeln('Коэффициенты ортогонализации');
       writeln(F0,'Коэффициенты ортогонализации');
       writeln('V3=',V3,' U3=',U3,' Q3=',Q3);
       writeln(F0,'V3=',V3,' U3=',U3,' Q3=',Q3);
      end;
    end;{case}
  end;{VV_DAN}


                                                     48

Страницы