Programa vichislenie_ploshadi_treug_po_Geronu;
Var a,b,c,S,p:real;
begin
writenLn(‘dliny storon’);
readLn(a);
readLn(b);
readLn(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writenLn(‘ploshad=’,S);
end.
4. Выполнение.
Alt+F9 – компиляция, проверка на ошибки.
Ctrl+F9-выполнение программы.
Вводим переменные(длины сторон треугольника).
Alt+F5 – просмотре результатов.
Получаем на экране ответ.
5. Объяснение:
Programa vichislenie_ploshadi_treug_po_Geronu;(название программы)
Var a,b,c,S,p:real;(переменные в программе)
begin(начало рабочей области)
writenLn(‘dliny storon’);(оператор ввода оповещает о необходимости ввести переменные)
readLn(a);
readLn(b);
readLn(c);(считывается значение переменных в память компьютера)
p:=(a+b+c)/2;(рассчитывается полупериметр)
S:=sqrt(p*(p-a)*(p-b)*(p-c));(рассчитывается площадь треугольника)
writenLn(‘ploshad=’,S);(вывод результата на экран)
end.(конец рабочей области)