Unti1 fa1se; End; Procedure Chapka

Begin

New_win(l,1,80,25,1);

Windl(2,19,78,24,3,0,lyM);

GCTCXY(4,2);

WritelnC Для ввода данных установите курсор на соотве­тствующую позицию с помощью’); gotoxy(4,3); writelnCстрелок "вверх" и "вниз" и нажмите ENTER. Для

Того чтобы исправить оши-‘);

Gotoxy(4,4);

Writeln(‘6o4HC введенное данное, подведите курсор и пов­торите ввод.’); gotoxy(4,5);

WritelnC Для окончания ввода нажмите ESC. ‘); windl(2/4/78/16/3/0/’yM); textcolor(C); gotoxy(3,2); write(

Gotoxy(3,3); write(

‘ 1. РАСЧЕТНАЯ ПОГОННАЯ НАГРУЗКА, кг/см gotoxy(3,4); write(

Gotoxy(3,5); write(

I____________________________

Gotoxy(3,6); write(

Г

Г

);

Gotoxy(3,7); write(

1 2. РАСЧЕТНЫЙ ПРОЛЕТ, см gotoxy(3,8); write (

Gotoxy(3,9);

Write(

‘ ‘);

Gotoxy(3,10); write(

Gotoxy(3,11); write(

3. РАСЧЕТНОЕ СОПРОТИВЛЕНИЕ СТАЖ, кг/смл ‘)

Gotoxy(3,12); write(

End; procedure Ocno_Curs(xxx1,yyy1,xxx2,yyy2,co1_okno:integer;f1:

Char);

Begin

VvodWindow(xxx1,yyy1,xxx2,yyy2,co1_okno,0);

Begin

If (yy1=6) and (f1=’y’) then

Begin gotoxy(1,1); write(aa[1]:12:1); end; if (yy1=10) and (f1=’y’) then begin gotoxy(1,1); write(aaE2]:12:1); end; if (yy1=14) and (f1=’y’) then begin gotoxy(1,1); write(ааСЗЗ:12:1); end; end; End;

Procedure raschet;

1abe1 10,19,20,30; begin m:=q*1*1/8;

Fl:=1/250; i:=0; 10: i:=i+l;

If i>23 then goto 19; sig:=m/c[i]/w[i]; if sig>r

Then goto 10; f: =q*l*l*l*l/193536000/o;j [13; if f>fl

Then goto 10; bb[13:=w[i3; 19: i:=0; 20: i:=i+l;

If i>60 then goto 30; si:=m/cl[i]/wlCil; if si>r then goto 20;

F2:=5/384*q/l.2*1*1*1*1/2100000/0j1[13; if f2>fl then goto 20;

Bb[23:=wl[13; 30:exit; end;



.