2. Задача
Составить программу для нахождения площади
треугольника, через радиус описанной окружности.
Значения сторон натуральные числа.
3. Решение.
program ploschad;
var R,S,a,b,c: real;
begin
writeln (‘введите длины сторон и радиус описанной окружности’);
readln(a,b,c,R);
S:=(a*b*c)/(4*R);
writeln ('площадь треугольника равна',S);
end.
4. Выполнение.
Alt+F9-компиляция, проверка на ошибки.
Ctrl+F9-выполнение программы.
Вводим переменные, например a=5, b=4, c=8.
Получаем на экране сообщение
периметр треугольника равен 17
5. Объяснение.
• program ploschad; (указываем название программы)
• var R,S,a,b,c: real; (описываем переменные в программе)
• begin (начало рабочей области)
•
writeln (‘введите длины сторон и радиус описанной
окружности’); (оператор вывода предупреждает
пользователя, что надо ввести значения переменных)
•
readln(a,b,c,R); (считывание значения переменных в
память компьютера)
•
S:=(a*b*c)/(4*R); (присваивание переменной S
значения вычисленной площади треугольника через
радиус описанной окружности)
• writeln ('площадь треугольника равна',S); (выводим
результат на экран)
• end. (конец рабочей области)