Для готовой программы требуется включить функции в состав модуля unit - Free Pascal
Формулировка задачи:
Включить требуемые функции в состав модуля Unit.
(Или объясните, пожалуйста, более-менее понятно, что конкретно нужно сделать (пошагово))
Условие:
Даны длины сторон некоторого треугольника, найти высоты треугольника, сторонами которого являются высоты исходного треугольника.
Программа:
var e,u,o,a,b,c,n,m,l,h,x,y,p:real; function JAC(e,u,o:real):real; begin p:=(e+u+o)/2; JAC:=(2/e)*(sqrt(p*(p-e)*(p-u)*(p-o))); end; begin writeln('Введите стороны треугольника'); writeln('a='); readln(a); writeln('b='); readln(b); writeln('c='); readln(c); if ((b+c-a)<=0) or ((a+c-b)<=0) or ((a+b-c)<=0)then writeln('Исходный треугольник не существует') else begin n:=JAC(a,b,c); m:=JAC(b,a,c); l:=JAC(c,a,b); end; if ((m+l-n)<=0) or ((n+l-m)<=0) or ((n+m-l)<=0)then writeln('Треугольник, со сторонами в виде высот исходного треугольника, не существует') else begin h:=JAC(n,m,l); x:=JAC(m,n,l); y:=JAC(l,m,n); writeln('h1 h2 h3'); writeln(h:0:2, x:7:2, y:7:2); end.
Решение задачи: «Для готовой программы требуется включить функции в состав модуля unit»
textual
Листинг программы
unit triangle; interface function JAC(e,u,o:real):real; implementation function JAC(e,u,o:real):real; var p: real; begin p:=(e+u+o)/2; JAC:=(2/e)*(sqrt(p*(p-e)*(p-u)*(p-o))); end; end.
Объяснение кода листинга программы
- Объявлена функция JAC(e,u,o:real):real;
- В функции JAC объявлена переменная p: real;
- В функции JAC выполняется присваивание переменной p значения (e+u+o)/2;
- В функции JAC выполняется вычисление значения JAC с помощью формулы (2/e)(sqrt(p(p-e)(p-u)(p-o)));
- Значение JAC возвращается из функции;
- Завершается реализация функции JAC;
- Завершается составление списка.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д