Search found 1 match

by youhan_sun
Thu Jul 15, 2004 10:55 am
Forum: Volume 104 (10400-10499)
Topic: 10445 - Make Polygon
Replies: 35
Views: 14367

10445 WA :( --help!

Const Maxn=30; e0=1e-10; pi=3.14159265358979323846; Type Point=Record x,y:Longint; End; Var p:Array[0..Maxn] Of Point; n:Longint; Max,Min:Extended; Procedure Init; Var i:Longint; Begin For i:=1 To n Do With p Do Read(x,y); p[0]:=p[n]; p[n+1]:=p[1]; End; Function Line(p1,p2:Point):Longint; Begin Line...

Go to advanced search