Из паскаля в си: Даны координаты вершин некоторого четырехугольника, найти его площадь по формуле Герона - C (СИ)

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

Переведите пожалуйста код задачи из паскаля в СИ, спасибо. Условие:Даны координаты вершин некоторого четырехугольника. Найти его площадь. Вычисление площади одного треугольника по формуле Герона оформить в виде функции пользователя. Даны координаты вершин некоторого четырехугольника. Найти его площадь по формуле герона
procedure Plsh(x1,y1,x2,y2,x3,y3:real;var s:real);
var a,b,c,p:real;
begin
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;


textual

Код к задаче: «Из паскаля в си: Даны координаты вершин некоторого четырехугольника, найти его площадь по формуле Герона - C (СИ)»

#include <stdio.h>
#include <math.h>
 
double geron(double, double, double, double, double, double);
 
int main()
{
    double x1, y1, x2, y2, x3, y3;
    scanf("%lf%lf%lf%lf%lf%lf", &x1, &y1, &x2, &y2, &x3, &y3);
    printf("%f\n", geron(x1, y1, x2, y2, x3, y3));
    return 0;
}
 
double geron(double x1, double y1, double x2, double y2, double x3, double y3)
{
    double a, b, c, p, s;
    a = sqrt((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2));
    b = sqrt((x2 - x3) * (x2 - x3) + (y2 - y3) * (y2 - y3));
    c = sqrt((x3 - x1) * (x3 - x1) + (y3 - y1) * (y3 - y1));
    p = (a+b+c)/2;
    s = sqrt(p * (p - a) * (p - b) * (p - c));
    return s;
}
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.667 из 5

Источник