Определить периметры трёх треугольников, если заданы координаты их вершин - PascalABC.NET
Формулировка задачи:
Написать программу решения следующей задачи, используя модуль: Определить периметры трёх треугольников, если заданы координаты их вершин.
есть обычное решение задачи,но нужно сделать именно с использованием модуля
помогите,никак не могу разобраться с модулями,заранее спасибо!
Решение задачи: «Определить периметры трёх треугольников, если заданы координаты их вершин»
textual
Листинг программы
unit trg;
interface
function Dlina(x1,y1,x2,y2: integer):real;
function Perimetr(a,b,c: real): real;
procedure Vvod (nt: byte; var ax,ay,bx,by,cx,cy: integer);
implementation
function Dlina(x1,y1,x2,y2: integer):real;
var d: real;
begin
Dlina:=sqrt(sqr(y1-y2)+sqr(x1-x2));
end;
function Perimetr(a,b,c: real): real;
begin
Perimetr:=a+b+c;
end;
procedure Vvod (nt: byte; var ax,ay,bx,by,cx,cy: integer);
begin
writeln ('Координаты вершины A ',nt,' треугольника');
readln (ax,ay);
writeln ('Координаты вершины B ',nt,' треугольника');
readln (bx,by);
writeln ('Координаты вершины C ',nt,' треугольника');
readln (cx,cy);
end;
end.
Объяснение кода листинга программы
- Ввод данных о координатах вершин треугольников
- Вычисление длины стороны треугольника по формуле расстояния между двумя точками в декартовой системе координат
- Вычисление периметра треугольника по формуле суммы длин его сторон
- Вывод результата на экран
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д