Условие задачи : Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов (Язык Pascal)
Сложность : легкая .
Решение задачи :
Для начала продумаем наше решение. Оно очень простое. Вводим два катета, потом подставляем их в формулы и выводим ответы.
Давайте посмотрим на формулы :
1. Это у нас будет периметр :
Как известно и прямоугольного треугольника 3 стороны два катета и гипотенуза. Периметр это сумма длин всех сторон, а нам получается еще надо найти гипотенузу, делается это с помощью формулы :
2. Это у нас площадь :
И так формулы есть, теперь можно решать.
Для того чтобы решить задачу нам понадобятся следующие переменные :
- Переменные a и b — для катетов
- Переменная c — для гипотенузы
- Переменная S — для площади
- Переменная P — для периметра
Начнем мы с каркаса нашей программы :
var a, b, c, S, P : real; begin write('Введите катет a : ');readln(a); write('Введите катет b : ');readln(b); end.
Тут мы объявили все переменные и попросили пользователя ввести наши катеты. Дальше найдем гипотенузу:
c := sqrt(sqr(a)+sqr(b));
Ну и всё, теперь осталось только подставить всё в формулы :
P := a + b + c; S := (a*b)/2; writeln('Периметр равен : ', P); writeln('Площадь равна : ', S);
Всё решение задачи Pascal :
var a, b, c, S, P : real; begin write('Введите катет a : ');readln(a); write('Введите катет b : ');readln(b); c := sqrt(sqr(a)+sqr(b)); P := a + b + c; S := (a*b)/2; writeln('Периметр равен : ', P); writeln('Площадь равна : ', S); readln; end.