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

UptoLike

ВУЗ: 

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

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

Рубрика: 

64
Программа TEX_RAZMER
(постановка задачи см. пример 10, алгоритм см. рис. 4.5)
Program TEX_RAZMER;
Uses crt;
Var A, D, AL, G, R, AL1: Real;
Begin
Clrscr;
Write(’Введите значение ширины угловой впадины A в мм:’);
Readln(A);
Write (’Введите значение диаметра мерного ролика’);
Writeln (’ D в мм (D < A):’);
Readln(D);
Write(’Введите значение угла наклона боковой’);
Write (’ поверхности угловой впадины Альфа в град.:’);
Writeln (’ (0 < Альфа < 90):’);
Readln(AL1);
AL:=(AL1*pi)/180; {Перевод градусов в радианы}
G:=A*((1/AL)-((1/3*AL)-((1/45)*AL*Sqr(AL))-((2/945)*Sqr(AL)*Sqr(AL)*AL));
{Расчет параметра Б*}
R:=0.5*D*(1+(1/(AL/2))-((1/3)*(AL/2))-((1/45)*(AL/2)*Sqr(AL/2))-
-((2/945)*Sqr(AL/2)*Sqr(AL/2)*(AL/2))); {Расчет параметра В*}
Writeln(’При A = ’,A:5:3,’ мм, D = ’,D:5:3,’ мм и Альфа = ’,AL1:5:1,’ град – Б*=
’,G:5:3,’ мм и В* = ’, R:5:3,’ мм.’);
Readkey;
End.
4.3. Использование интерполирования для нахождения
выходных параметров технологических систем
Интерполирование осуществляется в тех случаях, когда, например, необ-
ходимо найти приближенное значение выходного параметра
*
y технологиче-
ской системы по известной зависимости
)
x
(
f
y
=
, являющейся точечной и за-
данной в виде таблицы со множеством значений
}y,x{
ii
, полученных, напри-
мер, экспериментально. Причем, речь идет о нахождении
*
y
при таком значе-
нии
*
x
, которое не совпадает ни с одним из значений
i
x таблицы.

Страницы