Решить пример на языке PascalЖелательно, чтоб в каждой строке был комментарий.Вариант
Решить пример на языке Pascal
Желанно, чтоб в каждой строке был комментарий.
Вариант 14, а не тот, что обведен.
1 ответ
Ксюха Гануша
Gamma=180-alfa-beta
b=h/sin(alfa/180*Pi)
a=h/sin(beta/180*Pi)
c=(a^2+b^2-2abcos(gamma/180*Pi)
P=a+b+c
S=1/2ch
---------
var
gamma,alfa,beta,a,b,c,h,S,P,Pi:real;
begin
//Pi
Pi:=3.14159265359;
//начальные данные
alfa := 90.0;
beta := 45.0;
h := 1.0;
//gamma
gamma := 180.0-alfa-beta;
//b
b:= h/sin(alfa/180.0*Pi);
//a
a:= h/sin(beta/180.0*Pi);
//c
c:= sqrt(a*a+b*b-2*a*b*cos(gamma/180.0*Pi));
//P
P:= a+b+c;
//S
S:= c*h/2.0;
end.
b=h/sin(alfa/180*Pi)
a=h/sin(beta/180*Pi)
c=(a^2+b^2-2abcos(gamma/180*Pi)
P=a+b+c
S=1/2ch
---------
var
gamma,alfa,beta,a,b,c,h,S,P,Pi:real;
begin
//Pi
Pi:=3.14159265359;
//начальные данные
alfa := 90.0;
beta := 45.0;
h := 1.0;
//gamma
gamma := 180.0-alfa-beta;
//b
b:= h/sin(alfa/180.0*Pi);
//a
a:= h/sin(beta/180.0*Pi);
//c
c:= sqrt(a*a+b*b-2*a*b*cos(gamma/180.0*Pi));
//P
P:= a+b+c;
//S
S:= c*h/2.0;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов