Условие:
В программе PascalABC.net записать программу нахождения периметра треугольника.
program DOMZAD2;
function l(m, n: real): real;
begin
l:= sqrt(sqr(m) + sqr(n))
end;
var a, b, c: integer;
p: real;
begin
writeln('Введите значения a, b, c');
read(a, b, c);
p := 0;
p := p + l(a, b);
p := p + l(b, c);
p := p + l(c, a);
writeln('Периметр треугольника = ', p:5:2)
end.
Решение:
Ваша программа на PascalABC.net имеет некоторые ошибки в логике вычисления периметра треугольника. Периметр треугольника вычисляется как сумма длин всех его сторон, а не как сумма расстояний между заданными точками. Давайте исправим вашу программу и сделаем её правильно.
Шаг 1: Определение сторон треугольника
Для нахождения периметра треугольника нам нужны длины его сторон. Предположим, что у нас есть три стороны треугольника:a, b и c.Шаг 2: Формула периметра
Периметр треугольника вычисляется по формуле:P = a + b + c
Шаг 3: Исправление программы
Теперь давайте перепишем вашу программу, чтобы она правильно вычисляла периметр треугольника.1. : Изменил тип переменных , , на , чтобы можно было вводить дробные значения. 2. : Использовал для ввода значений, что позволяет вводить значения в одной строке. 3. : Периметр теперь вычисляется как сумма сторон , и . 4. : Результат выводится с двумя знаками после запятой для лучшего представления. Теперь программа корректно вычисляет периметр треугольника.