ВУЗ:
Составители:
221
writeln(F0,'Расчетные показатели Z(J) до анализа B(J)');
writeln(F0,'┌────┬────────────────────────────────┐');
writeln(F0,'│ │ Значение │');
writeln(F0,'│ J ├──────────┬──────────┬──────────┤');
writeln(F0,'│ │ Y(J) │ Z(J) │ Y(J)-Z(J)│');
for J:=1 to X do
begin
writeln(F0,'├────┼──────────┼──────────┼──────────┤');
write(F0,'│ ',J:2,' │',Y[J]:10,'│',Z[J]:10,'│');
writeln(F0,(Y[J]-Z[J]):10,'│');
write('│ ',J:2,' │',Y[J]:10,'│',Z[J]:10,'│');
writeln((Y[J]-Z[J]):10,'│');
end;
writeln(F0,'└────┴──────────┴──────────┴──────────┘');
end;
{================================================================
Основная программа
=================================================================}
begin
1: for J:=1 to 25 do writeln;
writeln(' Программа на языке Турбо-Паскаль состоит из трех');
writeln(' файлов tpg3_1,tpg3_2,tpg3_3(nw5_1,nw5_2,nw5-3).
Математическое');
writeln('моделирование на основе планирования экспериментов.');
writeln(' Переложение с языка Бейсик программы GGN3.');
writeln(' Разработка Черного А.А.');
writeln(' Autor Chernyy Anatoly Alekseevech');
writeln('Введите имя файла для вывода resultant (без расширения)');
readln(NAME);
Assign(F0, (NAME+'.dat'));
Rewrite(F0);
writeln(F0,'Выполнение программы математического моделирования');
writeln(F0,' tpg3_1(nw5_1). (Программа на языке Турбо-Паскаль).');
writeln(F0,' Autor Chernyy Anatoly Alekseevech');
writeln('_X=5_,_X=25_');
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;
VV_DAN;
if X=0 then goto 2;
PR_MOD;
3:writeln('----------<Меню 1>------------');
writeln('
Если I0=6, то переход в начало');
writeln('Если I0=7, то продолжение и');
writeln('ввод величин показателей Y(J)');
write('I0='); readln(I0);
if I0=6 then goto 1;
writeln('Ввод величин показателей Y(J)');
writeln(F0,'Показатели Y(J)');
for J:=1 to X do
begin
writeln(F0,'Расчетные показатели Z(J) до анализа B(J)'); writeln(F0,'┌────┬────────────────────────────────┐'); writeln(F0,'│ │ Значение │'); writeln(F0,'│ J ├──────────┬──────────┬──────────┤'); writeln(F0,'│ │ Y(J) │ Z(J) │ Y(J)-Z(J)│'); for J:=1 to X do begin writeln(F0,'├────┼──────────┼──────────┼──────────┤'); write(F0,'│ ',J:2,' │',Y[J]:10,'│',Z[J]:10,'│'); writeln(F0,(Y[J]-Z[J]):10,'│'); write('│ ',J:2,' │',Y[J]:10,'│',Z[J]:10,'│'); writeln((Y[J]-Z[J]):10,'│'); end; writeln(F0,'└────┴──────────┴──────────┴──────────┘'); end; {================================================================ Основная программа =================================================================} begin 1: for J:=1 to 25 do writeln; writeln(' Программа на языке Турбо-Паскаль состоит из трех'); writeln(' файлов tpg3_1,tpg3_2,tpg3_3(nw5_1,nw5_2,nw5-3). Математическое'); writeln('моделирование на основе планирования экспериментов.'); writeln(' Переложение с языка Бейсик программы GGN3.'); writeln(' Разработка Черного А.А.'); writeln(' Autor Chernyy Anatoly Alekseevech'); writeln('Введите имя файла для вывода resultant (без расширения)'); readln(NAME); Assign(F0, (NAME+'.dat')); Rewrite(F0); writeln(F0,'Выполнение программы математического моделирования'); writeln(F0,' tpg3_1(nw5_1). (Программа на языке Турбо-Паскаль).'); writeln(F0,' Autor Chernyy Anatoly Alekseevech'); writeln('_X=5_,_X=25_'); 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; VV_DAN; if X=0 then goto 2; PR_MOD; 3:writeln('----------<Меню 1>------------'); writeln('Если I0=6, то переход в начало'); writeln('Если I0=7, то продолжение и'); writeln('ввод величин показателей Y(J)'); write('I0='); readln(I0); if I0=6 then goto 1; writeln('Ввод величин показателей Y(J)'); writeln(F0,'Показатели Y(J)'); for J:=1 to X do begin 221
Страницы
- « первая
- ‹ предыдущая
- …
- 219
- 220
- 221
- 222
- 223
- …
- следующая ›
- последняя »