Известна гипотенуза и противолежащий угол прямоугольного треугольника. Найти периметр треугольника.
Что у меня не так в паскале не могу сосчитать!?
Известна гипотенуза и противолежащий угол прямоугольного треугольника. Найти периметр треугольника.
var
a, b, c, А, A1, A2, P : real;
begin
write('Введите гипотенуза с : ');readln(c);
write('Введите угол А : ');readln(А);
A1 := cos(A*pi/180);
A2 := sin(A*pi/180);
a := c*A1 ;
b := c*A2 ;
P := a + b + c;
writeln('Периметр равен : ', P);
readln;
end.
Известна гипотенуза и противолежащий угол прямоугольного треугольника. Найти периметр треугольника.
Что у меня не так в паскале не могу сосчитать!?
Известна гипотенуза и противолежащий угол прямоугольного треугольника. Найти периметр треугольника.
var
a, b, c, А, A1, A2, P : real;
begin
write('Введите гипотенуза с : ');readln(c);
write('Введите угол А : ');readln(А);
A1 := cos(A*pi/180);
A2 := sin(A*pi/180);
a := c*A1 ;
b := c*A2 ;
P := a + b + c;
writeln('Периметр равен : ', P);
readln;
end.
Что у меня не так в паскале не могу сосчитать!?
Известна гипотенуза и противолежащий угол прямоугольного треугольника. Найти периметр треугольника.
var
a, b, c, А, A1, A2, P : real;
begin
write('Введите гипотенуза с : ');readln(c);
write('Введите угол А : ');readln(А);
A1 := cos(A*pi/180);
A2 := sin(A*pi/180);
a := c*A1 ;
b := c*A2 ;
P := a + b + c;
writeln('Периметр равен : ', P);
readln;
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Ошибка заключается в том, что в формуле для нахождения катетов вы используете неправильно угол. Вместо cos(Api/180) и sin(Api/180) нужно использовать tan(Api/180) и cot(Api/180), так как вам нужны катеты, а не проекции гипотенузы.
Исправленный код:
var
a, b, c, A, A1, A2, P: real;
begin
write('Введите гипотенузу c : ');
readln(c);
write('Введите угол A : ');
readln(A);
A1 := sin(Api/180);
A2 := cos(Api/180);
a := cA1;
b := cA2;
P := a + b + c;
writeln('Периметр равен : ', P);
readln;
end.