Вычисление температуры рабочей лопатки турбины

Вычислить температуру рабочей лопатки турбины

,

Где Тп – температура конца политропы расширения; Ucp – окружная скорость по среднему радиусу; Ср – удельная теплоемкость газа.

Исходные данные: Тп =808 К; Ucp =420 м/с; Ср = 1,158 кДж/кг*⁰С.ё1

 

Program_Temperatyra

Var

Tn, Ucp, Cp, T: real;

writeln (`Введите константы`);

write (`Температура конца политропы расширения`,`Tn=`);

read (Tn);

write (`Окружная скорость по среднему радиусу`,`Ucp=`);

read (Ucp);

write (`Удельная теплоемкость газа`,`Cp=`);

read (Cp);

writeln;

T:=0.95*(Tn+(sqr(Ucp)/(2*Cp*1000));

writeln (`Результат расчета`);

writeln (`Температура рабочей лопатки турбины, T= `, T:5:3,K`);

End.

2. Алгоритмы разветвляющейся структуры

Определить, принадлежит ли точка с координатами X и Y заштрихованной части плоскости:

Rv=sqrt(sqrx+sqry)

 

Программа:

Program Mishen;

Var

x, y, rv: real;

f: boolean;

Begin

writeln ('Popodaet li tochka v zashtrihovannuiy oblast');

writeln ('Vvedite koordinaty tochki');

write ('x=');

read (x);

write ('y=');

read (y);

f:=false;

rv:=sqrt(sqr(x)+sqr(y));

if (ABS(1)<=rv) and (ABS(2)>=rv) then f:=true;

writeln;

writeln('Rezulytat rascheta');

if f=false then writeln('Tochka ne popodaet');

if f=true then writeln ('Tochka popodaet');

End.