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

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

Readln(f);

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

Readln(f2);

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

Возможно вы искали - Реферат: Курсовая работа по информатике

Readln(k);

While f<f2 Do

Begin

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

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

Похожий материал - Реферат: Машины, которые говорят и слушают

f:=f+k;

end;

Readln;

end.

Ход программы

Очень интересно - Реферат: Механизм генерации транзактов в модели

Program zadacha_7b;

uses crt;

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

Const p=3.14;

Begin

Вам будет интересно - Реферат: Мониторы

clrScr;

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

Readln(e);

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

Readln(j);

Похожий материал - Реферат: Накопители на жестких дисках

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

Readln(m);

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

Readln(n);