Предмет: Информатика,
автор: mrnikson2017
Напишите программу вычисления площади и гипотенузы прямоугольного треугольника ,если известны его катеты. Но программа должна быть с комментариями посторочно
Ответы
Автор ответа:
2
var {раздел описания переменных}
a, b: Real; {описание переменных. Переменные а и b вещественного типа}
begin {раздел или блок непосредственно кода программы}
WriteLn('введите катеты'); {запрос ввода сторон треугольника}
ReadLn(a,b); {ввод сторон треугольника пользователем}
Writeln('Площадь треугольника =',a*b/2); {вывод результата нахождения площади треугольника. Площадь равна половине произведения катетов}
WriteLn('Гипотенуза=', sqrt(sqr(a) + sqr(b))); {вывод результата нахождения гипотенузы. Квадрат гипотенузы равен сумме квадратов катетов, соответственно гипотенуза равна корню квадратному из суммы квадратов катетов. sqr - возведение в квадрат, sqrt - корень из числа.}
end. {Конец кода программы}
a, b: Real; {описание переменных. Переменные а и b вещественного типа}
begin {раздел или блок непосредственно кода программы}
WriteLn('введите катеты'); {запрос ввода сторон треугольника}
ReadLn(a,b); {ввод сторон треугольника пользователем}
Writeln('Площадь треугольника =',a*b/2); {вывод результата нахождения площади треугольника. Площадь равна половине произведения катетов}
WriteLn('Гипотенуза=', sqrt(sqr(a) + sqr(b))); {вывод результата нахождения гипотенузы. Квадрат гипотенузы равен сумме квадратов катетов, соответственно гипотенуза равна корню квадратному из суммы квадратов катетов. sqr - возведение в квадрат, sqrt - корень из числа.}
end. {Конец кода программы}
Похожие вопросы
Предмет: Математика,
автор: titovalina75
Предмет: Обществознание,
автор: Аноним
Предмет: История,
автор: 4267282726
Предмет: Математика,
автор: Wigled
Предмет: Математика,
автор: Katrin333337