Bl:=sqrt(4*(ixl[i]-iylCi])/alCi])

Ll:=40*ry;

If la>120 then goto 20; gosub;

Si:=n/(2*f*alCi]); if si>r then goto 20; bbC4]:=alEi]; bbC5]:=bl; bb[63:=ll;

110:exit; end;

Procedure prcver(i:integer); begin

Ш->

Readln(aa[i]); Ш+>

While ioresultoO do

Begin

VVodWindow(20,2,60,2,3,0); gotoxy(5,l);

Write (‘надо целое число;повторите ввод’); ocno_curs(xxl, yyl, xxl+12,yyl,1,’n’); gotoxy(l, l); Ш->

Readln(aa[i3); <8i+>

End;

End;

Procedure wod_dan(num:integer); begin

VVodWindow(20,2,60,2,3,0); gotaxy(15,l);

Write(‘введите данное ‘);

Ocno_curs(xxl, yyl, xxl+12,yyl,1,’n’);

Gotaxy(l. l);

If yy1=6 then prover(1); if yy1=10 then prover(2); if yy1=14 then prover(3); YvodWindow(20,2,60,2,1,0); for з:=1 to 40 do begin gotoxy(j,1); write(‘!’); end; window(60,2,61,2); gotoxyU,!); write(‘1’); n:=aa[1]; 1e:=aa[2]; r:=aa[3]; end;

Procedure dck; Begin

If n=0 then begin new_Win(1,1,80,25,1); Wind1(18,8,62,15,3,0,,y,,3); gotoxy(9,3);

Write(‘B документировании нет смысла:’); gotoxy(5,4);

Write(‘ данных нет’);

Gotoxy(5,5);

Write(‘ Если хотите получить пустой документ/); gotoxy(6,6);

Write(‘ нажмите ENTER, если не нужен — ESC’); repeat

Key:=readkey; if key=chr(27) then EXIT; if key=chr(13) then break; unti1 fa1se;

End;

New_Win(l,1,80,25,1); windl(29,6,50,10,3,0,’y,,5);

Gotoxy(3,3);

Vrit^C ДОКУМЕНТИРОВАНИЕ’); Windl(15,13,65,17,3,0,’y,,5); Windl(15,13,65,17,3,0,’y,,5); cptoxy(4,2);

Write(‘ Введите имя документа, в котором хотите’); gotoxy(4,3);

Write(‘ сохранить результат (длина имени с расши-‘); gotoxy(4,4);

Write(‘ рением не более 12 символов)’); vvodwindow (49,16,61,16,7,0); gotoxy (l, l); readln(nom_f);

Writeln(f2,’ writeln(f2,

Vvodwindow(49,16,61,16,7,0); gotoxy (l, l); write(nom_f); assign(f2,nom_f); rewrite(f2);

ИСХОДНЫЕ ДАННЫЕ’);

Writeln(f2,

,ааШ:10:1,

AaC2]:10:1,’ ‘);

1. УСИЛИЕ СЖАТИЯ, кг

Writeln(f2

Writeln(f2,

2. РАСЧЕТНАЯ ДЛИНА, см

Writeln(f2

Игз±е1п(?2, ‘ 3. РАСЧЕТНОЕ СОПРОТИВЛЕНИЕ СТАЖ, кг/см;2

‘ ,ааСЗ]:10:1,’ ‘);

Write1n(f2,



.