ВБ
Владимир Богданович
Кто шарит в Паскале помогите!
Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a > b) и острым углом alpha (угол дан в радианах) . - помогите плиз!
надо в турбо паскале сделать!
Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a > b) и острым углом alpha (угол дан в радианах) . - помогите плиз!
надо в турбо паскале сделать!
var p,s,alfa,a,b,h,x1,x2,x3:real;
begin
read(a,b,alfa);
x1:=a-b;
x2:=x1/sin(alfa);
x3:=x2*cos(alfa);
p:=a+b+x2+x3;
s:=(a+b)*x3/2;
writeln('ploshad s=',s:8:3,'perimetr =',p:8:3);end.