Определить функцию, которая возвращает расстояние между двумя точками на плоскости

@yeahyeahyeahs · Регистрация: 19.11.2013

Студворк — интернет-сервис помощи студентам

Вариант 5. Определите функцию, которая возвращает расстояние между двумя точками на плоско-сти
где - координаты первой и второй точки соответственно

Определите функцию, которая возвращает площадь треугольника с заданными вершинами на плоско-сти, используя формулу Герона и ранее определённую функцию

(функции особо не понимаю , можете исправить или что надо добавить , ну это как я понял задание , помогите пожалуйсто )

Delphi

program Project3;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
var
   x1,x2,y1,y2:real;
   p,s:real;
 
Procedure info;
begin
setconsoleCP(1251);
setconsoleoutputcp(1251);
end;
 
Function lol(x1, y1, x2, y2:real):real;
Var
   m:real;
   n:real;
begin
   m:=x2-x1;
   n:=y2-y1;
   Dist:=sqrt(m*m-n*n);
   write('Dist = ',lol:5);
end;
 
{ Function Triangle(p:real):real;
var
   a,b,c:real;
begin
   p:=(a+b+c)/2;
   Triangle:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
Procedure PrintRow(Triangle,Dist:real);
begin
   writeln('расстояние между двумя точками: ',Dist:3:5);
   writeln('площадь треугольника: ',S:3:5);
end;
 
begin
  Info;
   Repeat
      Dist(x1,x2,y1,y2);
      Triangle(p);
      PrintRow(Triangle,Dist);
   Until Exitprog
end.

@Puporev · 05.11.2014, 07:57

Delphi

program Project3;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
Procedure info;
begin
setconsoleCP(1251);
setconsoleoutputcp(1251);
end;
 
Function lol(x1, y1, x2, y2:real):real;
begin
lol:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
 
Function Triangle(x1,y1,x2,y2,x3,y3:real):real;
var  a,b,c,p:real;
begin
a:=lol(x1,y1,x2,y2);
b:=lol(x2,y2,x3,y3);
c:=lol(x1,y1,x3,y3);
p:=(a+b+c)/2;
Triangle:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
var x1,x2,y1,y2,x3,y3:real;
begin
Info;
writeln('Введите координаты вершин треугольника');
readln(x1,y1,x2,y2,x3,y3);
write('Площадь=',Triangle(x1,y1,x2,y2,x3,y3):0:2);
readln
end.

Опции темы