Разделить программу на подпрограммы (procedure) - Turbo Pascal

Формулировка задачи:

Изменить код добавив процедуры

var
  a, b, c, x1, x2, x3, y1, y2, y3, p, per, s: real;
begin
  write('Введите x1,y1: ');
  readln(x1, y1);
  write('Введите x2,y2: ');
  readln(x2, y2);
  write('Введите x3,y3: ');
  readln(x3, y3);
  end;
  a := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
  b := sqrt(sqr(x3 - x2) + sqr(y3 - y2));
  c := sqrt(sqr(x1 - x3) + sqr(y1 - y3));
  per := a + b + c; {Находим периметр}
  p := per / 2; {Находим полупериметр}
  s := sqrt(p * (p - a) * (p - b) * (p - c)); {Находим площадь}
  writeln('Периметр треугольника = ', per);
  writeln('Площадь треугольника = ', s);
end.

Решение задачи: «Разделить программу на подпрограммы (procedure)»

Листинг программы

function SHero(a, b, c: Real): Real;
var p: Real;
begin
  p:=(a+b+c)/2;
  SHero:=SqRt(p*(p-a)*(p-b)*(p-c));
end;
function Len(x1,y1,x2,y2: Real): Real;
begin
  Len:=SqRt(Sqr(x1-x2)+Sqr(y1-y2));
end;
var x1,y1, x2,y2, x3,y3, a, b, c: Real;
begin
  Write('Введите координаты вершин треугольника: ');
  ReadLn(x1,y1, x2,y2, x3,y3);
  a:=Len(x1,y1, x2,y2); b:=Len(x2,y2, x3,y3); c:=Len(x1,y1, x3,y3);
  WriteLn('Периметр: ',a+b+c);
  WriteLn('Площадь: ',SHero(a,b,c));
end.

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

Программа разделена на три функции:
- Функция SHero, которая принимает три аргумента типа Real и возвращает значение типа Real.
- Функция Len, которая принимает четыре аргумента типа Real и возвращает значение типа Real.
- Функция Main, которая является точкой входа в программу и содержит основной код программы.
В функции Main объявлены переменные:
- x1, y1, x2, y2, x3, y3, a, b, c (девять переменных типа Real).
В функции Main выполняется последовательность действий:
- Выводится сообщение с просьбой ввести координаты вершин треугольника.
- С помощью функции ReadLn вводятся значения переменных x1, y1, x2, y2, x3, y3.
- Вычисляются значения переменных a, b, c с помощью функции Len.
- Вычисляется периметр треугольника путем сложения значений переменных a, b, c.
- Вычисляется площадь треугольника с помощью функции SHero.
- Выводятся значения периметра и площади треугольника.