Для готовой программы требуется включить функции в состав модуля 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.

Объяснение кода листинга программы

  1. Объявлена функция JAC(e,u,o:real):real;
  2. В функции JAC объявлена переменная p: real;
  3. В функции JAC выполняется присваивание переменной p значения (e+u+o)/2;
  4. В функции JAC выполняется вычисление значения JAC с помощью формулы (2/e)(sqrt(p(p-e)(p-u)(p-o)));
  5. Значение JAC возвращается из функции;
  6. Завершается реализация функции JAC;
  7. Завершается составление списка.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы