Найти площадь прямоугольного треугольника, если даны длины его катетов a и b.

Найти площадь прямоугольного треугольника, если даны длины его катетов a и b.

Program Anadra;

uses crt;

var a,b: integer;

S: real;

begin

writeln(‘Введите значения двух катетов’);

readln(a);

readln(b);

S:=(a*b)*0.5;

writeln(‘Площадь треугольника равна ‘,S);

end.

 Разбор решения:  

1)Итак, для начала нам надо заполнить раздел описания переменных.

Integer:

a - первый катет

b – второй катет

Real:

S – площадь треугольника

2)Теперь сама программа. Для начала просим пользователя ввести значения двух катетов и он вводит их.

writeln(‘Введите значения двух катетов’);

readln(a);

readln(b);

3)Теперь по формуле считаем площадь.

S:=(a*b)*0.5;

4)Теперь выводим результат на экран.

writeln(‘Площадь треугольника равна ‘,S);

5)Программа готова. Жду ваших комментариев.