Developing.ru

Обчислить площадь равностороней трапеции с основаниями a,b и углом при большем основании b

рос писал(а):Обчислить площадь равностороней трапеции с основаниями a,b и углом при большем основании b

формулу для начала в студию.
или ты думаешь за тебя все от и до делать будут?)

Называйте темы в соответсвтии с тем, что Вам нужно!
В следующий раз буду удалять подобные темы. Если Вы хотите получать помощь бесплатно, выкладывайте наработки или хотя бы необходимую информацию.
[syntax="pascal"]
uses crt;
var a,b,buf,fi,S,kat1,kat2,gip: real;
begin
clrscr;
writeln('Vychislenie ploschadi ravnostoronneu trapecii.');
write('Vvedite dlinu 1-ogo osnovania: ');
readln(a);
write('Vvedite dlinu 2-ogo osnovania: ');
readln(b);
if a>b then {определяем большее основание}
begin
buf:=a;
a:=b;
b:=buf;
end;
write('Vvedite ostrui ugol: '); {угол, прилегающий к большему основанию всегда острый}
readln(fi);
kat1:=abs(b-a); {узнали катет прямоугольного треугольника}
gip:=round(kat1/cos(fi)); {определили гипотенузу этого треугольника по катету и прилегающему углу и округлили до целого в сторону увеличения}
kat2:=sqrt((gip-kat1)*(gip-kat1)); {нашли второй катет по теореме Пифагора}
S:=sqr(a)+kat1*kat2; {складываем площади квадрата и прямоугольника, образованного 2-умя прямоугольными треугольниками}
writeln('Ploshad: ',S:5:2);
readkey;
end.
[/syntax]
... я сегодня добрый

спасибо тебе большое!!!!!!!!!!!!!!
не смог бы ты об"яснить мне что такое katl, gip, round, kat2
простите меня пожалуста если я вас достал просто очень нужна помощь
моя ася 465717782
зарание огромное спасибо

Чтобы отблагодарить пользователя, нужно щелкнуть на кнопку "Спасибо", в верхнем правом углу сообщения с советом. См. исходник, я дополнил его комментариями.

&quot писал(а):Называйте темы в соответсвтии с тем, что Вам нужно!
В следующий раз буду удалять подобные темы.

Соответсвие есть. Какова тема? Составить прогу и блок-схему. Для какой задачи? Читай первый пост. То есть составить программу, вычисляющую площадь тарпеции и блок-схему этой программы.

&quot писал(а):формулу для начала в студию.

Если ты закончил начальную школу, то должен знать эту формулу.
s=a*b*cos(alfa)

Тему необходимо называть не "помогите мне пожалуста написать програму и составить блок схему", а "Площадь равносторонней трапеции по основаниям и углу", или что-то подобнее.