Найти периметр и площадь прямоугольной трапеции

@noyan · Регистрация: 09.01.2011

Author24 — интернет-сервис помощи студентам

. Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a > b) и острым углом alpha (угол дан в радианах).

@N@tali · 10.01.2011, 21:14

Вы не пробовали пользоваться поиском по форуму... Данная задача уже решалась..

Добавлено через 36 секунд

Pascal

Program name;
var a,b,s,p,u,g,h,c: real;
begin
writeln('vvedite zna4enie osnovaniya A');
readln(a);
repeat;
writeln('vvedite zna4enie osnovaniya B');
if not(a > b) then Writeln('VVedite a > b') ;
readln(b);
until (a>b) ;
writeln('vvedite ugol ALPHA');
readln(u);
g:=(a-b)/2;
c:=g/cos(u);
p:=a+b+2*c;
h:=c*sin(u);
s:=((a+b)/2)*h;
writeln('perimetr P=', p:2:2);
writeln('ploshad S=', s:2:2);
end.

Добавлено через 1 минуту
вот решение с форума...

Pascal

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.

учитесь пользоваться поиском форума...

@noyan 1 / 1 / 0 Регистрация: 09.01.2011 Сообщений: 90
		1
	Найти периметр и площадь прямоугольной трапеции 10.01.2011, 21:02. Показов 6931. Ответов 1 Метки нет (Все метки) . Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a > b) и острым углом alpha (угол дан в радианах). 0

	10.01.2011, 21:14

Опции темы

Найти периметр и площадь прямоугольной трапеции

Решение