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

Условие задачи: Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов (Язык 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));

    Информация sqrt и sqr — sqrt считает корень, sqr возводит число в квадрат

    Ну и всё, теперь осталось только подставить всё в формулы :

    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
    .
    Предыдущая
    ПрограммированиеЗадачи по Pascal. Подсчитать, сколько элементов массива А1,А2...А40 больше среднего арифметического всех его элементов и сколько элементов меньше.
    Следующая
    ПрограммированиеЗадачи по Pascal. Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса.
    Помогли? Поставьте оценку, пожалуйста.
    Плохо
    0
    Хорошо
    0
    Супер
    0
    Спринт-Олимпик.ру