Реферат: Курсовая

Readln(f);

Write('Осевая сила, конечное значение f2=');

Readln(f2);

Write('Введите шаг k=');

Readln(k);

Repeat

Begin

f:=f+k;

h:=(p*p*e*j)/(m*m*n*f);

Writeln('h=',h:10:5);

Readln;

end;

Until f<f2;

Readln;

end.

Program zadacha_7c;

Var e,j,m,n,f,f2,h,k:real;

Constp=3.14;

Begin

Write('Модуль упругости для стали e=');

Readln(e);

Write('Осевой моментинерции поперечного сечения винта j=');

Readln(j);

Write('Коэф., учитывающий способ закрепления концов винта m=');

Readln(m);

Write('Коэф. запаса прочности n=');

Readln(n);

Write('Осевая сила, начальное значение f=');

Readln(f);