For i:=l to 3 do if aa[i]<>0 then n:=n+l; {if n=0 then halt(l);> raschet

New_win(l,1,80,25,1); windl(26)4,56,6J5,0,’y,,l);

Gotoxy(12,2); write(‘РЕЗУЛЬТАТ ‘);

Windl(5,20,75J2255,0,’y’,l); gotoxy(7,2);

Write (‘ДЛя завершения работы нажмите ESC. ДЛя документ­ирования F2.’); windl(35ll/77/15/5/0/,y,/l); te^cdor^); gotoxy^^);

Write ( _

‘ 1. БАЛКА ИЗ ДВУТАВРА ПО ГОСТ 8239-#Г С W= ‘,ЬЬШ:12:2);

Gotoxy(3,3); write(

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

Gotoxy(3,4); write( ‘ 2. БАЛКА ИЗ ДВУТАВРА ПО ТУ 14-2-24-72 С W= ‘,ЬЬС2]:12:2); repeat

Key:=readkey;

If key=chr(60) then begin ±k; Quite; exit; end; if key=chr(27) then

Begin

Ha1t(1); end;

Unti1 fa1se; End;

Begin textbackground(O); c1rscr;

Assign(f3,’dat1.txt’); reset(f3);

For i:=1 to 23 do read(f3,wCi]); for i:=1 to 23 do read(f3,c[i]); for i:=1 to 23 do read(f3,oo[i]); for i:=i to 60 do read(f3,w1Ci]); for i:=1 to 60 do read(f3,c1Ci3); for i:=1 to 60 do

Read(f3,ojltil); close(f3); Nachalo; textbackground(O); clrscr; Chapka;

Xxl:=64; yyl:=6; for i:=l to 3 do aaCi]:=0; for i:=l to 3 do begin

Ocno_curs(xxl, yy1,xxl+12,yyl,3,’y’); yyl:=yyl+4; end; yyl:=6; repeat ocno_curs(xxl, yyl, xxl+12,yyl,1,’y’); key:=readkey; case key of chr(80):begin

Ocno_curs(xxl, yyl, xxl+12,yyl,3,’ y’); if yyl<12 then begin yyl:=yyl+4; end

Else begin yyl:=6; end; end;

Chr(72):begin

Ocno_curs(xxl, yyl, xxl+12,yyl,3,’y’); if yyl>6 then begin yyl:=yyl-4; end else

Begin yy1:=14; end; end;



.