Периметр и площадь n-угольника

@hom4ka · Регистрация: 10.11.2013

Студворк — интернет-сервис помощи студентам

Нужно решить задачу, включив требуемые процедуры и функции в состав модуля Unit.
Выпуклый n-угольник задан координатами своих вершин (в порядке обхода по часовой стрелке. Найти:
а) периметр n-угольника;
б) площадь n-угольника.

@Puporev · 05.04.2014, 10:05

Pascal

uses crt;
const max=20;
type point=record
           x,y:real
           end;
     vec=array[1..max+1] of point;
procedure init(var a:vec;var n:byte);
var i:byte;
begin
repeat
write('Введите количество вершин от 3 до ',max,' n=');
readln(n);
until n in [3..max];
writeln('Введите координаты вершин в порядке обхода по часовой стрелке');
for i:=1 to n do
 begin
  writeln('Вершина ',i);
  readln(a[i].x,a[i].y);
 end;
a[n+1]:=a[1];
end;
function perimetr(a:vec;n:byte):real;
var i:byte;
    p:real;
begin
p:=0;
for i:=1 to n do
p:=p+sqrt(sqr(a[i].x-a[i+1].x)+sqr(a[i].y-a[i+1].y));
perimetr:=p
end;
function ploshad(a:vec;n:byte):real;
var i:byte;
    sx,sy:real;
begin
sx:=0;
sy:=0;
for i:=1 to n do
 begin
  sx:=sx+a[i].x*a[i+1].y;
  sy:=sy+a[i].y*a[i+1].x;
 end;
ploshad:=abs(sx-sy)/2;
end;
var a:vec;
    n:byte;
begin
init(a,n);
writeln('Периметр=',perimetr(a,n):0:2);
writeln('Площадь=',ploshad(a,n):0:2);
end.

@hom4ka 0 / 0 / 1 Регистрация: 10.11.2013 Сообщений: 78
		1
	Периметр и площадь n-угольника 05.04.2014, 02:20. Показов 1732. Ответов 1 Метки нет (Все метки) Нужно решить задачу, включив требуемые процедуры и функции в состав модуля Unit. Выпуклый n-угольник задан координатами своих вершин (в порядке обхода по часовой стрелке. Найти: а) периметр n-угольника; б) площадь n-угольника. 0

Опции темы

Периметр и площадь n-угольника

Решение