Задачи по Pascal. Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов.

Условие задачи : Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов (Язык Pascal)

Сложность : легкая .

Решение задачи :

Для начала продумаем наше решение. Оно очень простое. Вводим два катета, потом подставляем их в формулы и выводим ответы.

Давайте посмотрим на формулы :

1. Это у нас будет периметр :

Как известно и прямоугольного треугольника 3 стороны два катета и гипотенуза. Периметр это сумма длин всех сторон, а нам получается еще надо найти гипотенузу, делается это с помощью формулы :

2. Это у нас площадь :

И так формулы есть, теперь можно решать.

Для того чтобы решить задачу нам понадобятся следующие переменные :

1. Переменные a и b — для катетов
2. Переменная c — для гипотенузы
3. Переменная S — для площади
4. Переменная 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.