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

UptoLike

ВУЗ: 

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

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

Рубрика: 

34
Write(’
Введите
значение
произвольной
постоянной
’);
Writeln(’K:’);
Readln(K);
Repeat
Nut:=N+(K*(Sqrt(0.18*N)-3));
y:=Sqrt(0.18*Nut)-3;
ypr:=0.212*Nut;
N:=Nut
Until (Abs(y)<=E) And (Abs(ypr)<1);
Nk:=Nut;
Write(’
Искомое
усилие
растяжения
болта
’);
Writeln(’ Nk = ’,Nk:5:2,’
кгс
.’);
Readkey;
End.

Страницы