ВУЗ:
Составители:
Рубрика:
27
Программа TNV1(два модуля tpgl3, 2-ой вариант _Х=2_, _Х=4_, _Х=8_,
Х=16, «система» до «модели»)
program tpgl1_1;
uses tpgl1_2;
label 1,2,3,4,5;
procedure OUT_F_H_L(PR:integer);
begin
if PR=73 then
begin
writeln(F0,'┌────┬─────────────────────┐');
writeln(F0,'│ │ Значение │');
writeln(F0,'│ J ├──────────┬──────────┤');
writeln(F0,'│ │ F(J) │ Z(J) │');
end;
if PR=74 then
begin
writeln(F0,'┌────┬────────────────────────────────┐');
writeln(F0,'│ │ Значение │');
writeln(F0,'│ J ├──────────┬──────────┬──────────┤');
writeln(F0,'│ │ F(J) │ H(J) │ Z(J) │');
end;
if PR=75 then
begin
write(F0,'┌────┬──────────────────────');
writeln(F0,'─────────────────────┐');
write(F0,'│ │ Значе');
writeln(F0,'ние │');
write(F0,'│ J ├──────────┬──────────┬');
writeln(F0,'──────────┬──────────┤');
write(F0,'│ │ F(J) │ H(J) │');
writeln(F0,' L(J) │ Z(J)
│');
end;
if PR=76 then
begin
write(F0,'┌────┬─────────────────────────────────');
writeln(F0,'─────────────────────┐');
write(F0,'│ │ Значение ');
writeln(F0,' │');
write(F0,'│ J ├──────────┬──────────┬──────────┬');
writeln(F0,'──────────┬──────────┤');
write(F0,'│ │ F(J) │ H(J) │ L(J) │');
writeln(F0,' K(J) │ Z(J) │');
end;
if PR=77 then
begin
write(F0,'┌────┬─────────────────────────────────');
writeln(F0,'────────────────────────────────┐');
write(F0,'│ │ Зна');
writeln(F0,'чение │');
write(F0,'│ J ├──────────┬──────────┬─────────');
writeln(F0,'─┬──────────┬──────────┬──────────┤');
write(F0,'│ │ F(J) │ H(J) │ L(J) │');
Программа TNV1(два модуля tpgl3, 2-ой вариант _Х=2_, _Х=4_, _Х=8_, Х=16, «система» до «модели») program tpgl1_1; uses tpgl1_2; label 1,2,3,4,5; procedure OUT_F_H_L(PR:integer); begin if PR=73 then begin writeln(F0,'┌────┬─────────────────────┐'); writeln(F0,'│ │ Значение │'); writeln(F0,'│ J ├──────────┬──────────┤'); writeln(F0,'│ │ F(J) │ Z(J) │'); end; if PR=74 then begin writeln(F0,'┌────┬────────────────────────────────┐'); writeln(F0,'│ │ Значение │'); writeln(F0,'│ J ├──────────┬──────────┬──────────┤'); writeln(F0,'│ │ F(J) │ H(J) │ Z(J) │'); end; if PR=75 then begin write(F0,'┌────┬──────────────────────'); writeln(F0,'─────────────────────┐'); write(F0,'│ │ Значе'); writeln(F0,'ние │'); write(F0,'│ J ├──────────┬──────────┬'); writeln(F0,'──────────┬──────────┤'); write(F0,'│ │ F(J) │ H(J) │'); writeln(F0,' L(J) │ Z(J) │'); end; if PR=76 then begin write(F0,'┌────┬─────────────────────────────────'); writeln(F0,'─────────────────────┐'); write(F0,'│ │ Значение '); writeln(F0,' │'); write(F0,'│ J ├──────────┬──────────┬──────────┬'); writeln(F0,'──────────┬──────────┤'); write(F0,'│ │ F(J) │ H(J) │ L(J) │'); writeln(F0,' K(J) │ Z(J) │'); end; if PR=77 then begin write(F0,'┌────┬─────────────────────────────────'); writeln(F0,'────────────────────────────────┐'); write(F0,'│ │ Зна'); writeln(F0,'чение │'); write(F0,'│ J ├──────────┬──────────┬─────────'); writeln(F0,'─┬──────────┬──────────┬──────────┤'); write(F0,'│ │ F(J) │ H(J) │ L(J) │'); 27
Страницы
- « первая
- ‹ предыдущая
- …
- 25
- 26
- 27
- 28
- 29
- …
- следующая ›
- последняя »