Вот пример программы на языке Паскаль, которая вычисляет площадь S прямоугольного треугольника по заданным длинам двух катетов a и b. Программа оформляет ввод и вывод данных в соответствии с вашим запросом.
program TriangleArea;
var
a, b, S: real;
begin
// Запрашиваем ввод длин катетов
writeln('Введите два катета в см:');
// Читаем первый катет
readln(a);
// Читаем второй катет
readln(b);
// Вычисляем площадь прямоугольного треугольника
S := 0.5 * a * b;
// Выводим результат
writeln('Площадь прямоугольного треугольника равна ', S:0:1, ' кв. см.');
end.
Объяснение программы:
Объявление переменных:
a
, b
— переменные типа real
, которые будут хранить длины катетов.
S
— переменная типа real
, которая будет хранить вычисленную площадь.
Ввод данных:
- Программа начинает с вывода строки "Введите два катета в см:".
- Затем с помощью
readln
считываются значения катетов a
и b
.
Вычисление площади:
- Площадь прямоугольного треугольника вычисляется по формуле ( S = \frac{1}{2} \times a \times b ).
Вывод результата:
- Результат выводится на экран с использованием форматирования
:0:1
, что означает, что число будет выводиться с одной цифрой после запятой.
Пример работы программы:
Если пользователь введет значения 13.5 и 17.2, программа выведет:
Введите два катета в см:
13.5
17.2
Площадь прямоугольного треугольника равна 116.1 кв. см.
Таким образом, программа успешно вычисляет и выводит площадь прямоугольного треугольника по заданным катетам.