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

Задачи по 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));
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.

cyber
Оцените автора
CyberLesson | Быстро освоить программирование Pascal и C++. Решение задач Pascal и C++
Добавить комментарий