Begin
var fi_min:=ReadlnReal('fi_min=');
var fi_:=ReadlnReal('fi_=');
var fi_max:=ReadlnReal('fi_max=');
var S_min:=ReadlnReal('S_min=');
var S_max:=ReadlnReal('S_max=');
var L:=ReadlnReal('L=');
var W:=ReadlnReal('W=');
var alpha:=ReadlnReal('alpha=');
var betta:=ReadlnReal('betta=');
var a, b:real;
var x,y:real;
var T_max:real;
var S:real;
y:=(S_max**2-S_min**2)/(cos(alpha+betta+fi_min)-cos(alpha+betta+fi_max));
x:=S_min**2+y*cos(alpha+betta+fi_min);
a:=((x+y)**(1/2)+(x-y)**(1/2))/2;
b:=((x+y)**(1/2)-(x-y)**(1/2))/2;
S:=(a**2+b**2-2*a*b*cos(alpha+betta+fi_))**(1/2);
T_max:=(W*L*S)/(a*b*sin(alpha+betta));
Println(a, b);
Println(T_max);
end.
var
L, A, R, rho, m: real;
begin
write('Длина трубы, м = ');
read(L);
L := L * 100; // в см
write('Толщина стенок трубы, мм = ');
read(A);
A := A / 10; // в см
write('Внутренний радиус трубы, мм = ');
read(R);
R := R / 10; // в см
rho := 11.4; // плотность
m := pi * L * rho * (R * R + sqr(R + A));
write('Масса свинцовой трубы, г: ', m:0:1);
end.
Пример диалога с программой
Длина трубы, м = 2.5
Толщина стенок трубы, мм = 3
Внутренний радиус трубы, мм = 12
Масса свинцовой трубы, г: 33038.6
Объяснение:
Масса трубы может быть найдена, по формуле m = ρV, где ρ - плотность материала трубы, V - объем, канимаемый материалом.
Объем трубы находится по формуле V = L×S, где L - длина трубы, S - площадь поперечного сечения трубы.
Поперечное сечение трубы - это кольцо, у которого задан внутренний радиус r и толщина стенок A. Внешний радиус трубы вычисляется по формуле R = r+A. Тогда площадь кольца можно найти по формуле
S = πR² - πr² = π[(r+A)²+r²].
Окончательно m = πρL[r²+(r+A)²], где m - масса в граммах, ρ - плотность в г/см³, L, r, A - размеры в сантиметрах.
Создание графического окна размером 200х200 пикселей и зеленую кнопку с названием 'Решить', помещенную в центре окна