Xác định trọng tâm của hình bất kỳ

Dữ liệu vào là n (n > 2) điểm (trong phương diện phẳng Oxy) – toạ độ n đỉnh tiếp tục nhau của nhiều giác lồi. Ta phân tách đa giác lồi này thành n-2 tam giác với 3 đỉnh của tam giác theo thứ tự là đỉnh đồ vật 1, đỉnh trang bị i và đỉnh thiết bị

Từ phía trên ta rất có thể xây dựng chương trình, sau đó là toàn văn hoa trình:

$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+,Y+

$M 16384,0,655360

Program Xac_dinh_trong_tam ;

Const

Maxn = 1000 ;

FileInp = "TTAM.INP" ;

FileOut = "TTAM.Out" ;

tp = 2 ; So chu so thap phan can

Type

Toado = Record

x, y : Real ;

End ;

Mang = Array of Toado ;

Var

A : sở hữu ;

XG, YG : Real ;

tongx, tongy, tong : Real ;

N : Integer ;

Procedure Docfile ;

Var

f : Text ;

i : Integer ;

Begin

Assign (f, FileInp) ;

$I-

Reset (f) ;

$I+

If IOResult 0 then Halt ;

Readln (f, N) ;

FillChar (A, Sizeof (A), 0) ;

For i := 1 khổng lồ N do

Readln (f, A .x, A .y) ;

Close (f) ;

tongx := 0 ;

tongy := 0 ;

tong := 0 ;

End ;

Function XAG (AA, BB, CC : Toado) : Real ;

Begin

XAG := (AA.x + BB.x + CC.x) / 3 ;

End ;

Function YAG (AA, BB, CC : Toado) : Real ;

Begin

YAG := (AA.y + BB.y + CC.y) / 3 ;

End ;

Function SA (AA, BB, CC : Toado) : Real ;

Var

tam : Real ;

Begin

tam := (AA.x - BB.x) * (AA.y + BB.y) +

(BB.x - CC.x) * (BB.y + CC.y) +

(CC.x - AA.x) * (CC.y + AA.y) ;

SA := Abs (tam) / 2 ;

End ;

Procedure Xuly ;

Var

i : Integer ;

tamx, tamy, tamS : Real ;

Begin

For i := 2 to lớn n - 1 do

Begin

tamx := XAG (A , A , A ) ;

tamy := YAG (A , A , A ) ;

tamS := SA (A , A , A ) ;

tongx := tongx + tamx * tamS ;

tongy := tongy + tamy * tamS ;

tong := tong + tamS ;

End ;

XG := tongx / tong ;

YG := tongy / tong ;

End ;

Procedure Ghifile ;

Var

f : Text ;

Begin

Assign (f, FileOut) ;

Rewrite (f) ;

Writeln (f, XG : 0 : tp, #32, YG : 0 : tp) ;

Close (f) ;

End ;

Begin

Docfile ;

Xuly ;

Ghifile ;

End.

File vào TTAM.INP

4

0 0

4 0

4 4

0 4

File ra TTAM.OUT

2.00 2.00

Bạn đọc gồm thể tham khảo thêm để xác minh được giữa trung tâm của một hình ngẫu nhiên (có cả phần khuyết bên trong) đồng thời rất có thể xác định thêm các đặc trưng hình học khác ví như mô men quán tính Jx, Jy, Jxy, nửa đường kính quán tính ix, iy… Rất muốn sự ân cần và bàn bạc của quý các bạn đọc.