Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

end;

{площадь многоугольника}

ymin:=y[1];

for k:= 2 to n do

if ymin >y[k]

then ymin:=y[k];

for k:=1 to n+1 do

y1[k]:=y[k]-ymin;

s:=0;

for k:=1 to n do

s:=s+(x[i+1]-x[i])*(y1[i+1]+y1[i]);

s:=abs(s)/2;

{Cортировка выбором}

for i:=1 to n-1 do

begin

k:=i; max:=a[i];

for j:=i+1 to n do

if a[j]>max then

begin

max:=a[j];

k:=j;

end;

A[k]:=a[i]; a[i]:=maxl;

end;

{Cортировка обменом}

Рекомендуем скачать другие рефераты по теме: реферат по литературе, реферат слово.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата