На языке си. , . треугольник задан координатами своих вершин. вычислить его площадь. бред не пишите, на паскале не надо.

Код программы прикреплен в файле.

В коде присутствуют три функции:

getLengthBeweenPoints - расчет расстояния между двумя точками на плоскости по формулеgetAreaOfTriangle - расчет площади треугольника по трем сторонамmain - ввод координат двух координат для каждой из вершин треугольника и вывод на экран расчитаной площади треугольника

за отметку "лучший ответ" и нажатую кнопочку " ":

На этом ответеВ моем аккаунте

P.S.

К сожалению сайт не позволяет загружать текстовые форматы (знаю, это тупо), по этому файл называется 'main.c.pdf', просто переименуйте его и уберите из названия '.pdf', должно получиться 'main.c', далее можете открыть любым текстовым редактором либо скомпилировать в бинарник за комментарий: на Паскале НЕ надо! Прям от души, просто надоели люди знающие только паскаль и пишущие исключительно на нем ответы, хотя людям такое и не надо...

На всякий случай в коментариях продублирую код.

//PascalABC.NET 3.2 сборка 1318

Var
  arnx,armx,arny,army,delMmax:array[1..1000] of real;
  N,M,res,i,j:integer;
  min:real;
begin
min:=maxreal;
{не уверен существует ли эта константа в fpc, если что, она равна максимальному значению типа real}
readln(N);
for i:=1 to N do
    readln(arnx[i],arny[i]);
readln(M);
for i:=1 to M do
  begin
    readln(armx[i],army[i]);
    delMmax[i]:=-1;
    for j:=1 to N do
      if delMmax[i]<sqrt(sqr(armx[i]-arnx[j])+sqr(army[i]-arny[j]))
 then
 delMmax[i]:=sqrt(sqr(armx[i]-arnx[j])+sqr(army[i]-arny[j]));
    if delMmax[i]<min
 then
      begin
        min:=delMmax[i];
        res:=i;
      end;
 end;
writeln(res);
end.

Пример ввода:
3
2 1
1 2
1 1
3
1 5
3 3
4 2
Пример вывода:
2

Var
 A:array[1..4] of integer;
 i,j,R,P:integer;
function HOD(c,b:integer):integer;
 begin
  while c<>b do
   if c>b
     then
      c:=c-b
    else
     b:=b-c;
  HOD:=c;
 end;
function HOK(c,b, RR:integer):integer;
 begin
  if ((c mod b=0) or (b mod c=0)) and ((c div b > 1) or (b div c > 1))
   then
     begin
       if c>b
          then
           HoK:=c
         else
          HOK:=b;
     end
    else
     HOK:=(c*b) div RR;
 end;
begin
 A[1]:=36;
 A[2]:=54;
 A[3]:=18;
 A[4]:=15;
 P:=1;
 R:=HOD(A[1],A[2]);
 P:=HOK(A[1], A[2], R);
 for i:=3 to 4 do
  begin
   R:=HOD(R, A[i]);
   P:=HOK(P, A[i],R);
  end; writeln('HOK = ',P);
end.