ВУЗ:
Составители:
Рубрика:
writeln(f2,
'———————————————————————————
——————————');
writeln(f2,
' 7.СЕЧЕНИЕ ИЗ КОЛОННОГО УШИРЕННОГО ДВУТАВРА
А= ',ЬЬС7]:6:2,' '
);
writeln(f2,
'———————————————————————————————————');
close(f2);
Windl(17,20,63,22,3,0,'y',5);
gotoxy(8,2);
write
('Документирование успешно завершено');
delay(1500); End;
Procedure QUITE;
Var Chl-.char; o,k:integer; flag,flagl:integer;
Begin
raschet;
new_win(l
f
l,80,25,1);
Windl(25,2,55,4,3,0,'y',l);
gotoxy(12,2);
write('
РЕЗУЛЬТАТ
');
windl(5,22,75,24,3,0,'y',1);
gotoxy(7,2);
write
('Для завершения работы нажмите
ESC
. Для докумен
тирования
F2.');
windl
(3,6,77,20,3,0,'у',1);
textcolor(O);
gotoxy(3,2);
write(
' 1. СЕЧЕНИЕ ИЗ ДВУТАВРА А =
',ЬЬС1]:12:2);
gotoxy(3,3);
write(
>
———————————————————————————————————————————————————————————————————————————————————');
gotoxy(3,4);
write(
' 2.
СЕЧЕНИЕ ИЗ ДВУХ ДВУТАВРОВ А =
',ЬЬЕ23:12:2);
gotoxy(3,5);
write(
\ .
Страницы
- « первая
- ‹ предыдущая
- …
- 190
- 191
- 192
- 193
- 194
- …
- следующая ›
- последняя »
