خواني وأخواتي اشكركم علي المرور

بارك الله في جهودكم

[عزيزي الزائر يتوجب عليك التسجيل للمشاهدة الرابطللتسجيل اضغط هنا]


أخواني وأخواتي اعضاء منتديات الوزير التعليمية

أعتذر من الجميغ لغيابي

واتمنى من الجميع ان يسامحوني وان يدعوا لي بالرحمة

والمغفرة

شكراااااااا

اشكركم على المرور

يعرف المضلع بتسلسل من النقاط:
P1, P2,..., Pn
تشكل رؤوس المضلع، وتصل بين كل نقطتين متعاقبتين Pi, Pi+1 ضلع PiPi+1 كما تتصل التقطتان الأولى والأخيرة بالضلع PnP1.

في المستوي الديكارتي تحدد كل نقطة بإحداثييها، وبهذا يتحدد المضلع بإحداثيات نقاطه.

المطلوب إيجاد خوارزمية تقوم بحساب مساحة مضلع في مستوي ديكارتي:

الدخل: مضلع معرف بسلسلة من النقاط عددها n لكل منهاإحداثيين
P[i].x, P[i].y

الخرج: مساحة هذا المضلع.

إن فكرة الحل تعتمد على أن مساحة المضلع المحدب هي مجموع مساحات المثلثات المكونة من إحدى نقاط نقاط المضلع مع بقية النقاط مثنى مثنى و بالترتيب لكن المهم هو كيف يمكن حساب مساحة المثلث بدلالة إحداثيات نقاطه لكن ذلك ممكن عن طريق العبارة الشعاعية للمثلث






نقوم بأخد القيمة المطلقة للمساحة الجبرية لنحصل على المساحة الهندسية وهذه الطريقة هي طريقة فعالة و عملية لحساب مساحة المثلث
من أجل N نقطة في المضلع يوجد N-2 مثلث بين إحدى نقاط المضلع و بقية النقاط مثنى مثنى و لنأخذ أول نقطة في المضلع كرأس مشترك لجميع المثلثات و بشرط إدخال النقاط بالترتيب يمكننا حساب مساحة المضلع عن طريق أخذ مجموع مساحة المثلثات

[عزيزي الزائر يتوجب عليك التسجيل للمشاهدة الرابطللتسجيل اضغط هنا]

uses wincrt ;
type point=record
x,y:real;
end;
var i,n:integer;
s:real;
p:array[1..30] of point;
function area(p0,p1,p2oint):real;
var x0,x1,x2,y0,y1,y2:real;
begin
x0:=p0.x; y0:=p0.y;
x1:=p1.x; y1:=p1.y;
x2:=p2.x; y2:=p2.y;
area:=abs((x1-x0)*(y2-y0)-(x2-x0)*(y1-y0))/2
end;
begin
write('n='); readln(n);
for i:=1 to n do
with p[i] do
begin
writeln('point',i);
write('X',i,'=');readln(x);
write('Y',i,'=');readln(y);
end;
s:=0 ;
for i:=2 to n-1 do
s:=s+area(p[1],p[i],p[i+1]);
writeln(s2);
end.