Курс лекций по основам алгоритмизации и программирования задач машиностроения. Кравченко Д.В. - 31 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

29
ПРОГРАММА USILIE
(постановка задачи см. пример 8, алгоритм см. рис. 2.4)
Program Usilie;
Uses Crt;
Label 10,20,30;
Var E,Nl,Np,yl,yp,N,y,Nk:Real;
Begin
Clrscr;
Write(’Задайте степень точности Е:’);
Redln(Е);
10: Write(’Введите значение левой границы усилия’);
Writeln(’растяжения болта Nл в кгс:’);
Readln(Nl);
Write(’Введите значение правой границы усилия’);
Writeln(’растяжения болта Nп в кгс:’);
Readln(Np);
Begin
yl:=Sqrt(0.18*Nl)-3;
yp:=Sqrt(0.18*Np)-3;
If (yl*yp)<0 then Goto 20;end Else
Write(’Отрезок [Nл,Nп] не содержит’);
Write(’ решения. Скорректируйте значения’);
Writeln(’Nл и Nп.’);Goto 10;
20: N:=(Nl+Np)/2;
y:=Sqrt(0.18*N)-3;
If Abs(y)<=E then Goto 30;
If (yl*y)<0 then Nl:=N Else
Np:=N; Goto 20;
30: Nk:=N;
Write(’Искомое усилие растяжения болта’);
Writeln(’ Nк = ’,Nk:5:2,’ кгс.’);
Readkey;
End.

Страницы