Readln(f2);
Write('Введите шаг k=');
Readln(k);
If f<f2 then
Begin
Возможно вы искали - Реферат: Курсовая работа по информатике
f:=f+k;
h:=(p*p*e*j)/(m*m*n*f);
Writeln('h=',h:10:5);
end;
Readln;
Похожий материал - Реферат: Машины, которые говорят и слушают
end.
Решение.
Модуль упругости для стали e=2.15e05
Осевой моментинерции поперечного сечения винта j=3.9e04
Коэф., учитывающий способ закрепления концов винта m=2.0
Очень интересно - Реферат: Механизм генерации транзактов в модели
Коэф. запаса прочности n=4.0
Осевая сила, начальное значение f=1e04
Осевая сила, конечное значение f2=1.5e04
Введите шаг k=0.05e04
h=516704.66250
Вам будет интересно - Реферат: Мониторы
h=492099.67857
h=469731.51136
h=449308.40217
h=430587.21875
h=413363.73000
Похожий материал - Реферат: Накопители на жестких дисках
h=397465.12500
h=382744.19444
h=369074.75893
h=356348.04310