Category Archives: Автоматизация

Write1n(f4

————————————- ‘);

For i:=1 to n do begin write1n(f4,’ ,,bb[i].Hw:6:1/’ ,/bbCi].Tw:6:1/,I\bbCi].

Bf:6:1,’r, bb [i].Tf:6:1 , ‘ ,,tbCi].A^:6:1/’ ,,tb[i3.DE1:6:1/’ ‘,bb[i].DE11:6:1,’

,fbbCi].F:6:1/’ ‘); end;

Write1n(f4,

————————————- ‘);

C1ose(f4)

Wind1(17,20,63,22,3,0,’y’,1); gotoxy (8,2); write(‘Документирование успешно завершено’); de1ay(2300); End;

Procedure QUITE; Var Ch1rchar; o, k:integer; f1ag, f1ag1:integer; Begin F1:=0

For i:=1 to 6 do if ааШ=0 then f1:=f1+1; if f1od then ha1t(1); raschet(f1ag, f1ag1,n); if (f1ag=0) or (f1ag1=0) then begin

New_win(lf1,80,25,1); windl(10,10,70,15,3,0,’y’,1); textcolor(14); GOTOXY(3,3);

If f1agO then write(‘BbicoTa балки более 2 метров’); if f1ag1=0 then write (‘Толщина полки более 40 мм ‘);

Windl(2,20/78/25/3/0f, n,/1);

Textcolor(14);

G0TCXY(10,3);

Write(‘Для завершения работы нажмите ESC.’); repeat

If key=chr(27) then begin halt(l); end; until false; end;

0:=1; k:=l; new_win(l,1,80,25,1); windl(2,20,78,23,3,0,’y’,1); textcolor(14); GOTCXY(6,2); write(‘Стрелка "вниз" — следующая страница,"вверх" —

Предыдущая страница.’);

Gotoxy(6,3);

WritelnC Для завершения работы нажмите ESC. Для док­ументирования F2.’); chapca; if n>=10 then begin

For i:=l to 10 do

Vvodwindow(2,(6+i),78,(6+i),3,0); gotoxy(l, l)

WriteC |’,Hw :8:l,’|’,Tw:8:l,’|’,Bf:8:l,’|’, Tf:8:l,’ ‘,A:9:1,’|’,DE1:9:1,’ ‘,DEll:8:l,’ \F:8:1,’ ‘);

Ext­end;

Vvodwindow(2,(7+i),78,(7+i),3,0);

Gotoxy(l, l); write( ———————————- >) ;

For i:=l to n do begin with bbEi] do begin

Vvodwindow(2,(6+i),78,(6+i),3,0); gotoxy(l, l);

WriteC |’,Hw:8:l,’|’,Tw:8:l,’|’,Bf:8:l,’rf Tf:8:l,’ ‘,1:9:1,’ ‘,DE1:9:1,’ ‘,DEll:8:l/ *,F:8:1,’ ‘);

+



.