Ramzey
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[code=pas]
USES Graph,Crt;
CONST
Dimention=10;
TYPE
TDecart = record
X,Y : real;
end;
TMnogougolnik = array [1..Dimention] of TDecart;
CONST
A : TMnogougolnik = ((X:0;Y:0),
(X:0;Y:10),
(X:10;Y:30),
(X:30;Y:40),
(X:50;Y:90),
(X:60;Y:70),
(X:40;Y:50),
(X:60;Y:40),
(X:30;Y:10),
(X:10;Y:00));
var
i : byte;
Perimetr : real;
function SolveLen(Point1,Point2:TDecart) : real;
begin
SolveLen:=sqrt(sqr(Point2.X-Point1.X)+sqr(Point2.Y-Point1.Y));
end;
BEGIN
clrscr;
Perimetr:=0;
for i:=1 to Dimention-1 do
Perimetr:=Perimetr+SolveLen(A[i],A[i+1]);
Perimetr:=Perimetr+Solvelen(A[Dimention],A[1]);
writeln('Perimetr = ',Perimetr);
repeat until keypressed;
END.
[/code]
|
Всего записей: 11 | Зарегистр. 10-12-2006 | Отправлено: 11:58 17-12-2006 | Исправлено: Ramzey, 15:28 17-12-2006 |
|
