Известна гипотенуза и противолежащий угол прямоугольного треугольника. Найти периметр треугольника
Что у меня не так в паскале не могу сосчитать!
Известна гипотенуза и противолежащий угол прямоугольного треугольника. Найти периметр треугольника
va
a, b, c, А, A1, A2, P : real
begi
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.
Известна гипотенуза и противолежащий угол прямоугольного треугольника. Найти периметр треугольника
Что у меня не так в паскале не могу сосчитать!
Известна гипотенуза и противолежащий угол прямоугольного треугольника. Найти периметр треугольника
va
a, b, c, А, A1, A2, P : real
begi
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.
Что у меня не так в паскале не могу сосчитать!
Известна гипотенуза и противолежащий угол прямоугольного треугольника. Найти периметр треугольника
va
a, b, c, А, A1, A2, P : real
begi
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.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Ошибка заключается в том, что в формуле для нахождения катетов вы используете неправильно угол. Вместо cos(Api/180) и sin(Api/180) нужно использовать tan(Api/180) и cot(Api/180), так как вам нужны катеты, а не проекции гипотенузы.
Исправленный код:
va
a, b, c, A, A1, A2, P: real;
begi
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.